# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531809 0
# Node ID 1e97bcb05a16ab23bd3e06dbef53335ab2470ec7
# Parent  ab021899d60412243b74c347273ed59acfa4ede6
(tpu-y-or-n-p): Delete format call inside message.

diff -r ab021899d604 -r 1e97bcb05a16 lisp/emulation/tpu-edt.el
--- 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)