diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2008-01-09 12:48:42 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2008-01-09 12:48:42 +0000 |
| commit | 6870e775305e94e3d9a3adcb4da3616c703c90a3 (patch) | |
| tree | 46de03ce8adba1876ca47cbdd6569806e165a8ba /lisp | |
| parent | 622face2db67129761aa128450c132aa48386a84 (diff) | |
| download | emacs-6870e775305e94e3d9a3adcb4da3616c703c90a3.tar.gz | |
Fix code of ps-face-strikeout-p, ps-face-overline-p and ps-face-box-p
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ps-print.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index d7fa07136b4..061b9106c1e 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -3997,13 +3997,19 @@ It can be retrieved with `(ps-get ALIST-SYM KEY)'." (memq face ps-italic-faces)))) (defun ps-face-strikeout-p (face) - (eq (face-attribute face :strike-through) t)) + (if (featurep 'xemacs) + nil + (eq (face-attribute face :strike-through) t))) (defun ps-face-overline-p (face) - (eq (face-attribute face :overline) t)) + (if (featurep 'xemacs) + nil + (eq (face-attribute face :overline) t))) (defun ps-face-box-p (face) - (not (memq (face-attribute face :box) '(nil unspecified)))) + (if (featurep 'xemacs) + nil + (not (memq (face-attribute face :box) '(nil unspecified))))) (defvar ps-print-color-scale 1.0) |