[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v [EMACS_22_BASE]
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ps-print.el,v [EMACS_22_BASE] |
Date: |
Wed, 08 Aug 2007 16:37:48 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Vinicius Jose Latorre <viniciusjl> 07/08/08 16:37:47
Index: ps-print.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.181.2.4
retrieving revision 1.181.2.5
diff -u -b -r1.181.2.4 -r1.181.2.5
--- ps-print.el 25 Jul 2007 04:47:06 -0000 1.181.2.4
+++ ps-print.el 8 Aug 2007 16:37:46 -0000 1.181.2.5
@@ -3016,7 +3016,8 @@
Any other value is ignored and black color will be used.
-It's used only when `ps-print-color-p' is non-nil."
+This variable is used only when `ps-print-color-p' (which see) is neither nil
+nor black-white."
:type '(choice :menu-tag "Default Foreground Gray/Color"
:tag "Default Foreground Gray/Color"
(const :tag "Session Foreground" t)
@@ -3059,7 +3060,8 @@
Any other value is ignored and white color will be used.
-It's used only when `ps-print-color-p' is non-nil.
+This variable is used only when `ps-print-color-p' (which see) is neither nil
+nor black-white.
See also `ps-use-face-background'."
:type '(choice :menu-tag "Default Background Gray/Color"
@@ -5920,7 +5922,8 @@
1.0)
ps-default-background (ps-rgb-color
(cond
- ((or (not (eq ps-print-color-p t))
+ ((or (member ps-print-color-p
+ '(nil back-white))
(eq genfunc 'ps-generate-postscript))
nil)
((eq ps-default-bg 'frame-parameter)
@@ -5933,7 +5936,8 @@
1.0)
ps-default-foreground (ps-rgb-color
(cond
- ((or (not (eq ps-print-color-p t))
+ ((or (member ps-print-color-p
+ '(nil back-white))
(eq genfunc 'ps-generate-postscript))
nil)
((eq ps-default-fg 'frame-parameter)
@@ -5944,7 +5948,8 @@
ps-default-fg))
"unspecified-fg"
0.0)
- ps-default-color (and (eq ps-print-color-p t)
+ ps-default-color (and (not (member ps-print-color-p
+ '(nil back-white)))
ps-default-foreground)
ps-current-color ps-default-color)
;; initialize page dimensions
- [Emacs-diffs] Changes to emacs/lisp/ps-print.el,v [EMACS_22_BASE],
Vinicius Jose Latorre <=