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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7721b87f3d1a64d4528aacea63abc2b8c439ce38..bc9baeb74fe37c51b5c8ecc318427809a5594b6f 100644 (file)
--- 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 7b0381992cfdab2720915d2c2cfb12725d32995a..e4002246148f2b3d9a3cc8c20628e0e5daef4459 100644 (file)
--- 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