andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tpu-y-or-n-p): Delete format call inside message.

Browse source
This commit is contained in:
Karl Heuer 1996-01-25 01:03:29 +00:00
parent 91a6acc3b8
commit 86fec58233
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emulation/tpu-edt.el
View file

@ -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)