From 7f72c06f7f65f95adb305443fc5c5451894ee397 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 9 Sep 1997 07:33:12 +0000 Subject: [PATCH] (ps-face-bold-p): Use face-bold-p. (ps-face-italic-p): Use face-italic-p. --- lisp/ps-print.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/ps-print.el b/lisp/ps-print.el index e1e58a93cea..1ea38b98c52 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -1181,7 +1181,7 @@ when generating Postscript." (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 @@ If FACE is not a valid face name, it is used default face." (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)))) -- 2.39.2