changeset 66201:54d9518d9113

(bookmark-menu-heading): New face. (bookmark-bmenu-list): Use it. Don't fiddle with `baud-rate' at top-level.
author Romain Francoise <romain@orebokech.com>
date Wed, 19 Oct 2005 09:45:43 +0000
parents 568d40ba6f52
children 04eb729be330
files lisp/ChangeLog lisp/bookmark.el
diffstat 2 files changed, 15 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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
--- 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)