1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-29 17:53:57 -07:00

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

This commit is contained in:
Juri Linkov 2005-11-17 07:20:51 +00:00
parent ad1b570140
commit d69ab4ba1f

View file

@ -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)))