Mercurial > emacs

changeset 77744:2054f6825314

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use default color when foreground or background color are unspecified.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Fri, 18 May 2007 02:39:28 +0000
parents 38ddf96afefe
children 64e88cc500d9
files lisp/ChangeLog lisp/ps-print.el
diffstat 2 files changed, 35 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu May 17 21:34:58 2007 +0000
+++ b/lisp/ChangeLog	Fri May 18 02:39:28 2007 +0000
@@ -1,3 +1,12 @@
+2007-05-17  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+	* ps-print.el: Use default color when foreground or background color
+	are unspecified.  Reported by Leo <sdl.web@gmail.com>.
+	(ps-print-version): New version 6.7.4.
+	(ps-rgb-color): New argument.  Use default color when color is
+	unspecified.
+	(ps-begin-job): Fix code.
+
 2007-05-17  Martin Rudalics  <rudalics@gmx.at>
 
 	* textmodes/ispell.el (ispell-start-process): Defend against bad
--- a/lisp/ps-print.el	Thu May 17 21:34:58 2007 +0000
+++ b/lisp/ps-print.el	Fri May 18 02:39:28 2007 +0000
@@ -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.3
+;; Version: 6.7.4
 ;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
 
-(defconst ps-print-version "6.7.3"
-  "ps-print.el, v 6.7.3 <2007/02/06 vinicius>
+(defconst ps-print-version "6.7.4"
+  "ps-print.el, v 6.7.4 <2007/05/13 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
@@ -5817,21 +5817,27 @@
   (ps-get-size (symbol-value font-sym) "font size" font-sym))
 
 
-(defun ps-rgb-color (color default)
-  (cond ((and color (listp color) (= (length color) 3)
-	      (let ((cl color)
-		    (ok t) e)
-		(while (and ok cl)
-		  (setq e  (car cl)
-			cl (cdr cl)
-			ok (and (floatp e) (<= 0.0 e) (<= e 1.0))))
-		ok))
-	 color)
-	((and (floatp color) (<= 0.0 color) (<= color 1.0))
-	 (list color color color))
-	((stringp color) (ps-color-scale color))
-	(t (list default default default))
-	))
+(defun ps-rgb-color (color unspecified default)
+  (cond
+   ;; (float float float) ==> (R G B)
+   ((and color (listp color) (= (length color) 3)
+	 (let ((cl color)
+	       (ok t) e)
+	   (while (and ok cl)
+	     (setq e  (car cl)
+		   cl (cdr cl)
+		   ok (and (floatp e) (<= 0.0 e) (<= e 1.0))))
+	   ok))
+    color)
+   ;; float ==> 0.0 = black .. 1.0 = white
+   ((and (floatp color) (<= 0.0 color) (<= color 1.0))
+    (list color color color))
+   ;; "colorName" but different from "unspecified-[bf]g"
+   ((and (stringp color) (not (string= color unspecified)))
+    (ps-color-scale color))
+   ;; ok, use the default
+   (t
+    (list default default default))))
 
 
 (defun ps-begin-job (genfunc)
@@ -5913,6 +5919,7 @@
 				 (ps-face-background-name 'default))
 				(t
 				 ps-default-bg))
+			       "unspecified-bg"
 			       1.0)
 	ps-default-foreground (ps-rgb-color
 			       (cond
@@ -5924,6 +5931,7 @@
 				 (ps-face-foreground-name 'default))
 				(t
 				 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