(Emacs/elisp/org-bookmark)~prompts for differing functions

This commit is contained in:
2024-08-24 21:00:16 +01:00
parent 108b8d08c7
commit 9af08d84c9

View File

@@ -114,7 +114,7 @@ as a string) and produces some action of opening it.")
"Copy a bookmark's URL."
(interactive)
(let* ((bookmarks (org-bookmark/bookmarks))
(choice (completing-read "Choose bookmark: " (mapcar #'car bookmarks) nil t))
(choice (completing-read "Copy bookmark: " (mapcar #'car bookmarks) nil t))
(pair (assoc choice bookmarks #'string=)))
(if (null pair)
(error (format "`%s' is not a valid bookmark" choice))
@@ -126,7 +126,7 @@ as a string) and produces some action of opening it.")
opening the url to some handler function."
(interactive)
(let* ((bookmarks (org-bookmark/bookmarks))
(choice (completing-read "Choose bookmark: " (mapcar #'car bookmarks) nil t))
(choice (completing-read "Open bookmark: " (mapcar #'car bookmarks) nil t))
(pair (assoc choice bookmarks #'string=)))
(if (null pair)
(error (format "`%s' is not a valid bookmark" choice))