diff options
| author | Juri Linkov | 2005-11-17 07:20:51 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-11-17 07:20:51 +0000 |
| commit | d69ab4ba1fd07e090e854f34623743362bf4ed18 (patch) | |
| tree | 3791bbeca6dfa2f8c1aba9339aa2066aa5c1ce5c | |
| parent | ad1b570140aae57141bdf03e3e81e890160cf588 (diff) | |
| download | emacs-d69ab4ba1fd07e090e854f34623743362bf4ed18.tar.gz emacs-d69ab4ba1fd07e090e854f34623743362bf4ed18.zip | |
(face-read-string): Set the default value arg of completing-read.
| -rw-r--r-- | lisp/faces.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 1019 | (format "%s for face `%s' (default %s): " | 1019 | (format "%s for face `%s' (default %s): " |
| 1020 | name face default) | 1020 | name face default) |
| 1021 | (format "%s for face `%s': " name face)) | 1021 | (format "%s for face `%s': " name face)) |
| 1022 | completion-alist))) | 1022 | completion-alist nil nil nil nil default))) |
| 1023 | (if (equal value "") default value))) | 1023 | (if (equal value "") default value))) |
| 1024 | 1024 | ||
| 1025 | 1025 | ||