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 d7fa07136b40cdf1e43843ce73b1a11b8520fc49..061b9106c1e1ce67575ccc092ec5dde92b352e7f 100644 (file)
--- 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)