# HG changeset patch # User Deepak Goel # Date 1127046771 0 # Node ID 6d0d4d973f773258a032456e25b833c223701fcc # Parent 6dbba0bd58dff3cf45cc208973021d20884bb9a0 Message format spec fixes, commit no. 4 diff -r 6dbba0bd58df -r 6d0d4d973f77 lisp/play/decipher.el --- a/lisp/play/decipher.el Sun Sep 18 12:31:28 2005 +0000 +++ b/lisp/play/decipher.el Sun Sep 18 12:32:51 2005 +0000 @@ -600,7 +600,7 @@ (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 -r 6dbba0bd58df -r 6d0d4d973f77 lisp/play/landmark.el --- a/lisp/play/landmark.el Sun Sep 18 12:31:28 2005 +0000 +++ b/lisp/play/landmark.el Sun Sep 18 12:32:51 2005 +0000 @@ -1473,7 +1473,7 @@ (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 -r 6dbba0bd58df -r 6d0d4d973f77 lisp/play/zone.el --- a/lisp/play/zone.el Sun Sep 18 12:31:28 2005 +0000 +++ b/lisp/play/zone.el Sun Sep 18 12:32:51 2005 +0000 @@ -179,7 +179,7 @@ (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)))