diff options
author | Marco Wahl <marcowahlsoft@gmail.com> | 2019-01-26 15:56:09 +0100 |
---|---|---|
committer | Marco Wahl <marcowahlsoft@gmail.com> | 2019-01-26 15:56:09 +0100 |
commit | f9a8cccafaeacd94a36eacaee35127b749ac13f5 (patch) | |
tree | dec0945acf633ae14c47d79a6a87bb12974240b1 | |
parent | 24030ef62b149a31ac3b51a13e0149c16f95c47f (diff) | |
download | org-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.el | 5 |
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) |