# HG changeset patch # User Richard M. Stallman # Date 1009831484 0 # Node ID 8a4077ab418c2d6e144055da2a720a59a72414d9 # Parent 7662f312caf26233c04ea956b10e15057488a469 (various face definitions): Use :weight, not :bold. diff -r 7662f312caf2 -r 8a4077ab418c lisp/calendar/calendar.el --- a/lisp/calendar/calendar.el Mon Dec 31 20:43:36 2001 +0000 +++ b/lisp/calendar/calendar.el Mon Dec 31 20:44:44 2001 +0000 @@ -211,7 +211,7 @@ (((class color) (background dark)) :foreground "yellow") (t - :bold t)) + :weight bold)) "Face for highlighting diary entries." :group 'diary) diff -r 7662f312caf2 -r 8a4077ab418c lisp/eshell/em-ls.el --- a/lisp/eshell/em-ls.el Mon Dec 31 20:43:36 2001 +0000 +++ b/lisp/eshell/em-ls.el Mon Dec 31 20:44:44 2001 +0000 @@ -107,21 +107,21 @@ :group 'eshell-ls) (defface eshell-ls-directory-face - '((((class color) (background light)) (:foreground "Blue" :bold t)) - (((class color) (background dark)) (:foreground "SkyBlue" :bold t)) - (t (:bold t))) + '((((class color) (background light)) (:foreground "Blue" :weight bold)) + (((class color) (background dark)) (:foreground "SkyBlue" :weight bold)) + (t (:weight bold))) "*The face used for highlight directories." :group 'eshell-ls) (defface eshell-ls-symlink-face - '((((class color) (background light)) (:foreground "Dark Cyan" :bold t)) - (((class color) (background dark)) (:foreground "Cyan" :bold t))) + '((((class color) (background light)) (:foreground "Dark Cyan" :weight bold)) + (((class color) (background dark)) (:foreground "Cyan" :weight bold))) "*The face used for highlight symbolic links." :group 'eshell-ls) (defface eshell-ls-executable-face - '((((class color) (background light)) (:foreground "ForestGreen" :bold t)) - (((class color) (background dark)) (:foreground "Green" :bold t))) + '((((class color) (background light)) (:foreground "ForestGreen" :weight bold)) + (((class color) (background dark)) (:foreground "Green" :weight bold))) "*The face used for highlighting executables (not directories, though)." :group 'eshell-ls) @@ -138,14 +138,14 @@ :group 'eshell-ls) (defface eshell-ls-special-face - '((((class color) (background light)) (:foreground "Magenta" :bold t)) - (((class color) (background dark)) (:foreground "Magenta" :bold t))) + '((((class color) (background light)) (:foreground "Magenta" :weight bold)) + (((class color) (background dark)) (:foreground "Magenta" :weight bold))) "*The face used for highlighting non-regular files." :group 'eshell-ls) (defface eshell-ls-missing-face - '((((class color) (background light)) (:foreground "Red" :bold t)) - (((class color) (background dark)) (:foreground "Red" :bold t))) + '((((class color) (background light)) (:foreground "Red" :weight bold)) + (((class color) (background dark)) (:foreground "Red" :weight bold))) "*The face used for highlighting non-existant file names." :group 'eshell-ls) @@ -159,8 +159,8 @@ :group 'eshell-ls) (defface eshell-ls-archive-face - '((((class color) (background light)) (:foreground "Orchid" :bold t)) - (((class color) (background dark)) (:foreground "Orchid" :bold t))) + '((((class color) (background light)) (:foreground "Orchid" :weight bold)) + (((class color) (background dark)) (:foreground "Orchid" :weight bold))) "*The face used for highlighting archived and compressed file names." :group 'eshell-ls) @@ -199,8 +199,8 @@ :group 'eshell-ls) (defface eshell-ls-clutter-face - '((((class color) (background light)) (:foreground "OrangeRed" :bold t)) - (((class color) (background dark)) (:foreground "OrangeRed" :bold t))) + '((((class color) (background light)) (:foreground "OrangeRed" :weight bold)) + (((class color) (background dark)) (:foreground "OrangeRed" :weight bold))) "*The face used for highlighting junk file names." :group 'eshell-ls) diff -r 7662f312caf2 -r 8a4077ab418c lisp/generic-x.el --- a/lisp/generic-x.el Mon Dec 31 20:43:36 2001 +0000 +++ b/lisp/generic-x.el Mon Dec 31 20:44:44 2001 +0000 @@ -1646,20 +1646,20 @@ ("\t+" . 'show-tabs-tab-face))) (defface show-tabs-tab-face - '((((class grayscale) (background light)) (:foreground "LightGray" :bold t)) - (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) + '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold)) + (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold)) (((class color) (background light)) (:foreground "red")) (((class color) (background dark)) (:foreground "red")) - (t (:bold t))) + (t (:weight bold))) "Font Lock mode face used to highlight TABs." :group 'show-tabs) (defface show-tabs-space-face - '((((class grayscale) (background light)) (:foreground "LightGray" :bold t)) - (((class grayscale) (background dark)) (:foreground "DimGray" :bold t)) + '((((class grayscale) (background light)) (:foreground "LightGray" :weight bold)) + (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold)) (((class color) (background light)) (:foreground "yellow")) (((class color) (background dark)) (:foreground "yellow")) - (t (:bold t))) + (t (:weight bold))) "Font Lock mode face used to highlight spaces." :group 'show-tabs) diff -r 7662f312caf2 -r 8a4077ab418c lisp/log-view.el --- a/lisp/log-view.el Mon Dec 31 20:43:36 2001 +0000 +++ b/lisp/log-view.el Mon Dec 31 20:44:44 2001 +0000 @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier ;; Keywords: rcs sccs cvs log version-control -;; Revision: $Id: log-view.el,v 1.11 2001/11/26 16:08:51 spiegel Exp $ +;; Revision: $Id: log-view.el,v 1.12 2001/12/16 16:28:59 monnier Exp $ ;; This file is part of GNU Emacs. @@ -65,8 +65,8 @@ (defface log-view-file-face '((((class color) (background light)) - (:background "grey70" :bold t)) - (t (:bold t))) + (:background "grey70" :weight bold)) + (t (:weight bold))) "Face for the file header line in `log-view-mode'." :group 'log-view) (defvar log-view-file-face 'log-view-file-face) @@ -74,7 +74,7 @@ (defface log-view-message-face '((((class color) (background light)) (:background "grey85")) - (t (:bold t))) + (t (:weight bold))) "Face for the message header line in `log-view-mode'." :group 'log-view) (defvar log-view-message-face 'log-view-message-face) diff -r 7662f312caf2 -r 8a4077ab418c lisp/progmodes/idlwave.el --- a/lisp/progmodes/idlwave.el Mon Dec 31 20:43:36 2001 +0000 +++ b/lisp/progmodes/idlwave.el Mon Dec 31 20:44:44 2001 +0000 @@ -4,7 +4,7 @@ ;; Author: Chris Chase ;; Maintainer: John-David Smith ;; Version: 4.7 -;; Date: $Date: 2001/12/20 18:14:39 $ +;; Date: $Date: 2001/12/30 22:18:30 $ ;; Keywords: languages ;; This file is part of GNU Emacs. @@ -445,7 +445,7 @@ (defface idlwave-help-link-face '((((class color)) (:foreground "Blue")) - (t (:bold t))) + (t (:weight bold))) "Face for highlighting links into IDLWAVE online help." :group 'idlwave-online-help) diff -r 7662f312caf2 -r 8a4077ab418c lisp/progmodes/sh-script.el --- a/lisp/progmodes/sh-script.el Mon Dec 31 20:43:36 2001 +0000 +++ b/lisp/progmodes/sh-script.el Mon Dec 31 20:44:44 2001 +0000 @@ -766,12 +766,12 @@ (defface sh-heredoc-face '((((class color) (background dark)) - (:foreground "yellow" :bold t)) + (:foreground "yellow" :weight bold)) (((class color) (background light)) (:foreground "tan" )) (t - (:bold t))) + (:weight bold))) "Face to show a here-document" :group 'sh-indentation) (defvar sh-heredoc-face 'sh-heredoc-face) diff -r 7662f312caf2 -r 8a4077ab418c lisp/speedbar.el --- a/lisp/speedbar.el Mon Dec 31 20:43:36 2001 +0000 +++ b/lisp/speedbar.el Mon Dec 31 20:44:44 2001 +0000 @@ -4146,7 +4146,7 @@ (:foreground "cyan4")) (((class color) (background dark)) (:foreground "cyan")) - (t (:bold t))) + (t (:weight bold))) "Face used for file names." :group 'speedbar-faces) diff -r 7662f312caf2 -r 8a4077ab418c lisp/textmodes/flyspell.el --- a/lisp/textmodes/flyspell.el Mon Dec 31 20:43:36 2001 +0000 +++ b/lisp/textmodes/flyspell.el Mon Dec 31 20:44:44 2001 +0000 @@ -398,14 +398,14 @@ ;* Highlighting */ ;*---------------------------------------------------------------------*/ (defface flyspell-incorrect-face - '((((class color)) (:foreground "OrangeRed" :bold t :underline t)) - (t (:bold t))) + '((((class color)) (:foreground "OrangeRed" :weight bold :underline t)) + (t (:weight bold))) "Face used for marking a misspelled word in Flyspell." :group 'flyspell) (defface flyspell-duplicate-face - '((((class color)) (:foreground "Gold3" :bold t :underline t)) - (t (:bold t))) + '((((class color)) (:foreground "Gold3" :weight bold :underline t)) + (t (:weight bold))) "Face used for marking a misspelled word that appears twice in the buffer. See also `flyspell-duplicate-distance'." :group 'flyspell)