[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v

[Vinicius Jose Latorre]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Vinicius Jose Latorre <viniciusjl>      08/01/09 12:48:42

Index: ps-print.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.211
retrieving revision 1.212
diff -u -b -r1.211 -r1.212
--- ps-print.el 9 Jan 2008 04:26:53 -0000       1.211
+++ ps-print.el 9 Jan 2008 12:48:42 -0000       1.212
@@ -3997,13 +3997,19 @@
        (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)