From d69ab4ba1fd07e090e854f34623743362bf4ed18 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 17 Nov 2005 07:20:51 +0000 Subject: [PATCH] (face-read-string): Set the default value arg of completing-read. --- lisp/faces.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 2.39.2