HomeAboutCodePastes

Paste on 2021-04-21T20:25:21

(defun d/svnwrap-with-code ()
    (interactive)
    (let ((bounds (if (region-active-p)
                      (cons (region-beginning)
                            (region-end))
                    (bounds-of-thing-at-point 'symbol))))
      (goto-char (car bounds))
      (insert "{{")
      (goto-char (+ (cdr bounds) 2))
      (insert "}}")
      (goto-char (car bounds))))

plain