Add: (org-ql-find-display-buffer-action)
This commit is contained in:
parent
e54ba0102c
commit
5f70636556
1 changed files with 6 additions and 1 deletions
|
|
@ -43,6 +43,11 @@
|
||||||
"Functions called when selecting an entry."
|
"Functions called when selecting an entry."
|
||||||
:type 'hook)
|
:type 'hook)
|
||||||
|
|
||||||
|
(defcustom org-ql-find-display-buffer-action '(display-buffer-same-window)
|
||||||
|
"Display buffer action list for `org-ql-find'.
|
||||||
|
See function `display-buffer'."
|
||||||
|
:type 'sexp)
|
||||||
|
|
||||||
;;;; Functions
|
;;;; Functions
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
|
|
@ -80,7 +85,7 @@ single predicate)."
|
||||||
:prompt prompt)))
|
:prompt prompt)))
|
||||||
(with-current-buffer (marker-buffer marker)
|
(with-current-buffer (marker-buffer marker)
|
||||||
(goto-char marker)
|
(goto-char marker)
|
||||||
(display-buffer (current-buffer))
|
(display-buffer (current-buffer) org-ql-find-display-buffer-action)
|
||||||
(select-window (get-buffer-window (current-buffer)))
|
(select-window (get-buffer-window (current-buffer)))
|
||||||
(run-hook-with-args 'org-ql-find-goto-hook))))
|
(run-hook-with-args 'org-ql-find-goto-hook))))
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue