summaryrefslogtreecommitdiff
path: root/bog.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-05-06 23:53:56 -0400
committerKyle Meyer <kyle@kyleam.com>2014-05-06 23:53:56 -0400
commit1c2a78d0d3b63d09087d6a3e4b8788b2aee2d188 (patch)
tree202ec47e51ca8e414f4da64d8ad70ab22223888f /bog.el
parent6969b89fdf3a00fbfabea025cf5eced1a40ca9fe (diff)
downloadbog-1c2a78d0d3b63d09087d6a3e4b8788b2aee2d188.tar.gz
Widen if needed in goto-heading functions
Widen the buffer if the heading is outside the currently narrowed region.
Diffstat (limited to 'bog.el')
-rw-r--r--bog.el25
1 files changed, 19 insertions, 6 deletions
diff --git a/bog.el b/bog.el
index 7ca3ec5..53d86a0 100644
--- a/bog.el
+++ b/bog.el
@@ -605,15 +605,21 @@ The citekey will be taken from the text under point if it matches
With prefix argument NO-CONTEXT, a prompt will open to select
from all citekeys for headings in the current buffer. This same
-prompt will be opened if locating a citekey from context fails."
+prompt will be opened if locating a citekey from context fails.
+
+If the heading is found outside any current narrowing of the
+buffer, the narrowing is removed."
(interactive "P")
(let* ((citekey (bog-citekey-from-point-or-buffer-headings no-context))
(pos (org-find-exact-headline-in-buffer citekey nil t)))
(if pos
(progn
- (org-mark-ring-push)
- (goto-char pos)
- (org-show-context))
+ (when (or (< pos (point-min))
+ (> pos (point-max)))
+ (widen))
+ (org-mark-ring-push)
+ (goto-char pos)
+ (org-show-context))
(message "Heading for %s not found in buffer" citekey))))
(defun bog-goto-citekey-heading-in-notes (&optional no-context)
@@ -626,7 +632,10 @@ The citekey will be taken from the text under point if it matches
With prefix argument NO-CONTEXT, a prompt will open to select
from all citekeys for headings in notes. This same prompt will be
-opened if locating a citekey from context fails."
+opened if locating a citekey from context fails.
+
+If the heading is found outside any current narrowing of the
+buffer, the narrowing is removed."
(interactive "P")
(let* ((citekey (bog-citekey-from-point-or-all-headings no-context))
(marker
@@ -634,7 +643,11 @@ opened if locating a citekey from context fails."
(if marker
(progn
(switch-to-buffer (marker-buffer marker))
- (goto-char (marker-position marker))
+ (let ((pos (marker-position marker)))
+ (when (or (< pos (point-min))
+ (> pos (point-max)))
+ (widen))
+ (goto-char pos))
(org-show-context))
(message "Heading for %s not found in notes" citekey))))