Skip to content

GitLab

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
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
lisp/faces.el
View file @ d69ab4ba
......@@ -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)))
......
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