From c095b77025b5bc3ea72972b33dae025b4c52abeb Mon Sep 17 00:00:00 2001 From: Karl Fogel Date: Thu, 7 Mar 2013 16:35:47 -0600 Subject: [PATCH] * bookmark.el: Define a face to highlight bookmark names in bookmark menu buffers, where the default is a bold face similarly to buffer names in buffer menu buffers. Patch by Matthias Meulien . (bookmark-menu-bookmark): New face to highlight bookmark names. (bookmark-insert-location): Removes dupplicated text property to conform to buffer list (see `list-buffers') (bookmark-bmenu-list, bookmark-bmenu-hide-filenames): Apply face `bookmark-menu-bookmark' to bookmark names. --- lisp/ChangeLog | 13 +++++++++++++ lisp/bookmark.el | 25 ++++++++++--------------- 2 files changed, 23 insertions(+), 15 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f1ca958044b..4f24f5b2c8c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,16 @@ +2013-03-07 Karl Fogel + + * bookmark.el: Define a face to highlight bookmark names in + bookmark menu buffers, where the default is a bold face similarly + to buffer names in buffer menu buffers. Patch by Matthias Meulien + . + + (bookmark-menu-bookmark): New face to highlight bookmark names. + (bookmark-insert-location): Remove duplicated text property to + conform to buffer list (see `list-buffers'). + (bookmark-bmenu-list, bookmark-bmenu-hide-filenames): Apply face + `bookmark-menu-bookmark' to bookmark names. + 2013-03-07 Karl Fogel * bookmark.el: Display the bookmark list header similarly to the diff --git a/lisp/bookmark.el b/lisp/bookmark.el index fd6ae217bf8..47e13799625 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -156,6 +156,10 @@ A non-nil value may result in truncated bookmark names." :type 'boolean :group 'bookmark) +(defface bookmark-menu-bookmark + '((t (:weight bold))) + "Face used to highlight bookmark names in bookmark menu buffers." + :group 'bookmark) (defcustom bookmark-menu-length 70 "Maximum length of a bookmark name displayed on a popup menu." @@ -1182,18 +1186,7 @@ Optional second arg NO-HISTORY means don't record this in the minibuffer history list `bookmark-history'." (interactive (list (bookmark-completing-read "Insert bookmark location"))) (or no-history (bookmark-maybe-historicize-string bookmark-name)) - (let ((start (point))) - (prog1 - (insert (bookmark-location bookmark-name)) - (if (display-mouse-p) - (add-text-properties - start - (save-excursion (re-search-backward - "[^ \t]") - (1+ (point))) - '(mouse-face highlight - follow-link t - help-echo "mouse-2: go to this bookmark in other window")))))) + (insert (bookmark-location bookmark-name))) ;;;###autoload (defalias 'bookmark-locate 'bookmark-insert-location) @@ -1578,7 +1571,8 @@ deletion, or > if it is flagged for displaying." (when (display-mouse-p) (add-text-properties (+ bookmark-bmenu-marks-width start) end - '(mouse-face highlight + '(font-lock-face bookmark-menu-bookmark + mouse-face highlight follow-link t help-echo "mouse-2: go to this bookmark in other window"))) (insert "\n"))) @@ -1726,8 +1720,9 @@ mainly for debugging, and should not be necessary in normal use." (if (display-mouse-p) (add-text-properties start (point) - '(mouse-face - highlight follow-link t help-echo + '(font-lock-face bookmark-menu-bookmark + mouse-face highlight + follow-link t help-echo "mouse-2: go to this bookmark in other window")))) (forward-line 1))))))) -- 2.39.2