From 3f767faf089c765d7557009c3a6b0202be3f0af3 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 17 Aug 2025 17:51:01 +0200 Subject: [PATCH] Fix type signature for `org-refile-get-location` substitute function --- init.el | 2 +- site-lisp/db-org.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 9f1cd8c..c9e5b2d 100644 --- a/init.el +++ b/init.el @@ -953,7 +953,7 @@ split horizontally again, but this extra work should not matter much." ;; Use consult for querying refile targets (define-advice org-refile-get-location (:around - (orig-func prompt default-buffer new-nodes) + (orig-func &optional prompt default-buffer new-nodes) use-consult-instead) (ignore orig-func) (db/org-refile-get-location prompt default-buffer new-nodes)))) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 7075ec5..61328e9 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -478,7 +478,7 @@ Via %%(with-temp-buffer (db/org-add-link-to-current-clock) (string-trim (buffer- ;; any agenda when a super-item is tagged with :HOLD:. (not (member "HOLD" (org-get-tags (point)))))) -(defun db/org-refile-get-location (prompt default-buffer new-nodes) +(defun db/org-refile-get-location (&optional prompt default-buffer new-nodes) "Replacement function for `org-refile-get-location' using `consult'. This function can be used instead of `org-refile-get-location',