From: Dave Love <fx@gnu.org>
Date: Wed, 23 Feb 2000 20:44:04 +0000 (+0000)
Subject: (internal-face-interactive): Update prompt for new read-face-name.
X-Git-Tag: emacs-pretest-21.0.90~4911
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3247de96ce43017a61e433f8c7ed99fb4710f38a;p=emacs.git

(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 c52ca394670..1fc7bd33367 100644
--- 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)))))