oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Aryadev Chavali
2024-08-24 21:00:16 +01:00
parent 108b8d08c7
commit 9af08d84c9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Emacs/.config/emacs/elisp/org-bookmark.el
View File

@@ -114,7 +114,7 @@ as a string) and produces some action of opening it.")
"Copy a bookmark's URL." "Copy a bookmark's URL."
(interactive) (interactive)
(let* ((bookmarks (org-bookmark/bookmarks)) (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=))) (pair (assoc choice bookmarks #'string=)))
(if (null pair) (if (null pair)
(error (format "`%s' is not a valid bookmark" choice)) (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." opening the url to some handler function."
(interactive) (interactive)
(let* ((bookmarks (org-bookmark/bookmarks)) (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=))) (pair (assoc choice bookmarks #'string=)))
(if (null pair) (if (null pair)
(error (format "`%s' is not a valid bookmark" choice)) (error (format "`%s' is not a valid bookmark" choice))