diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-09 07:33:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-09 07:33:12 +0000 |
| commit | 94f8f0214f695758060cfad481d85f2f78170ce0 (patch) | |
| tree | 46eb22ab2dfe06915f14679664d91d1500e7436f | |
| parent | 7d51ba9eafb4761f8580d332e31fb6145a04c975 (diff) | |
| download | emacs-94f8f0214f695758060cfad481d85f2f78170ce0.tar.gz | |
(ps-face-bold-p): Use face-bold-p.
(ps-face-italic-p): Use face-italic-p.
| -rw-r--r-- | lisp/ps-print.el | 7 |
1 files 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)))) |