From 3247de96ce43017a61e433f8c7ed99fb4710f38a Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 23 Feb 2000 20:44:04 +0000 Subject: (internal-face-interactive): Update prompt for new read-face-name. --- lisp/term/w32-win.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/term') diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index c52ca39467..1fc7bd3336 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))))) -- cgit v1.2.3