# HG changeset patch # User didierv # Date 1038924170 0 # Node ID c2550fff54699aa514fea7f25147dca7e58169e2 # Parent 05ed51332340e3f80128b9b791991962844ca984 [xemacs-hg @ 2002-12-03 14:02:49 by didierv] Small fix for set-face-background-pixmap-file diff -r 05ed51332340 -r c2550fff5469 lisp/ChangeLog --- a/lisp/ChangeLog Tue Dec 03 11:01:44 2002 +0000 +++ b/lisp/ChangeLog Tue Dec 03 14:02:50 2002 +0000 @@ -1,3 +1,8 @@ +2002-12-03 Didier Verna + + * faces.el (set-face-background-pixmap-file): Ensure default value + can be computed. + 2002-12-03 Didier Verna * faces.el (background-pixmap-file-history): New. diff -r 05ed51332340 -r c2550fff5469 lisp/faces.el --- a/lisp/faces.el Tue Dec 03 11:01:44 2002 +0000 +++ b/lisp/faces.el Tue Dec 03 14:02:50 2002 +0000 @@ -635,11 +635,13 @@ designed for interactive use." (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))))) (file (read-file-name (format "Set background pixmap of face %s to: " (symbol-name face)) - nil (image-instance-file-name - (face-background-pixmap-instance face)) t nil + nil default t nil 'background-pixmap-file-history))) (list face (if (equal file "") nil file)))) (set-face-property face 'background-pixmap file))