From: Juri Linkov <juri@jurta.org>
Date: Thu, 17 Nov 2005 07:20:51 +0000 (+0000)
Subject: (face-read-string): Set the default value arg of completing-read.
X-Git-Tag: emacs-pretest-22.0.90~5819
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d69ab4ba1fd07e090e854f34623743362bf4ed18;p=emacs.git

(face-read-string): Set the default value arg of completing-read.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index bcbda67b87b..85d8e882f22 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1019,7 +1019,7 @@ Value is the new attribute value."
 		     (format "%s for face `%s' (default %s): "
 			     name face default)
 		   (format "%s for face `%s': " name face))
-		 completion-alist)))
+		 completion-alist nil nil nil nil default)))
     (if (equal value "") default value)))