[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog ps-print.el
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog ps-print.el |
Date: |
Sun, 25 Jan 2009 01:20:35 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Vinicius Jose Latorre <viniciusjl> 09/01/25 01:20:35
Modified files:
lisp : ChangeLog ps-print.el
Log message:
Fix face background/foreground extraction.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15172&r2=1.15173
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ps-print.el?cvsroot=emacs&r1=1.223&r2=1.224
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15172
retrieving revision 1.15173
diff -u -b -r1.15172 -r1.15173
--- ChangeLog 25 Jan 2009 00:55:22 -0000 1.15172
+++ ChangeLog 25 Jan 2009 01:20:28 -0000 1.15173
@@ -4,6 +4,16 @@
change its title from "Recursive grep..." to "Grep via Find...".
Add menu items for lgrep and rgrep.
+2009-01-24 Vinicius Jose Latorre <address@hidden>
+
+ * ps-print.el (ps-print-version): New version 7.3.4.
+
+2009-01-24 Eduard Wiebe <address@hidden> (tiny change)
+
+ * ps-print.el: Fix face background/foreground extraction.
+ (ps-face-extract-color): New fun.
+ (ps-face-attributes, ps-face-attribute-list): Code fix.
+
2009-01-24 Geoff Gole <address@hidden> (tiny change)
* align.el (align-region): Avoid infloop.
Index: ps-print.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/ps-print.el,v
retrieving revision 1.223
retrieving revision 1.224
diff -u -b -r1.223 -r1.224
--- ps-print.el 6 Jan 2009 02:13:40 -0000 1.223
+++ ps-print.el 25 Jan 2009 01:20:34 -0000 1.224
@@ -11,11 +11,11 @@
;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
;; Vinicius Jose Latorre <address@hidden>
;; Keywords: wp, print, PostScript
-;; Version: 7.3.3
+;; Version: 7.3.4
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
-(defconst ps-print-version "7.3.3"
- "ps-print.el, v 7.3.3 <2008/10/22 vinicius>
+(defconst ps-print-version "7.3.4"
+ "ps-print.el, v 7.3.4 <2009/01/24 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
@@ -6235,6 +6235,13 @@
(memq attr '(foreground-color :foreground background-color :background)))
+(defun ps-face-extract-color (face-attrs)
+ (let ((color (cdr face-attrs)))
+ (if (listp color)
+ (car color)
+ color)))
+
+
(defun ps-face-attributes (face)
"Return face attribute vector.
@@ -6259,9 +6266,9 @@
(cons new-face ps-print-face-alist)))
new-face))))
((ps-face-foreground-color-p (car face))
- (vector 0 (cdr face) nil))
+ (vector 0 (ps-face-extract-color face) nil))
((ps-face-background-color-p (car face))
- (vector 0 nil (cdr face)))
+ (vector 0 nil (ps-face-extract-color face)))
(t
(vector 0 nil nil))))
@@ -6295,10 +6302,10 @@
(ps-face-attributes face-or-list))
;; only foreground color, not a `real' face
((ps-face-foreground-color-p (car face-or-list))
- (vector 0 (cdr face-or-list) nil))
+ (vector 0 (ps-face-extract-color face-or-list) nil))
;; only background color, not a `real' face
((ps-face-background-color-p (car face-or-list))
- (vector 0 nil (cdr face-or-list)))
+ (vector 0 nil (ps-face-extract-color face-or-list)))
;; list of faces
(t
(let ((effects 0)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog ps-print.el,
Vinicius Jose Latorre <=