diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-25 01:03:29 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-25 01:03:29 +0000 |
| commit | 491bce42ebf1e62308c2c29646b406d6127f9ed0 (patch) | |
| tree | 3cd5edcb7dd328e7c93115532cb51e3c25fee238 /lisp/emulation | |
| parent | eb1344af4b33bf6f048066f8a877073b576197fa (diff) | |
| download | emacs-491bce42ebf1e62308c2c29646b406d6127f9ed0.tar.gz | |
(tpu-y-or-n-p): Delete format call inside message.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/tpu-edt.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el index f088e53f29e..6efb8be2b48 100644 --- a/lisp/emulation/tpu-edt.el +++ b/lisp/emulation/tpu-edt.el @@ -561,7 +561,7 @@ current version of Emacs." "Prompt for a y or n answer with positive default. Optional second argument NOT-YES changes default to negative. Like Emacs `y-or-n-p', but also accepts space as y and DEL as n." - (message (format "%s[%s]" prompt (if not-yes "n" "y"))) + (message "%s[%s]" prompt (if not-yes "n" "y")) (let ((doit t)) (while doit (setq doit nil) @@ -573,8 +573,8 @@ Like Emacs `y-or-n-p', but also accepts space as y and DEL as n." ((= ans ?\r) (setq tpu-last-answer (not not-yes))) (t (setq doit t) (beep) - (message (format "Please answer y or n. %s[%s]" - prompt (if not-yes "n" "y")))))))) + (message "Please answer y or n. %s[%s]" + prompt (if not-yes "n" "y"))))))) tpu-last-answer) (defun tpu-local-set-key (key func) |