summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarco Wahl <marcowahlsoft@gmail.com>2019-01-26 15:56:09 +0100
committerMarco Wahl <marcowahlsoft@gmail.com>2019-01-26 15:56:09 +0100
commitf9a8cccafaeacd94a36eacaee35127b749ac13f5 (patch)
treedec0945acf633ae14c47d79a6a87bb12974240b1
parent24030ef62b149a31ac3b51a13e0149c16f95c47f (diff)
downloadorg-mode-f9a8cccafaeacd94a36eacaee35127b749ac13f5.tar.gz
org-goto: Fix org-goto interface 'outline
* lisp/org-goto.el (org-goto-location): Set relevant variables for the call of `with-output-to-temp-buffer' for predictable behavior.
-rw-r--r--lisp/org-goto.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-goto.el b/lisp/org-goto.el
index 1c878ee..a399899 100644
--- a/lisp/org-goto.el
+++ b/lisp/org-goto.el
@@ -238,10 +238,11 @@ position or nil."
(condition-case nil
(make-indirect-buffer (current-buffer) "*org-goto*")
(error (make-indirect-buffer (current-buffer) "*org-goto*"))))
- (with-output-to-temp-buffer "*Org Help*"
+ (let (temp-buffer-show-function temp-buffer-show-hook)
+ (with-output-to-temp-buffer "*Org Help*"
(princ (format help (if org-goto-auto-isearch
" Just type for auto-isearch."
- " n/p/f/b/u to navigate, q to quit."))))
+ " n/p/f/b/u to navigate, q to quit.")))))
(org-fit-window-to-buffer (get-buffer-window "*Org Help*"))
(setq buffer-read-only nil)
(let ((org-startup-truncated t)