changeset 66959:35ab5e34fdf5

(face-read-string): Set the default value arg of completing-read.
author Juri Linkov <juri@jurta.org>
date Thu, 17 Nov 2005 07:20:51 +0000
parents b42f333ee0f4
children 29560f2ff8ed
files lisp/faces.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)))