# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1129715143 0
# Node ID 54d9518d91131eebf6b4bbb638cb4949455b6c21
# Parent  568d40ba6f52db7330ad5d95a01b94b8055d9ab2
(bookmark-menu-heading): New face.
(bookmark-bmenu-list): Use it.
Don't fiddle with `baud-rate' at top-level.

diff -r 568d40ba6f52 -r 54d9518d9113 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Oct 19 04:47:50 2005 +0000
+++ b/lisp/ChangeLog	Wed Oct 19 09:45:43 2005 +0000
@@ -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 -r 568d40ba6f52 -r 54d9518d9113 lisp/bookmark.el
--- a/lisp/bookmark.el	Wed Oct 19 04:47:50 2005 +0000
+++ b/lisp/bookmark.el	Wed Oct 19 09:45:43 2005 +0000
@@ -198,6 +198,13 @@
   :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 @@
 ;; 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))
-
-
 
 ;;; Keymap stuff:
 
@@ -1555,6 +1556,8 @@
   (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)