diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-25 01:15:21 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-25 01:15:21 +0000 |
| commit | 83e63215c80778a1bd79b968562b5d4e545e48dd (patch) | |
| tree | b6ae977a68b7774eab6b4c951031558e89538d94 /lisp/emulation | |
| parent | 50c1f9035b2cf0bc90380fe672f44c561446e5cb (diff) | |
| download | emacs-83e63215c80778a1bd79b968562b5d4e545e48dd.tar.gz | |
(edt-display-the-time): Pass proper format string to message.
(edt-y-or-n-p): Delete format call inside message.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/edt.el | 8 |
1 files changed, 4 insertions, 4 deletions
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) |