# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1249817884 -3600
# Node ID 5a54ce6dc945279db370f99b25772b6d7aad352f
# Parent  2c1fa63dddbc000e31b166b486b66f6a996c2211
Remove some extra parentheses, #'set-face-background-pixmap-file.

lisp/ChangeLog addition:

2009-08-09  Aidan Kehoe  <kehoea@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@parhasard.net>
+
+	* faces.el (set-face-background-pixmap-file): 
+	Remove some extra parentheses revealed by change set 7757334005ae.
+
 2009-07-28  Mike Sperber  <mike@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))