summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2016-02-23 22:06:33 -0500
committerKyle Meyer <kyle@kyleam.com>2016-02-23 22:06:33 -0500
commit8ed6fcda8f5161b6e8fb964ef6870d4c4b177970 (patch)
tree35a155dd8a921e35aa08c21a84796b2142c924c1 /lisp
parentfb2f7d29677534a500bdda3625b53868515ce860 (diff)
downloademacs.d-8ed6fcda8f5161b6e8fb964ef6870d4c4b177970.tar.gz
Add variant of org-goto that widens
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-org.el13
1 files changed, 13 insertions, 0 deletions
diff --git a/lisp/km-org.el b/lisp/km-org.el
index 7f4d5da..a778502 100644
--- a/lisp/km-org.el
+++ b/lisp/km-org.el
@@ -300,6 +300,19 @@ called through the speed command interface."
(save-excursion
(call-interactively #'org-open-at-point)))
+(defun km/org-goto ()
+ "Like `org-goto', but act on widened buffer.
+If point ends up outside the previously narrowed region, leave
+the buffer widened."
+ (interactive)
+ (pcase-let ((`(,beg . ,end) (and (buffer-narrowed-p)
+ (cons (point-min) (point-max)))))
+ (widen)
+ (unwind-protect
+ (call-interactively #'org-goto)
+ (when (and beg (<= beg (point) end))
+ (narrow-to-region beg end)))))
+
;;; Agenda