[Emacs-diffs] /srv/bzr/emacs/trunk r111967: * bookmark.el: Define a face to highlight bookmark names in

[Karl Fogel]

------------------------------------------------------------
revno: 111967
committer: Karl Fogel <address@hidden>
branch nick: trunk
timestamp: Thu 2013-03-07 16:35:47 -0600
message:
  * 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): 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.
modified:
  lisp/ChangeLog
  lisp/bookmark.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-07 22:33:22 +0000
+++ b/lisp/ChangeLog    2013-03-07 22:35:47 +0000
@@ -1,5 +1,18 @@
 2013-03-07  Karl Fogel  <address@hidden>
 
+       * 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  <address@hidden>
+
        * bookmark.el: Display the bookmark list header similarly to the
        buffer list header (see `list-buffers'), where the default is now
        an immovable/immutable header line.  Patch by Matthias Meulien

=== modified file 'lisp/bookmark.el'
--- a/lisp/bookmark.el  2013-03-07 22:33:22 +0000
+++ b/lisp/bookmark.el  2013-03-07 22:35:47 +0000
@@ -156,6 +156,10 @@
   :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 @@
 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 @@
         (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 @@
              (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)))))))