procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ps-face-bold-p): Use face-bold-p.

Browse source 
(ps-face-italic-p): Use face-italic-p.
This commit is contained in:
Richard M. Stallman 1997-09-09 07:33:12 +00:00
parent af898b0f84
commit 7f72c06f7f
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ps-print.el
View file

@ -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))))