From 6870e775305e94e3d9a3adcb4da3616c703c90a3 Mon Sep 17 00:00:00 2001 From: Vinicius Jose Latorre Date: Wed, 9 Jan 2008 12:48:42 +0000 Subject: [PATCH] Fix code of ps-face-strikeout-p, ps-face-overline-p and ps-face-box-p --- lisp/ps-print.el | 12 +++++++++--- 1 file 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) -- 2.39.5