(various face definitions): Use :weight, not :bold.

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index f65f48f659956c93430a4991c1d0d15af049b544..cdae40ad9a3a221686a66d512d74d600d9de0ef3 100644 (file)
--- 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 00b426bac4c0c7d01e318419b18e3ea9e02e105c..9ddffc6acf052b48e3b71be18626aa781db84d29 100644 (file)
--- 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 7b2c86a7c7b0446d46ca6a48e0568c8c89c26974..e8412ce592ca41dad7716ad743c3e736d23160b6 100644 (file)
--- 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 bf3945837c9919b45d6fc1d874da7746e43833c5..219359344fa9b83cde028ce9a364de1e9f8b9c55 100644 (file)
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -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)

diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index db9a61cd47d7297e650ddf7e5ad13d3bbbd3b9a5..1f80f3f15cd7ad364d20e4d6356fa2b27d9d14e0 100644 (file)
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -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 @@ 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 e0448990de2bac5d3b9b3815ddd8d0e91f768555..e2fa205872b5442786c5d542b2a06aa73ed2be2d 100644 (file)
--- 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 d60d38a8275f144e9dd0f11e498a7535e55b2edf..5a01717a19b4efe0d71932fe5a526a0ad4a61998 100644 (file)
--- 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 86070e5386027090ec9d72982dd9f0f5a26cba42..21d1b8b9ac5d33db1eb40bff78de0537ddb3cba2 100644 (file)
--- 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)