# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1019883409 0
# Node ID fc1fdc78c3ebb1206bfbdfb6e3bd6b1e76d71c76
# Parent  38d4beae98c84d9e226ac4e0222ec14bbfc19d6d
(read-face-name): Format the prompt correctly when there's no default.

diff -r 38d4beae98c8 -r fc1fdc78c3eb lisp/faces.el
--- a/lisp/faces.el	Sat Apr 27 03:50:12 2002 +0000
+++ b/lisp/faces.el	Sat Apr 27 04:56:49 2002 +0000
@@ -879,7 +879,7 @@
 		 (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 @@
 	(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