From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 25 Jan 1996 01:03:29 +0000 (+0000)
Subject: (tpu-y-or-n-p): Delete format call inside message.
X-Git-Tag: emacs-19.34~1516
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86fec582331280a585491cf3b1530a0db4ca93a2;p=emacs.git

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

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."
   "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)