emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 91b5fed33d 09/10: Fix: (h/bookmark-list) Call b


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 91b5fed33d 09/10: Fix: (h/bookmark-list) Call bookmark-maybe-load-default-file
Date: Mon, 9 Sep 2024 19:00:21 -0400 (EDT)

branch: elpa/hyperdrive
commit 91b5fed33dd7c17c3a74dcfefd22bbebda3c8601
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]