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',