From fa9f197c4eec2f4ba26d2ae5ab5b6188de38640b Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 4 Dec 2015 03:34:43 -0500 Subject: [PATCH] region-aware narf/org-surround --- modules/lib/defuns-org.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/modules/lib/defuns-org.el b/modules/lib/defuns-org.el index cf6f78f22..295980753 100644 --- a/modules/lib/defuns-org.el +++ b/modules/lib/defuns-org.el @@ -111,7 +111,14 @@ ;; Formatting shortcuts ;;;###autoload (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 (defun narf/org-word-count (beg end &optional count-footnotes?)