瀏覽代碼

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.
Marco Wahl 6 年之前
父節點
當前提交
f9a8cccafa
共有 1 個文件被更改,包括 3 次插入2 次删除
  1. 3 2
      lisp/org-goto.el

+ 3 - 2
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)