region-aware narf/org-surround
This commit is contained in:
parent
17403015fb
commit
fa9f197c4e
1 changed files with 8 additions and 1 deletions
|
@ -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?)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue