Add: (org-ql-find-display-buffer-action)

alphapapa · Oct 7, 2022 · 5f70636 · 5f70636
1 parent e54ba01
commit 5f70636
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/org-ql-find.el b/org-ql-find.el
@@ -43,6 +43,11 @@
   "Functions called when selecting an entry."
   :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
 
 ;;;###autoload
@@ -80,7 +85,7 @@ single predicate)."
                   :prompt prompt)))
     (with-current-buffer (marker-buffer 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)))
       (run-hook-with-args 'org-ql-find-goto-hook))))