Mercurial > emacs

changeset 87683:6c04697c250d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix code of ps-face-strikeout-p, ps-face-overline-p and ps-face-box-p
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Wed, 09 Jan 2008 12:48:42 +0000
parents 2698fd71ec80
children 9349c39d2ae0
files lisp/ps-print.el
diffstat 1 files changed, 9 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ps-print.el	Wed Jan 09 10:25:17 2008 +0000
+++ b/lisp/ps-print.el	Wed Jan 09 12:48:42 2008 +0000
@@ -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)