Make custom consult bookmark menu robust for upgrade

`consult--source-bookmark` is gone in later versions.
This commit is contained in:
Daniel Borchmann 2026-03-21 14:48:56 +01:00
parent 0ecb4ff55a
commit 575b78a0b2
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1

View File

@ -101,7 +101,13 @@
:annotate #'(lambda (_) "")
:action #'call-interactively)
sources)
(push 'consult--source-bookmark
(push (cond
((boundp 'consult-source-bookmark)
'consult-source-bookmark)
((boundp 'consult--source-bookmark)
'consult--source-bookmark)
(t
(error "No consult source for adding bookmarks")))
sources)
(when (file-directory-p db/important-documents-path)
(let ((search-path (expand-file-name db/important-documents-path)))