region-aware narf/org-surround

This commit is contained in:
Henrik Lissner 2015-12-04 03:34:43 -05:00
parent 17403015fb
commit fa9f197c4e

View file

@ -111,7 +111,14 @@
;; Formatting shortcuts ;; Formatting shortcuts
;;;###autoload ;;;###autoload
(defun narf/org-surround (delim) (defun narf/org-surround (delim)
(insert delim) (save-excursion (insert delim))) (if (region-active-p)
(save-excursion
(goto-char (region-beginning))
(insert delim)
(goto-char (region-end))
(insert delim))
(insert delim)
(save-excursion (insert delim))))
;;;###autoload ;;;###autoload
(defun narf/org-word-count (beg end &optional count-footnotes?) (defun narf/org-word-count (beg end &optional count-footnotes?)