Message format spec fixes, commit no. 4

diff --git a/lisp/play/decipher.el b/lisp/play/decipher.el
index 6471e23b5f23070a5ef04ae85b45f1047e9e826d..e8850e6fdf4156f38d218d9496baf12a975a9810 100644 (file)
--- a/lisp/play/decipher.el
+++ b/lisp/play/decipher.el
@@ -600,7 +600,7 @@ you have determined the keyword."
 (defun decipher-show-alphabet ()
   "Display the current cipher alphabet in the message line."
   (interactive)
-  (message
+  (message "%s"
    (mapconcat (lambda (a)
                 (concat
                  (char-to-string (car a))

diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el
index 4da291d4505fb3c36412c3a2da3e48f74454cf84..67c6c0d30210e27e3262af0c89e86658cee08c00 100644 (file)
--- a/lisp/play/landmark.el
+++ b/lisp/play/landmark.el
@@ -1473,7 +1473,7 @@ After this limit is reached, lm-random-move is called to push him out of it."
   (lm-plot-square (lm-point-square) 1)
   (incf lm-number-of-moves)
   (if lm-output-moves
-      (message (format "Moves made: %d" lm-number-of-moves))))
+      (message "Moves made: %d" lm-number-of-moves)))
 
 
 (defun lm-random-move ()

diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index 876490b1f9a0c4436a53400f5d975330d9128d3b..7441c2b9aa84d2e45e6123045ec026e96697df07 100644 (file)
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -179,7 +179,7 @@ If the element is a function or a list of a function and a number,
         (error
          (funcall restore)
          (while (not (input-pending-p))
-           (message (format "We were zoning when we wrote %s..." pgm))
+           (message "We were zoning when we wrote %s..." pgm)
            (sit-for 3)
            (message "...here's hoping we didn't hose your buffer!")
            (sit-for 3)))