branch: elpa/hyperdrive
commit 91b5fed33dd7c17c3a74dcfefd22bbebda3c8601
Author: Adam Porter <[email protected]>
Commit: Adam Porter <[email protected]>
Fix: (h/bookmark-list) Call bookmark-maybe-load-default-file
To ensure that bookmark-alist is loaded.
---
hyperdrive.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 68438121ff..2929601787 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -729,7 +729,7 @@ Works in `hyperdrive-mode' and `hyperdrive-dir-mode'
buffers."
"Jump to a Hyperdrive BOOKMARK."
(interactive
(progn
- (bookmark-maybe-load-default-file) ; paranoia
+ (bookmark-maybe-load-default-file)
(list
(completing-read "Open Hyperdrive bookmark: " bookmark-alist
(pcase-lambda (`(,_name . ,(map handler)))
@@ -740,6 +740,7 @@ Works in `hyperdrive-mode' and `hyperdrive-dir-mode'
buffers."
(defun h/bookmark-list ()
"List Hyperdrive bookmarks."
(interactive)
+ (bookmark-maybe-load-default-file)
(let ((bookmark-alist
(cl-remove-if-not (pcase-lambda (`(,_name . ,(map handler)))
(equal handler #'h/bookmark-handler))
