Mercurial > hg > xemacs-beta
changeset 4670:5a54ce6dc945
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.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 09 Aug 2009 12:38:04 +0100 |
| parents | 2c1fa63dddbc |
| children | e9b88e997479 |
| files | lisp/ChangeLog lisp/faces.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))