exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use default buffer for Org location queries

Browse Source
This commit is contained in:
Daniel Borchmann 2025-08-17 13:08:18 +02:00
parent 928ef10ac5
commit fb8b2837d5
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
1 changed files with 15 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
site-lisp/db-org.el
View File

@ -1905,20 +1905,21 @@ linking to any item."
(t (t
(list (buffer-file-name default-buffer))))) (list (buffer-file-name default-buffer)))))
(pom (consult--read (consult--slow-operation "Collecting headings..." (pom (with-current-buffer default-buffer
(or (consult-org--headings nil nil scope) (consult--read (consult--slow-operation "Collecting headings..."
(user-error "No headings"))) (or (consult-org--headings nil nil scope)
:prompt "Go to heading: " (user-error "No headings")))
:category 'org-heading :prompt "Go to heading: "
:sort nil :category 'org-heading
:initial initial-input :sort nil
:require-match t :initial initial-input
:history '(:input consult-org--history) :require-match t
:narrow (consult-org--narrow) :history '(:input consult-org--history)
:annotate #'consult-org--annotate :narrow (consult-org--narrow)
:group #'consult-org--group :annotate #'consult-org--annotate
:lookup (apply-partially #'consult--lookup-prop 'org-marker) :group #'consult-org--group
:preview-key nil))) :lookup (apply-partially #'consult--lookup-prop 'org-marker)
:preview-key nil))))
(if (markerp pom) (if (markerp pom)
pom pom
(user-error "Invalid location"))))) (user-error "Invalid location")))))