message format spec fixes, commit # 8

diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index 87d2d7f5d5a32b210237c7ccfe4fb6feae83bb94..5321228fe29944ad519097bd87d77f4f24193877 100644 (file)
--- a/lisp/emulation/viper-ex.el
+++ b/lisp/emulation/viper-ex.el
@@ -1590,7 +1590,7 @@ reversed."
 
 ;; Ex print working directory
 (defun ex-pwd ()
-  (message default-directory))
+  (message "%s" default-directory))
 
 ;; Ex quit command
 (defun ex-quit ()
@@ -2230,7 +2230,7 @@ Type 'mak ' (including the space) to run make with no args."
                       (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 --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el
index edc5cba1bbe7b28bf7972973f06c0f2dd43cb94b..9349a950e97dbeb23c68db6beed356ff356d36b9 100644 (file)
--- a/lisp/emulation/viper-macs.el
+++ b/lisp/emulation/viper-macs.el
@@ -186,7 +186,7 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
               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 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g.,
                           (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 @@ If SCOPE is nil, the user is asked to specify the scope."
                       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 --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el
index 41e8f5323a596fe668e66cbd38692777fe12881e..e677e5a20ff28e31ffaea163be85c2622a120282 100644 (file)
--- a/lisp/emulation/ws-mode.el
+++ b/lisp/emulation/ws-mode.el
@@ -691,7 +691,7 @@ in ws-last-errormessage for recovery with C-q w."
 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 ()