Mercurial > emacs
changeset 27832:866f7a6b82b3
(internal-face-interactive): Update prompt for new read-face-name.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 23 Feb 2000 20:44:04 +0000 |
| parents | 05cce359cbf0 |
| children | d31e5fcf98d7 |
| files | lisp/term/w32-win.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))