Mercurial > hg > xemacs-beta

diff lisp/faces.el @ 1139:c2550fff5469

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-12-03 14:02:49 by didierv] Small fix for set-face-background-pixmap-file
author didierv
date Tue, 03 Dec 2002 14:02:50 +0000
parents c6facab13185
children 2f2d12f4f93a
line wrap: on
line diff
--- 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))