Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b1040992
Commit
b1040992
authored
Jul 25, 2007
by
Vinicius Jose Latorre
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix foreground/background color
parent
ee04257d
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
37 additions
and
20 deletions
+37
-20
lisp/ChangeLog
lisp/ChangeLog
+12
-0
lisp/ps-print.el
lisp/ps-print.el
+25
-20
No files found.
lisp/ChangeLog
View file @
b1040992
2007-07-24 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 6.7.5.
(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-07-24 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-revision-completion-table): Temporarily comment
lisp/ps-print.el
View file @
b1040992
...
...
@@ -10,11 +10,11 @@
;; Maintainer: Kenichi Handa <handa@m17n.org> (multi-byte characters)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, print, PostScript
;; Version: 6.7.
4
;; Version: 6.7.
5
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
(
defconst
ps-print-version
"6.7.
4
"
"ps-print.el, v 6.7.
4
<2007/0
5/13
vinicius>
(
defconst
ps-print-version
"6.7.
5
"
"ps-print.el, v 6.7.
5
<2007/0
7/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
...
...
@@ -2987,7 +2987,7 @@ Any other value is treated as t."
: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
...
...
@@ -3030,7 +3030,7 @@ It's used only when `ps-print-color-p' is non-nil."
:version
"20"
:group
'ps-print-color
)
(
defcustom
ps-default-bg
"white"
(
defcustom
ps-default-bg
nil
"*RGB values of the default background color.
The `ps-default-bg' variable contains the default background color used by
...
...
@@ -3702,7 +3702,7 @@ The table depends on the current ps-print setup."
;; ps-page-dimensions-database
;; ps-font-info-database
;;; ps-print - end of settings\n"
)
\
;;; ps-print - end of settings\n"
)
"\n"
)))
...
...
@@ -5622,9 +5622,11 @@ XSTART YSTART are the relative position for the first page in a sheet.")
ps-zebra-stripe-height)
"
/ZebraColor
"
(ps-format-color ps-zebra-color 0.95)
"
def\n/BackgroundColor
"
"
def\n
")
(ps-output "
/BackgroundColor
"
(ps-format-color ps-default-background 1.0)
"
def\n/UseSetpagedevice
"
"
def\n
")
(ps-output "
/UseSetpagedevice
"
(if (eq ps-spool-config 'setpagedevice)
"
/setpagedevice
where{pop
languagelevel
2
eq}{false}ifelse
"
"
false
")
...
...
@@ -5909,9 +5911,17 @@ XSTART YSTART are the relative position for the first page in a sheet.")
((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))
...
...
@@ -5923,7 +5933,8 @@ XSTART YSTART are the relative position for the first page in a sheet.")
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))
...
...
@@ -5933,15 +5944,9 @@ XSTART YSTART are the relative position for the first page in a sheet.")
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)
;; initialize page dimensions
(ps-get-page-dimensions)
;; final check
...
...
@@ -7073,5 +7078,5 @@ It is assumed that the length of STRING is not zero.")
(
provide
'ps-print
)
;;
;
arch-tag: fb06a585-1112-4206-885d-a57d95d50579
;; arch-tag: fb06a585-1112-4206-885d-a57d95d50579
;;; ps-print.el ends here
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment