diff options
| author | Karl Heuer | 1996-01-25 01:03:29 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-25 01:03:29 +0000 |
| commit | 86fec582331280a585491cf3b1530a0db4ca93a2 (patch) | |
| tree | bed70fbc8e73551691725ac06cf0ee6e875b612f | |
| parent | 91a6acc3b825b71bf6a3a70beb8b809445cf3211 (diff) | |
| download | emacs-86fec582331280a585491cf3b1530a0db4ca93a2.tar.gz emacs-86fec582331280a585491cf3b1530a0db4ca93a2.zip | |
(tpu-y-or-n-p): Delete format call inside message.
| -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." | |||
| 561 | "Prompt for a y or n answer with positive default. | 561 | "Prompt for a y or n answer with positive default. |
| 562 | Optional second argument NOT-YES changes default to negative. | 562 | Optional second argument NOT-YES changes default to negative. |
| 563 | Like Emacs `y-or-n-p', but also accepts space as y and DEL as n." | 563 | Like Emacs `y-or-n-p', but also accepts space as y and DEL as n." |
| 564 | (message (format "%s[%s]" prompt (if not-yes "n" "y"))) | 564 | (message "%s[%s]" prompt (if not-yes "n" "y")) |
| 565 | (let ((doit t)) | 565 | (let ((doit t)) |
| 566 | (while doit | 566 | (while doit |
| 567 | (setq doit nil) | 567 | (setq doit nil) |
| @@ -573,8 +573,8 @@ Like Emacs `y-or-n-p', but also accepts space as y and DEL as n." | |||
| 573 | ((= ans ?\r) (setq tpu-last-answer (not not-yes))) | 573 | ((= ans ?\r) (setq tpu-last-answer (not not-yes))) |
| 574 | (t | 574 | (t |
| 575 | (setq doit t) (beep) | 575 | (setq doit t) (beep) |
| 576 | (message (format "Please answer y or n. %s[%s]" | 576 | (message "Please answer y or n. %s[%s]" |
| 577 | prompt (if not-yes "n" "y")))))))) | 577 | prompt (if not-yes "n" "y"))))))) |
| 578 | tpu-last-answer) | 578 | tpu-last-answer) |
| 579 | 579 | ||
| 580 | (defun tpu-local-set-key (key func) | 580 | (defun tpu-local-set-key (key func) |