From 1cc212f9556ef0548e6e416ad88e7424a7ad5968 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 27 Jan 2019 09:25:03 +0100 Subject: [PATCH] =?UTF-8?q?[Utils]=20Simplify=20=E2=80=98db/bookmark-add-w?= =?UTF-8?q?ith-handler=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- site-lisp/db-utils.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index dd5e971..4f6065e 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -530,11 +530,10 @@ _h_ _l_ _o_k _y_ank "Add NAME as bookmark to LOCATION and use HANDLER to open it. HANDLER is a function receiving a single argument, namely LOCATION. If a bookmark named NAME is already present, replace -it." - (when (assoc name bookmark-alist) - (setq bookmark-alist - (cl-delete-if #'(lambda (bmk) (equal (car bmk) name)) - bookmark-alist))) +it. The bookmarks will finally be sorted by their name." + (setq bookmark-alist + (cl-delete-if #'(lambda (bmk) (equal (car bmk) name)) + bookmark-alist)) (push `(,name (filename . ,location) (handler . ,#'(lambda (arg)