Mercurial > emacs
changeset 19843:0c9342c1054d
(ps-face-bold-p): Use face-bold-p.
(ps-face-italic-p): Use face-italic-p.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Sep 1997 07:33:12 +0000 |
| parents | 5797c2cbac2a |
| children | 1e682aef0ce0 |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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))))