Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 4670:5a54ce6dc945

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 38ef5a6da799
children e3feb329bda9
comparison
equal deleted inserted replaced
4669:2c1fa63dddbc 4670:5a54ce6dc945
704 This function is a simplified version of `set-face-background-pixmap', 704 This function is a simplified version of `set-face-background-pixmap',
705 designed for interactive use." 705 designed for interactive use."
706 (interactive 706 (interactive
707 (let* ((face (read-face-name "Set background pixmap of face: ")) 707 (let* ((face (read-face-name "Set background pixmap of face: "))
708 (default (and (face-background-pixmap-instance face) 708 (default (and (face-background-pixmap-instance face)
709 ((image-instance-file-name 709 (image-instance-file-name
710 (face-background-pixmap-instance face))))) 710 (face-background-pixmap-instance face))))
711 (file (read-file-name 711 (file (read-file-name
712 (format "Set background pixmap of face %s to: " 712 (format "Set background pixmap of face %s to: "
713 (symbol-name face)) 713 (symbol-name face))
714 nil default t nil 714 nil default t nil
715 'background-pixmap-file-history))) 715 'background-pixmap-file-history)))