From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Wed, 9 Jan 2008 12:48:42 +0000 (+0000)
Subject: Fix code of ps-face-strikeout-p, ps-face-overline-p and ps-face-box-p
X-Git-Tag: emacs-pretest-23.0.90~8618
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6870e775305e94e3d9a3adcb4da3616c703c90a3;p=emacs.git

Fix code of ps-face-strikeout-p, ps-face-overline-p and ps-face-box-p
---

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)