diff options
author | Bastien <bzg@gnu.org> | 2020-09-05 09:41:42 +0200 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-09-05 09:41:42 +0200 |
commit | 3f8fe3969550182b26f5c745c82dd8721dc5c6b5 (patch) | |
tree | bacb653b91febbc278eb7262c4237d4930aec4e5 | |
parent | 0e580d169f39cca80085e91aa52d27587314bf84 (diff) | |
parent | 4696aef580bd9efaf934c177fadcccbe52a64df4 (diff) | |
download | org-mode-3f8fe3969550182b26f5c745c82dd8721dc5c6b5.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org-goto.el | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/lisp/org-goto.el b/lisp/org-goto.el index 6d4c0cb..5678669 100644 --- a/lisp/org-goto.el +++ b/lisp/org-goto.el @@ -234,20 +234,15 @@ position or nil." (and (get-buffer "*org-goto*") (kill-buffer "*org-goto*")) (pop-to-buffer-same-window (condition-case nil - (make-indirect-buffer (current-buffer) "*org-goto*") - (error (make-indirect-buffer (current-buffer) "*org-goto*")))) + (make-indirect-buffer (current-buffer) "*org-goto*" t) + (error (make-indirect-buffer (current-buffer) "*org-goto*" t)))) (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."))))) (org-fit-window-to-buffer (get-buffer-window "*Org Help*")) - (setq buffer-read-only nil) - (let ((org-startup-truncated t) - (org-startup-folded nil) - (org-startup-align-all-tables nil)) - (org-mode) - (org-overview)) + (org-overview) (setq buffer-read-only t) (if (and (boundp 'org-goto-start-pos) (integer-or-marker-p org-goto-start-pos)) |