[Utils] Sort bookmarks after adding a new one

2019-01-27 09:24:01 +01:00 · 2019-01-27 09:24:01 +01:00 · be7625830c
parent 7d666e146d
commit be7625830c
1 changed files with 2 additions and 1 deletions
--- a/site-lisp/db-utils.el
+++ b/site-lisp/db-utils.el
@ -539,7 +539,8 @@ it."
          (filename . ,location)
          (handler . ,#'(lambda (arg)
                          (funcall handler (cdr (assoc 'filename arg))))))
-        bookmark-alist))
+        bookmark-alist)
+  (setq bookmark-alist (cl-sort bookmark-alist #'string-lessp :key #'car)))

 (defun db/bookmark-add-external (location name)
  "Add NAME as bookmark to LOCATION that is opened by the operating system."