exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Utils] Simplify ‘db/bookmark-add-with-handler’

Browse Source
This commit is contained in:
Daniel Borchmann 2019-01-27 09:25:03 +01:00
parent be7625830c
commit 1cc212f955
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
site-lisp/db-utils.el
View File

@ -530,11 +530,10 @@ _h_ _l_ _o_k _y_ank
"Add NAME as bookmark to LOCATION and use HANDLER to open it. "Add NAME as bookmark to LOCATION and use HANDLER to open it.
HANDLER is a function receiving a single argument, namely HANDLER is a function receiving a single argument, namely
LOCATION. If a bookmark named NAME is already present, replace LOCATION. If a bookmark named NAME is already present, replace
it." it. The bookmarks will finally be sorted by their name."
(when (assoc name bookmark-alist) (setq bookmark-alist
(setq bookmark-alist (cl-delete-if #'(lambda (bmk) (equal (car bmk) name))
(cl-delete-if #'(lambda (bmk) (equal (car bmk) name)) bookmark-alist))
bookmark-alist)))
(push `(,name (push `(,name
(filename . ,location) (filename . ,location)
(handler . ,#'(lambda (arg) (handler . ,#'(lambda (arg)