(bookmark-menu-heading): New face.

(bookmark-bmenu-list): Use it.
Don't fiddle with `baud-rate' at top-level.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c155a9084bcf32a56b206c9b65fc16f985b6451..675dc73840a747c5f0e8919e78c756654d178c14 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-10-19  Romain Francoise  <romain@orebokech.com>
+
+       * bookmark.el (bookmark-menu-heading): New face.
+       (bookmark-bmenu-list): Use it.
+       Don't fiddle with `baud-rate' at top-level.
+
 2005-10-18  Chong Yidong  <cyd@stupidchicken.com>
 
        * image.el (create-image, find-image): Mention max-image-size in

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 75228288fff415dddc110fcb9622c7dbf9342455..86fa6e489f082a2404d1badc56ef8590ebb1af0c 100644 (file)
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -198,6 +198,13 @@ following in your `.emacs' file:
   :group 'bookmark)
 
 
+(defface bookmark-menu-heading
+  '((t (:inherit font-lock-type-face)))
+  "Face used to highlight the heading in bookmark menu buffers."
+  :group 'bookmark
+  :version "22.1")
+
+
 ;;; No user-serviceable parts beyond this point.
 
 ;; Is it XEmacs?
@@ -211,12 +218,6 @@ following in your `.emacs' file:
 ;; suggested for lucid compatibility by david hughes:
 (or (fboundp 'frame-height)  (defalias 'frame-height 'screen-height))
 
-;; This variable is probably obsolete now...
-(or (boundp 'baud-rate)
-    ;; some random value higher than 9600
-    (setq baud-rate 19200))
-
-
 \f
 ;;; Keymap stuff:
 
@@ -1555,6 +1556,8 @@ deletion, or > if it is flagged for displaying."
   (let ((inhibit-read-only t))
     (erase-buffer)
     (insert "% Bookmark\n- --------\n")
+    (add-text-properties (point-min) (point)
+                        '(font-lock-face bookmark-menu-heading))
     (bookmark-maybe-sort-alist)
     (mapcar
      (lambda (full-record)