changeset 42452:0cfd64a10789

(ps-font-lock-face-attributes): Use :weight and :slant.

--- a/lisp/emulation/viper-init.el	Mon Dec 31 20:22:27 2001 +0000
+++ b/lisp/emulation/viper-init.el	Mon Dec 31 20:32:52 2001 +0000
@@ -850,7 +850,7 @@
 
 (defface viper-minibuffer-emacs-face
   '((((class color)) (:foreground "Black" :background "darkseagreen2"))
-    (t (:bold t)))
+    (t (:weight bold)))
   "Face used in the Minibuffer when it is in Emacs state."
   :group 'viper-highlighting)
 ;; An internal variable.  Viper takes the face from here.
@@ -864,7 +864,7 @@
 
 (defface viper-minibuffer-insert-face
   '((((class color)) (:foreground "Black" :background "pink"))
-    (t (:italic t)))
+    (t (:slant italic)))
   "Face used in the Minibuffer when it is in Insert state."
   :group 'viper-highlighting)
 ;; An internal variable.  Viper takes the face from here.

--- a/lisp/ps-print.el	Mon Dec 31 20:22:27 2001 +0000
+++ b/lisp/ps-print.el	Mon Dec 31 20:32:52 2001 +0000
@@ -4011,9 +4011,9 @@
 		   (setq face-spec (cons ':background
 					 (cons background face-spec))))
 		 (when bold-p
-		   (setq face-spec (append '(:bold t) face-spec)))
+		   (setq face-spec (append '(:weight bold) face-spec)))
 		 (when italic-p
-		   (setq face-spec (append '(:italic t) face-spec)))
+		   (setq face-spec (append '(:slant italic) face-spec)))
 		 (when underline-p
 		   (setq face-spec (append '(:underline t) face-spec)))
 		 (custom-declare-face face (list (list t face-spec)) nil)

--- a/lisp/wid-edit.el	Mon Dec 31 20:22:27 2001 +0000
+++ b/lisp/wid-edit.el	Mon Dec 31 20:32:52 2001 +0000
@@ -111,7 +111,7 @@
   "Face used for buttons in widgets.
 This exists as a variable so it can be set locally in certain buffers.")
 
-(defface widget-button-face '((t (:bold t)))
+(defface widget-button-face '((t (:weight bold)))
   "Face used for widget buttons."
   :group 'widget-faces)
 
@@ -132,7 +132,7 @@
 			       (background dark))
 			      (:background "dim gray"))
 			     (t
-			      (:italic t)))
+			      (:slant italic)))
   "Face used for editable fields."
   :group 'widget-faces)
 
@@ -145,7 +145,7 @@
 					   (background dark))
 					  (:background "dim gray"))
 					 (t
-					  (:italic t)))
+					  (:slant italic)))
   "Face used for editable fields spanning only a single line."
   :group 'widget-faces)
 
@@ -433,7 +433,7 @@
 				  (background light))
 				 (:foreground "dim gray"))
 				(t
-				 (:italic t)))
+				 (:slant italic)))
   "Face used for inactive widgets."
   :group 'widget-faces)
 
@@ -850,7 +850,7 @@
   '((((class color))
      (:foreground "red"))
     (t
-     (:bold t :underline t)))
+     (:weight bold :underline t)))
   "Face used for pressed buttons."
   :group 'widget-faces)
 

--- a/lisp/woman.el	Mon Dec 31 20:22:27 2001 +0000
+++ b/lisp/woman.el	Mon Dec 31 20:32:52 2001 +0000
@@ -840,14 +840,14 @@
 ;; You should probably select either italic or underline as you prefer, but
 ;; not both, although italic and underline work together perfectly well!
 (defface woman-italic-face
-  `((((background light)) (:italic t :underline t :foreground "red"))
-    (((background dark)) (:italic t :underline t)))
+  `((((background light)) (:slant italic :underline t :foreground "red"))
+    (((background dark)) (:slant italic :underline t)))
   "Face for italic font in man pages."
   :group 'woman-faces)
 
 (defface woman-bold-face
-  '((((background light)) (:bold t :foreground "blue"))
-    (((background dark)) (:bold t :foreground "green2")))
+  '((((background light)) (:weight bold :foreground "blue"))
+    (((background dark)) (:weight bold :foreground "green2")))
   "Face for bold font in man pages."
   :group 'woman-faces)