# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 951338644 0
# Node ID 866f7a6b82b30a5a203439201f7263058dde5365
# Parent  05cce359cbf09c1e7c9560740864703eb3d9fd2d
(internal-face-interactive): Update prompt for new read-face-name.

diff -r 05cce359cbf0 -r 866f7a6b82b3 lisp/term/w32-win.el
--- a/lisp/term/w32-win.el	Wed Feb 23 20:39:38 2000 +0000
+++ b/lisp/term/w32-win.el	Wed Feb 23 20:44:04 2000 +0000
@@ -783,8 +783,8 @@
 
 (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)))))