Mercurial > emacs
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)