(read-face-name): Format the prompt correctly when there's no default.

2 files changed, 6 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7721b87f3d1..bc9baeb74fe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-27  Miles Bader  <miles@gnu.org>
+
+        * faces.el (read-face-name): Format the prompt correctly when
+        there's no default.
+
 2002-04-26  Andrew Choi  <akochoi@shaw.ca>
 
         * term/mac-win.el: Don't call ediff-toggle-multiframe.  Set
diff --git a/lisp/faces.el b/lisp/faces.el
index 7b0381992cf..e4002246148 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -879,7 +879,7 @@ Otherwise, return a single face."
                  (format "%s (default %s): " prompt
                          (if faces (mapconcat 'symbol-name faces ", ")
                            string-describing-default))
-               prompt)
+               (format "%s: " prompt))
              obarray 'custom-facep t))
            ;; Canonicalize the output.
            (output
@@ -894,8 +894,6 @@ Otherwise, return a single face."
         (car output)))))
 
 
-
-
 (defun face-valid-attribute-values (attribute &optional frame)
   "Return valid values for face attribute ATTRIBUTE.
 The optional argument FRAME is used to determine available fonts