(insert "\n"
"Your bookmarks are stored in your ")
(let ((help-string "RET,mouse-1: Open bookmark list"))
- (insert-text-button "Emacs bookmark list"
+ (insert-text-button "bookmark list"
'face 'link
'action (lambda (_)
(interactive)
(error "Command not supported for bookmarks page"))
(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)
'follow-link t
'help-echo "RET,mouse-1: open Emacs bookmark menu")
(insert (substitute-command-keys
- ",\nwhich can also be openned from anywhere using '\\[bookmark-bmenu-list]'."))
+ ",\nwhich can also be opened from anywhere using '\\[bookmark-bmenu-list]'."))
(elpher-restore-pos)))
(defun elpher-show-bookmarks ()