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

Make custom consult bookmark menu robust for upgrade

Browse Source 
`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
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
site-lisp/db-utils.el
View File

@ -101,7 +101,13 @@
:annotate #'(lambda (_) "") :annotate #'(lambda (_) "")
:action #'call-interactively) :action #'call-interactively)
sources) 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) sources)
(when (file-directory-p db/important-documents-path) (when (file-directory-p db/important-documents-path)
(let ((search-path (expand-file-name db/important-documents-path))) (let ((search-path (expand-file-name db/important-documents-path)))