changeset: 4670:5a54ce6dc945
tag: tip
user: Aidan Kehoe <kehoea(a)parhasard.net>
date: Sun Aug 09 12:38:04 2009 +0100
files: lisp/ChangeLog lisp/faces.el
description:
Remove some extra parentheses, #'set-face-background-pixmap-file.
lisp/ChangeLog addition:
2009-08-09 Aidan Kehoe <kehoea(a)parhasard.net>
* faces.el (set-face-background-pixmap-file):
Remove some extra parentheses revealed by change set 7757334005ae.
diff -r 2c1fa63dddbc -r 5a54ce6dc945 lisp/ChangeLog
--- a/lisp/ChangeLog Tue Jul 28 23:29:22 2009 +0900
+++ b/lisp/ChangeLog Sun Aug 09 12:38:04 2009 +0100
@@ -1,3 +1,8 @@
+2009-08-09 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * faces.el (set-face-background-pixmap-file):
+ Remove some extra parentheses revealed by change set 7757334005ae.
+
2009-07-28 Mike Sperber <mike(a)xemacs.org>
* startup.el (startup-setup-paths): Use `emacs-data-roots' instead
diff -r 2c1fa63dddbc -r 5a54ce6dc945 lisp/faces.el
--- a/lisp/faces.el Tue Jul 28 23:29:22 2009 +0900
+++ b/lisp/faces.el Sun Aug 09 12:38:04 2009 +0100
@@ -706,8 +706,8 @@
(interactive
(let* ((face (read-face-name "Set background pixmap of face: "))
(default (and (face-background-pixmap-instance face)
- ((image-instance-file-name
- (face-background-pixmap-instance face)))))
+ (image-instance-file-name
+ (face-background-pixmap-instance face))))
(file (read-file-name
(format "Set background pixmap of face %s to: "
(symbol-name face))
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches