mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* bookmark.el: Define a face to highlight bookmark names in

Browse source 
bookmark menu buffers, where the default is a bold face similarly
to buffer names in buffer menu buffers.  Patch by Matthias Meulien
<orontee {_AT_} gmail.com>.

(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.
This commit is contained in:
Karl Fogel 2013-03-07 16:35:47 -06:00
parent 7a78e19f24
commit c095b77025
2 changed files with 23 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/ChangeLog
View file

@ -1,3 +1,16 @@
2013-03-07 Karl Fogel <kfogel@red-bean.com>
* 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
<orontee {_AT_} gmail.com>.
(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 <kfogel@red-bean.com>
* bookmark.el: Display the bookmark list header similarly to the

25
lisp/bookmark.el
View file

@ -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)))))))