changeset 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 ab021899d604
children e37ae69fce10
files lisp/emulation/tpu-edt.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
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)