Mercurial > emacs
diff lisp/emulation/tpu-edt.el @ 14344:1e97bcb05a16
(tpu-y-or-n-p): Delete format call inside message.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 25 Jan 1996 01:03:29 +0000 |
| parents | 04dba88947bc |
| children | 88df8e3ef688 |
line wrap: on
line diff
--- a/lisp/emulation/tpu-edt.el Thu Jan 25 01:03:16 1996 +0000 +++ b/lisp/emulation/tpu-edt.el Thu Jan 25 01:03:29 1996 +0000 @@ -561,7 +561,7 @@ "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 @@ ((= 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)