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

lisp/ChangeLog

+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

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