From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 25 Jan 1996 01:15:21 +0000 (+0000)
Subject: (edt-display-the-time): Pass proper format string to message.
X-Git-Tag: emacs-19.34~1514
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0685fda1e165ca90461757e462dec4f6b48ea38;p=emacs.git

(edt-display-the-time): Pass proper format string to message.
(edt-y-or-n-p): Delete format call inside message.
---

diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 875d2134d0b..6d364eed73a 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -1185,7 +1185,7 @@ Accepts a positive prefix argument for the number times to duplicate the line."
   "Display the current time."
   (interactive)
   (set 'time-string (current-time-string))
-  (message time-string))
+  (message "%s" time-string))
 
 ;;;
 ;;; LEARN
@@ -1408,7 +1408,7 @@ and the cursor is left to rest at the beginning of that word."
   "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, 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)
@@ -1420,8 +1420,8 @@ Like emacs y-or-n-p, also accepts space as y and DEL as n."
 	      ((= ans ?\r) (setq edt-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")))))))
   edt-last-answer)
 
 (defun edt-load-xkeys (file)