From 30fb51c374afe4e1c3a6aabe6c669f6b6936a14b Mon Sep 17 00:00:00 2001 From: plugd Date: Wed, 28 Jul 2021 21:00:27 +0200 Subject: [PATCH] Replaced missing check for elpher bookmark handler. --- elpher.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/elpher.el b/elpher.el index 1c42937..2b24bcf 100644 --- a/elpher.el +++ b/elpher.el @@ -1863,14 +1863,14 @@ To bookmark the link at point use \\[elpher-bookmark-link]." (elpher-with-clean-buffer (insert " ---- Elpher Bookmarks ---- \n\n") (bookmark-maybe-load-default-file) - (let ((bookmarks (bookmark-maybe-sort-alist))) - (if bookmarks - (dolist (bookmark bookmarks) - (let* ((name (car bookmark)) - (url (alist-get 'location (cdr bookmark))) - (address (elpher-address-from-url url))) - (elpher-insert-index-record name address))) - (insert "No bookmarked pages found.\n"))) + (dolist (bookmark (bookmark-maybe-sort-alist)) + (when (eq #'elpher-bookmark-jump (alist-get 'handler (cdr bookmark))) + (let* ((name (car bookmark)) + (url (alist-get 'location (cdr bookmark))) + (address (elpher-address-from-url url))) + (elpher-insert-index-record name address)))) + (when (<= (line-number-at-pos) 3) + (insert "No bookmarked pages found.\n")) (insert "\n --------------------------\n\n" "Select an entry or press 'u' to return to the previous page.\n\n" "Bookmarks can be renamed or deleted via the ") -- 2.20.1