+2007-07-20 Vinicius Jose Latorre <viniciusjl@ig.com.br>
+
+ * ps-print.el: Problem with foreground and background color when
+ printing a buffer with and without faces. Reported by Christian
+ Schlauer <cs-muelleimer-rubbish.bin@arcor.de>.
+ (ps-print-version): New version 7.2.4.
+ (ps-default-fg): Change default value to nil, so black color is used
+ when a face does not specify a foreground color.
+ (ps-default-bg): Change default value to nil, so white color is used
+ for background color.
+ (ps-begin-job): Fix code.
+
2007-06-26 Kenichi Handa <handa@m17n.org>
* dnd.el (dnd-get-local-file-name): Call replace-regexp-in-string
;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, print, PostScript
-;; Version: 7.2.3
+;; Version: 7.2.4
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
-(defconst ps-print-version "7.2.3"
- "ps-print.el, v 7.2.3 <2007/05/13 vinicius>
+(defconst ps-print-version "7.2.4"
+ "ps-print.el, v 7.2.4 <2007/07/20 vinicius>
Vinicius's last change version -- this file may have been edited as part of
Emacs without changes to the version number. When reporting bugs, please also
:version "20"
:group 'ps-print-color)
-(defcustom ps-default-fg 'frame-parameter
+(defcustom ps-default-fg nil
"*RGB values of the default foreground color.
The `ps-default-fg' variable contains the default foreground color used by
:version "20"
:group 'ps-print-color)
-(defcustom ps-default-bg 'frame-parameter
+(defcustom ps-default-bg nil
"*RGB values of the default background color.
The `ps-default-bg' variable contains the default background color used by
((eq ps-print-control-characters 'control)
"[\000-\037\177]")
(t "[\t\n\f]"))
+ ;; Set the color scale. We do it here instead of in the defvar so
+ ;; that ps-print can be dumped into emacs. This expression can't be
+ ;; evaluated at dump-time because X isn't initialized.
+ ps-color-p (and ps-print-color-p (ps-color-device))
+ ps-print-color-scale (if ps-color-p
+ (float (car (ps-color-values "white")))
+ 1.0)
ps-default-background (ps-rgb-color
(cond
- ((eq genfunc 'ps-generate-postscript)
+ ((or (not (eq ps-print-color-p t))
+ (eq genfunc 'ps-generate-postscript))
nil)
((eq ps-default-bg 'frame-parameter)
(ps-frame-parameter nil 'background-color))
1.0)
ps-default-foreground (ps-rgb-color
(cond
- ((eq genfunc 'ps-generate-postscript)
+ ((or (not (eq ps-print-color-p t))
+ (eq genfunc 'ps-generate-postscript))
nil)
((eq ps-default-fg 'frame-parameter)
(ps-frame-parameter nil 'foreground-color))
ps-default-fg))
"unspecified-fg"
0.0)
- ps-default-color (and (eq ps-print-color-p t) ps-default-foreground)
- ps-current-color ps-default-color
- ;; Set the color scale. We do it here instead of in the defvar so
- ;; that ps-print can be dumped into emacs. This expression can't be
- ;; evaluated at dump-time because X isn't initialized.
- ps-color-p (and ps-print-color-p (ps-color-device))
- ps-print-color-scale (if ps-color-p
- (float (car (ps-color-values "white")))
- 1.0)
+ ps-default-color (and (eq ps-print-color-p t)
+ ps-default-foreground)
+ ps-current-color ps-default-color
;; Set up default functions. They may be overridden by
;; ps-mule-begin-job.
ps-basic-plot-string-function 'ps-basic-plot-string