From 37789292971ec72b1a13b3f55fb027a13d374a78 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Wed, 19 Oct 2005 09:45:43 +0000 Subject: [PATCH] (bookmark-menu-heading): New face. (bookmark-bmenu-list): Use it. Don't fiddle with `baud-rate' at top-level. --- lisp/ChangeLog | 6 ++++++ lisp/bookmark.el | 15 +++++++++------ 2 files changed, 15 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9c155a9084b..675dc73840a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-10-19 Romain Francoise + + * 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 * image.el (create-image, find-image): Mention max-image-size in diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 75228288fff..86fa6e489f0 100644 --- 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)) - - ;;; 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) -- 2.11.4.GIT