Mercurial > emacs

changeset 42456:8a4077ab418c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(various face definitions): Use :weight, not :bold.
author Richard M. Stallman <rms@gnu.org>
date Mon, 31 Dec 2001 20:44:44 +0000
parents 7662f312caf2
children 92d30d7a9371
files lisp/calendar/calendar.el lisp/eshell/em-ls.el lisp/generic-x.el lisp/log-view.el lisp/progmodes/idlwave.el lisp/progmodes/sh-script.el lisp/speedbar.el lisp/textmodes/flyspell.el
diffstat 8 files changed, 35 insertions(+), 35 deletions(-) [+]
line wrap: on
line diff
--- 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)
 
--- 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)
 
--- 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)
 
--- 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 <monnier@cs.yale.edu>
 ;; 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)
--- 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 <chase@att.com>
 ;; Maintainer: John-David Smith <jdsmith@astro.cornell.edu>
 ;; 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)
 
--- 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)
--- 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)
 
--- 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)