(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 875d2134d0b1b5fbe723fb2127367b87dbd179b7..6d364eed73a944c5bb80d7adb2f9a919c712a3b4 100644 (file)
--- 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)