Mercurial > emacs
comparison lisp/ps-print.el @ 87683:6c04697c250d
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 | b9e8ab94c460 |
| children | 4bb19b57806d |
comparison
equal
deleted
inserted
replaced
| 87682:2698fd71ec80 | 87683:6c04697c250d |
|---|---|
| 3995 (memq face ps-italic-faces)) ; Kludge-compatible | 3995 (memq face ps-italic-faces)) ; Kludge-compatible |
| 3996 (or (face-italic-p face) | 3996 (or (face-italic-p face) |
| 3997 (memq face ps-italic-faces)))) | 3997 (memq face ps-italic-faces)))) |
| 3998 | 3998 |
| 3999 (defun ps-face-strikeout-p (face) | 3999 (defun ps-face-strikeout-p (face) |
| 4000 (eq (face-attribute face :strike-through) t)) | 4000 (if (featurep 'xemacs) |
| 4001 nil | |
| 4002 (eq (face-attribute face :strike-through) t))) | |
| 4001 | 4003 |
| 4002 (defun ps-face-overline-p (face) | 4004 (defun ps-face-overline-p (face) |
| 4003 (eq (face-attribute face :overline) t)) | 4005 (if (featurep 'xemacs) |
| 4006 nil | |
| 4007 (eq (face-attribute face :overline) t))) | |
| 4004 | 4008 |
| 4005 (defun ps-face-box-p (face) | 4009 (defun ps-face-box-p (face) |
| 4006 (not (memq (face-attribute face :box) '(nil unspecified)))) | 4010 (if (featurep 'xemacs) |
| 4011 nil | |
| 4012 (not (memq (face-attribute face :box) '(nil unspecified))))) | |
| 4007 | 4013 |
| 4008 (defvar ps-print-color-scale 1.0) | 4014 (defvar ps-print-color-scale 1.0) |
| 4009 | 4015 |
| 4010 (defun ps-color-scale (color) | 4016 (defun ps-color-scale (color) |
| 4011 ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval. | 4017 ;; Scale 16-bit X-COLOR-VALUE to PostScript color value in [0, 1] interval. |