Message format spec fixes, commit no. 4

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))

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 ()

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)))