# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822532521 0
# Node ID 4a609420dfc1d6b419bc01b711a92d0b4ead38c9
# Parent  e37ae69fce109a98b32623645a106f9dc2932483
(edt-display-the-time): Pass proper format string to message.
(edt-y-or-n-p): Delete format call inside message.

diff -r e37ae69fce10 -r 4a609420dfc1 lisp/emulation/edt.el
--- a/lisp/emulation/edt.el	Thu Jan 25 01:13:01 1996 +0000
+++ b/lisp/emulation/edt.el	Thu Jan 25 01:15:21 1996 +0000
@@ -1185,7 +1185,7 @@
   "Display the current time."
   (interactive)
   (set 'time-string (current-time-string))
-  (message time-string))
+  (message "%s" time-string))
 
 ;;;
 ;;; LEARN
@@ -1408,7 +1408,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, 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 @@
 	      ((= 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)