From 1fd714a4109f5b115bd28142d8c80641eac8f652 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 31 Dec 2001 20:44:44 +0000 Subject: [PATCH] (various face definitions): Use :weight, not :bold. --- lisp/calendar/calendar.el | 2 +- lisp/eshell/em-ls.el | 30 +++++++++++++++--------------- lisp/generic-x.el | 12 ++++++------ lisp/log-view.el | 8 ++++---- lisp/progmodes/idlwave.el | 4 ++-- lisp/progmodes/sh-script.el | 4 ++-- lisp/speedbar.el | 2 +- lisp/textmodes/flyspell.el | 8 ++++---- 8 files changed, 35 insertions(+), 35 deletions(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index f65f48f6599..cdae40ad9a3 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -211,7 +211,7 @@ If nil, make an icon of the frame. If non-nil, delete the frame." (((class color) (background dark)) :foreground "yellow") (t - :bold t)) + :weight bold)) "Face for highlighting diary entries." :group 'diary) diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el index 00b426bac4c..9ddffc6acf0 100644 --- a/lisp/eshell/em-ls.el +++ b/lisp/eshell/em-ls.el @@ -107,21 +107,21 @@ faster and conserves more memory." :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 @@ faster and conserves more memory." :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 @@ files." :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 @@ really need to stick around for very long." :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 --git a/lisp/generic-x.el b/lisp/generic-x.el index 7b2c86a7c7b..e8412ce592c 100644 --- a/lisp/generic-x.el +++ b/lisp/generic-x.el @@ -1646,20 +1646,20 @@ you must reload generic-x to enable the specified modes." ("\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 --git a/lisp/log-view.el b/lisp/log-view.el index bf3945837c9..219359344fa 100644 --- a/lisp/log-view.el +++ b/lisp/log-view.el @@ -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 --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index db9a61cd47d..1f80f3f15cd 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -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 @@ definition is displayed instead." (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 --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index e0448990de2..e2fa205872b 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -766,12 +766,12 @@ See `sh-feature'.") (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 --git a/lisp/speedbar.el b/lisp/speedbar.el index d60d38a8275..5a01717a19b 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -4146,7 +4146,7 @@ TEXT is the buffer's name, TOKEN and INDENT are unused." (:foreground "cyan4")) (((class color) (background dark)) (:foreground "cyan")) - (t (:bold t))) + (t (:weight bold))) "Face used for file names." :group 'speedbar-faces) diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 86070e53860..21d1b8b9ac5 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -398,14 +398,14 @@ property of the major mode name.") ;* 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) -- 2.39.2