# HG changeset patch
# User Deepak Goel <deego@gnufans.org>
# Date 1127047180 0
# Node ID 0670efd1e2dfb52e68ab6d12db2202aaffe1e8a6
# Parent  7ac02cfe10255bc015e900d12082228428220b72
message format spec fixes, commit # 8

diff -r 7ac02cfe1025 -r 0670efd1e2df lisp/emulation/viper-ex.el
--- a/lisp/emulation/viper-ex.el	Sun Sep 18 12:38:39 2005 +0000
+++ b/lisp/emulation/viper-ex.el	Sun Sep 18 12:39:40 2005 +0000
@@ -1590,7 +1590,7 @@
 
 ;; Ex print working directory
 (defun ex-pwd ()
-  (message default-directory))
+  (message "%s" default-directory))
 
 ;; Ex quit command
 (defun ex-quit ()
@@ -2230,7 +2230,7 @@
 		       (if (buffer-modified-p) "[Modified]" "[Unchanged]")))
     (if (< (+ 1 (length info) (length file))
 	   (window-width (minibuffer-window)))
-	(message (concat file " " info))
+	(message "%s" (concat file " " info))
       (save-window-excursion
 	(with-output-to-temp-buffer " *viper-info*"
 	  (princ (concat "\n" file "\n\n\t" info "\n\n")))
diff -r 7ac02cfe1025 -r 0670efd1e2df lisp/emulation/viper-macs.el
--- a/lisp/emulation/viper-macs.el	Sun Sep 18 12:38:39 2005 +0000
+++ b/lisp/emulation/viper-macs.el	Sun Sep 18 12:39:40 2005 +0000
@@ -186,7 +186,7 @@
 	       variant (if (> (length key-seq) 0)
 			   (prin1-to-string (viper-display-macro key-seq))
 			 "")))
-	(message message)
+	(message "%s" message)
 	(setq event (viper-read-key))
 	;;(setq event (viper-read-event))
 	(setq key
@@ -263,7 +263,7 @@
 			   (prin1-to-string
 			    (viper-display-macro key-seq))
 			 "")))
-	(message message)
+	(message "%s" message)
 	(setq event (viper-read-key))
 	;;(setq event (viper-read-event))
 	(setq key
@@ -442,7 +442,11 @@
 		       scope)
 	       viper-custom-file-name))
 
-	  (message msg)
+	  ;; 2005-09-18 T06:41:22-0400 (Sunday)    D. Goel
+	  ;; From careful parsing of the above code, it looks like msg
+	  ;; couldn't be nil when we reach here. Since it is a string,
+	  ;; and a complicated one too, we might as well provide it a "%s"
+	  (message "%s" msg)
 	  ))
 
     (setq new-elt
diff -r 7ac02cfe1025 -r 0670efd1e2df lisp/emulation/ws-mode.el
--- a/lisp/emulation/ws-mode.el	Sun Sep 18 12:38:39 2005 +0000
+++ b/lisp/emulation/ws-mode.el	Sun Sep 18 12:39:40 2005 +0000
@@ -691,7 +691,7 @@
 This will only work for errors raised by WordStar mode functions."
   (interactive)
   (if ws-last-errormessage
-      (message ws-last-errormessage)
+      (message "%s" ws-last-errormessage)
     (message "No WordStar error yet.")))
 
 (defun ws-kill-eol ()