Commit d69ab4ba authored by Juri Linkov's avatar Juri Linkov
Browse files

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

parent ad1b5701
...@@ -1019,7 +1019,7 @@ Value is the new attribute value." ...@@ -1019,7 +1019,7 @@ Value is the new attribute value."
(format "%s for face `%s' (default %s): " (format "%s for face `%s' (default %s): "
name face default) name face default)
(format "%s for face `%s': " name face)) (format "%s for face `%s': " name face))
completion-alist))) completion-alist nil nil nil nil default)))
(if (equal value "") default value))) (if (equal value "") default value)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment