diff options
| author | Dave Love <fx@gnu.org> | 2000-02-23 20:44:04 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-02-23 20:44:04 +0000 |
| commit | 3247de96ce43017a61e433f8c7ed99fb4710f38a (patch) | |
| tree | 6f7b5269f9ea37946f0601084d5bd4647740e208 /lisp/term | |
| parent | 32e33f6050464e0dec5ba2a59dd547cc94f6ecc8 (diff) | |
| download | emacs-3247de96ce43017a61e433f8c7ed99fb4710f38a.tar.gz | |
(internal-face-interactive): Update prompt for new read-face-name.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/w32-win.el | 4 |
1 files changed, 2 insertions, 2 deletions
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))))) |