# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 873790392 0
# Node ID 0c9342c1054d81819ea44960e6ae15598e7e1eac
# Parent  5797c2cbac2a3d802515e53f29b20eb4dc0bbad0
(ps-face-bold-p): Use face-bold-p.
(ps-face-italic-p): Use face-italic-p.

diff -r 5797c2cbac2a -r 0c9342c1054d lisp/ps-print.el
--- a/lisp/ps-print.el	Tue Sep 09 07:24:02 1997 +0000
+++ b/lisp/ps-print.el	Tue Sep 09 07:33:12 1997 +0000
@@ -1181,7 +1181,7 @@
 
 (defcustom ps-auto-font-detect t
   "*Non-nil means automatically detect bold/italic face attributes.
-nil means rely solely on the lists `ps-bold-faces', `ps-italic-faces',
+If nil, we rely solely on the lists `ps-bold-faces', `ps-italic-faces',
 and `ps-underlined-faces'."
   :type 'boolean
   :group 'ps-print-font)
@@ -3269,14 +3269,13 @@
 
 (defun ps-face-bold-p (face)
   (if (eq ps-print-emacs-type 'emacs)
-      (ps-emacs-face-kind-p face 'bold "-\\(bold\\|demibold\\)-"
-			    ps-bold-faces)
+      (face-bold-p face)
     (ps-xemacs-face-kind-p face 'WEIGHT_NAME "bold\\|demibold"
 			   ps-bold-faces)))
 
 (defun ps-face-italic-p (face)
   (if (eq ps-print-emacs-type 'emacs)
-      (ps-emacs-face-kind-p face 'italic "-[io]-" ps-italic-faces)
+      (face-italic-p face)
     (or
      (ps-xemacs-face-kind-p face 'ANGLE_NAME "i\\|o" ps-italic-faces)
      (ps-xemacs-face-kind-p face 'SLANT "i\\|o" ps-italic-faces))))