(read-face-font, read-face-and-attribute): Tweak prompts.

diff --git a/lisp/faces.el b/lisp/faces.el
index 63a48e358911b7b3a6c1c70596ffcdace846fe15..c95a8ef831db59a5be894ec1202dfbc3c21765f9 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -920,7 +920,7 @@ of a global face.  Value is the new attribute value."
   "Read the name of a font for FACE on FRAME.
 If optional argument FRAME Is nil or omitted, use the selected frame."
   (let ((completion-ignore-case t))
-    (completing-read (format "Set font attributes of face %s from font: " face)
+    (completing-read (format "Set font attributes of face `%s' from font: " face)
                     (mapcar 'list (x-list-fonts "*" nil frame)))))
 
 
@@ -952,7 +952,7 @@ FRAME nil or unspecified means read attribute value of global face.
 Value is a list (FACE NEW-VALUE) where FACE is the face read
 (a symbol), and NEW-VALUE is value read."
   (cond ((eq attribute :font)
-        (let* ((prompt (format "Set font-related attributes of face "))
+        (let* ((prompt "Set font-related attributes of face")
                (face (read-face-name prompt))
                (font (read-face-font face frame)))
           (list face font)))