(internal-face-interactive): Update prompt for new read-face-name.

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index c52ca3946705a72f9790b1b863f4cb3919e19d24..1fc7bd333676e3cb5e042b9ab2447f3f92a2a1b4 100644 (file)
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -783,8 +783,8 @@ See the documentation of `create-fontset-from-fontset-spec for the format.")
 
 (defun internal-face-interactive (what &optional bool)
   (let* ((fn (intern (concat "face-" what)))
-        (prompt (concat "Set " what " of face"))
-        (face (read-face-name (concat prompt ": ")))
+        (prompt (concat "Set " what " of face "))
+        (face (read-face-name prompt))
         (default (if (fboundp fn)
                      (or (funcall fn face (selected-frame))
                          (funcall fn 'default (selected-frame)))))