# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1132212051 0
# Node ID 35ab5e34fdf537918db12bb01734b7d71f67124c
# Parent  b42f333ee0f49820f837025522a634bd5aa6b4f1
(face-read-string): Set the default value arg of completing-read.

diff -r b42f333ee0f4 -r 35ab5e34fdf5 lisp/faces.el
--- a/lisp/faces.el	Thu Nov 17 07:19:54 2005 +0000
+++ b/lisp/faces.el	Thu Nov 17 07:20:51 2005 +0000
@@ -1019,7 +1019,7 @@
 		     (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)))