Message format spec fixes (1)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b8e7d9d9ab33b907924f997f007e8daf0d029e4..2fc94311b00104ed1180453b8f69b5547970bc4e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,160 @@
+2005-09-18  D Goel  <deego@gnufans.org>
+
+       * apropos.el (apropos-command): Fix `message' call: first arg
+       should be a format spec. In this and all other cases that appear
+       below and elsewhere in the source code, I made a change only when
+       two conditions were satisfied: [1] I can think of a possibility
+       that the arguments would cause an error, for example, the code is
+       question relies on extarnal variables such as filenames. [2] I was
+       sure that the arg to `message' could not have been nil in the
+       code.  
+
+       * textmodes/tildify.el (tildify-region): Ditto.
+
+       * textmodes/reftex-index.el (reftex-index-change-entry)
+       (reftex-index-phrase-selection-or-word)
+       (reftex-query-index-phrase): Ditto.
+
+       * textmodes/reftex-dcr.el (reftex-echo-ref, reftex-echo-cite): Ditto.
+
+       * textmodes/org.el (org-complete, org-deadline, org-schedule)
+       (org-priority, org-table-sum): Ditto.
+
+       * textmodes/ispell.el (ispell-check-version)
+       (ispell-parse-output): Ditto.
+
+       * textmodes/flyspell.el (flyspell-mode-on)
+       (flyspell-notify-misspell, flyspell-word)
+       (flyspell-display-next-corrections): Ditto.
+
+       * textmodes/bibtex.el (bibtex-print-help-message): Ditto.
+
+       * textmodes/artist.el (artist-key-set-point-poly): Ditto.
+
+       * term/mac-win.el (mac-services-insert-text): Ditto.
+
+       * progmodes/vhdl-mode.el (vhdl-warning, vhdl-print-warnings)
+       (vhdl-hooked-abbrev, vhdl-template-insert-fun)
+       (vhdl-port-paste-testbench, vhdl-compose-new-component)
+       (vhdl-compose-configuration): Ditto.
+
+       * progmodes/sh-script.el (sh-blink, sh-show-indent)
+       (sh-set-indent, sh-learn-line-indent): Ditto.
+
+       * progmodes/ps-mode.el (ps-mode-target-column): Ditto.
+
+       * progmodes/idlwave.el (idlwave-make-tags)
+       (idlwave-scan-library-catalogs): Ditto.
+
+       * progmodes/idlw-shell.el (idlwave-shell-parse-stack-and-display): Ditto.
+
+       * progmodes/gud.el (gud-jdb-analyze-source): Ditto.
+
+       * progmodes/flymake.el (flymake-log): Ditto.
+
+       * progmodes/ebnf2ps.el (ebnf-generate-region): Ditto.
+
+       * progmodes/cmacexp.el (c-macro-expansion): Ditto.
+
+       * progmodes/ada-xref.el (ada-treat-cmd-string): Ditto.
+
+       * progmodes/ada-mode.el (ada-create-case-exception-substring)
+       (ada-justified-indent-current, ada-batch-reformat): Ditto.
+
+       * play/zone.el (zone): Ditto.
+
+       * play/landmark.el (lm-move): Ditto.
+
+       * play/decipher.el (decipher-show-alphabet): Ditto.
+
+       * net/newsticker.el (newsticker--display-jump)
+       (newsticker--display-scroll): Ditto.
+
+       * mail/rmail-spam-filter.el (rsf-add-subject-to-spam-list)
+       (rsf-add-sender-to-spam-list, rsf-add-region-to-spam-list): Ditto.
+
+       * mail/feedmail.el (feedmail-dump-message-to-queue): Ditto.
+
+       * eshell/esh-proc.el (eshell-remove-process-entry): Ditto.
+
+       * emulation/ws-mode.el (ws-last-error): Ditto.
+
+       * emulation/viper-macs.el (ex-map-read-args, ex-unmap-read-args)
+       (viper-record-kbd-macro): Ditto.
+
+       * emulation/viper-ex.el (ex-pwd, viper-info-on-file): Ditto.
+
+       * emacs-lisp/lisp-mnt.el (lm-report-bug): Ditto.
+
+       * emacs-lisp/find-func.el (find-function-noselect): Ditto.
+
+       * calendar/timeclock.el (timeclock-status-string)
+       (timeclock-workday-remaining-string)
+       (timeclock-workday-elapsed-string)
+       (timeclock-when-to-leave-string): Ditto.
+
+       * calendar/icalendar.el (icalendar--convert-ical-to-diary): Ditto.
+
+       * calc/calc-units.el (calc-enter-units-table): Ditto.
+
+       * calc/calc-mode.el (calc-mode-record-mode): Ditto.
+
+       * woman.el (woman-mini-help): Ditto.
+
+       * wdired.el (wdired-change-to-wdired-mode): Ditto.
+
+       * vc.el (vc-retrieve-snapshot): Ditto.
+
+       * strokes.el (strokes-read-stroke, strokes-read-complex-stroke): Ditto.
+
+       * startup.el (display-startup-echo-area-message): Ditto.
+
+       * simple.el (set-goal-column): Ditto.
+
+       * ses.el (ses-command-hook, ses-recalculate-cell): Ditto.
+
+       * server.el (server-process-filter): Ditto.
+
+       * printing.el (pr-interface-txt-print, pr-interface-printify)
+       (pr-interface-ps): Ditto.
+
+       * pcvs.el (cvs-help): Ditto.
+
+       * log-edit.el (log-edit, log-edit-mode-help): Ditto.
+
+       * iswitchb.el (iswitchb-possible-new-buffer): Ditto.
+
+       * isearch.el (isearch-edit-string): Ditto.
+
+       * image-mode.el (image-mode, image-minor-mode): Ditto.
+
+       * ibuf-macs.el (define-ibuffer-filter): Ditto.
+
+       * hi-lock.el (hi-lock-find-patterns): Ditto.
+
+       * files.el (toggle-read-only): Ditto.
+
+       * ediff-util.el (ediff-copy-diff)
+       (ediff-write-merge-buffer-and-maybe-kill): Ditto.
+
+       * echistory.el (Electric-history-undefined): Ditto.
+
+       * dnd.el (dnd-insert-text): Ditto.
+
+       * dired-aux.el (dired-query): Ditto.
+
+       * desktop.el (desktop-restore-file-buffer)
+       (desktop-lazy-create-buffer): Ditto.
+
+       * bookmark.el (bookmark-bmenu-locate): Ditto.
+
+       * obsolete/fast-lock.el (@top-level): Ditto in the macro definition of `with-temp-message'.     
+
+       * pcomplete.el (pcomplete--help): Fix `message' format spec. Not
+       having a %s would be weird, though not technically wrong.
+
+
+       
 2005-09-18  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
        * term/mac-win.el (mac-add-charset-info): Doc fix.

diff --git a/lisp/apropos.el b/lisp/apropos.el
index fcad5cac0dc3b6127560f3f96edbae71ee0400c3..990ad68e5ec4649ad11116c9afd12dd9a66e0805 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -443,7 +443,7 @@ satisfy the predicate VAR-PREDICATE."
        (setq p (cdr p))))
     (and (apropos-print t nil)
         message
-        (message message))))
+        (message "%s" message))))
 
 
 ;;;###autoload

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 23e1ce11277a766c3b1dc745c0846eb5002e4e0f..8014915a72ef866d31b3aa25202b16be187ed6f6 100644 (file)
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -2058,7 +2058,7 @@ To carry out the deletions that you've marked, use \\<bookmark-bmenu-mode-map>\\
   (interactive)
   (if (bookmark-bmenu-check-position)
       (let ((bmrk (bookmark-bmenu-bookmark)))
-        (message (bookmark-location bmrk)))))
+        (message "%s" (bookmark-location bmrk)))))
 
 (defun bookmark-bmenu-relocate ()
   "Change the file path of the bookmark on the current line,

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 3dbd581aef405668e6c5e1e3357cd14ce973ef72..cf4d387c7b19589cf981fa8dac3841a10eaefc13 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -944,7 +944,7 @@ directory DIRNAME."
                                  desktop-buffer-file-name)))
                  (if desktop-missing-file-warning
                     (y-or-n-p (concat msg " Re-create? "))
-                   (message msg)
+                   (message "%s" msg)
                    nil)))
          (let* ((auto-insert nil) ; Disable auto insertion
                 (coding-system-for-read
@@ -1101,7 +1101,7 @@ ARGS must be an argument list for `desktop-create-buffer'."
            (msg (format "Desktop lazily opening %s (%s remaining)..."
                             buffer-name remaining)))
       (when desktop-lazy-verbose
-        (message msg))
+        (message "%s" msg))
       (let ((desktop-first-buffer nil)
             (desktop-buffer-ok-count 0)
             (desktop-buffer-fail-count 0))

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 0d3f6fe125b3df38cfa77f8d5de1c8aae915abd1..17e61792d3316de3bf44cc20f05f871dff71e613 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -845,7 +845,7 @@ Otherwise, the rule is a compression rule, and compression is done with gzip.")
               (apply 'message qprompt qs-args)
               (setq char (set qs-var (read-char))))
             ;; Display the question with the answer.
-            (message (concat (apply 'format qprompt qs-args)
+            (message "%s" (concat (apply 'format qprompt qs-args)
                              (char-to-string char)))
             (memq (cdr elt) '(t y yes)))))))
 \f

diff --git a/lisp/dnd.el b/lisp/dnd.el
index 1092f4d087f284da55bc735bd13047c494b59332..f85984fb7d82689eef441e1d9612505468e780d4 100644 (file)
--- a/lisp/dnd.el
+++ b/lisp/dnd.el
@@ -179,7 +179,7 @@ TEXT is the text as a string, WINDOW is the window where the drop happened."
          (not (windowp window)))
       (progn
        (kill-new text)
-       (message
+       (message "%s"
         (substitute-command-keys
          "The dropped text can be accessed with \\[yank]")))
     (insert text))

diff --git a/lisp/echistory.el b/lisp/echistory.el
index 3b4b8419bd0588bd63f35857d70b77ad7451efa0..6556680f5ca4de6e9078b17366ff711891f2cf34 100644 (file)
--- a/lisp/echistory.el
+++ b/lisp/echistory.el
@@ -140,7 +140,7 @@ The Command History listing is recomputed each time this mode is invoked."
 (defun Electric-history-undefined ()
   (interactive)
   (ding)
-  (message (substitute-command-keys "Type \\[Helper-help] for help, ? for commands, C-c C-c to quit, Space to execute"))
+  (message "%s" (substitute-command-keys "Type \\[Helper-help] for help, ? for commands, C-c C-c to quit, Space to execute"))
   (sit-for 4))
 
 (defun Electric-history-quit ()

diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el
index 2e24548dbbeedf31b110e1a1f6375b73c4c06ffa..a28f9d459ff2ec0823d685864aef2e4a02f9bf24 100644 (file)
--- a/lisp/ediff-util.el
+++ b/lisp/ediff-util.el
@@ -2075,7 +2075,7 @@ ARG is a prefix argument.  If nil, copy the current difference region."
          (ediff-clear-fine-differences n))
       ;; Make sure that the message about saving and how to restore is seen
       ;; by the user
-      (message messg))
+      (message "%s" messg))
     ))
 
 ;; Save Nth diff of buffer BUF-TYPE \(A, B, or C\).
@@ -2720,7 +2720,7 @@ only if this merge job is part of a group, i.e., was invoked from within
             (format "Another buffer is visiting file %s. Too dangerous to save the merge buffer"
                     file)))
        (beep)
-       (message warn-message)
+       (message "%s" warn-message)
        (with-output-to-temp-buffer ediff-msg-buffer
          (princ "\n\n")
          (princ warn-message)
@@ -3286,7 +3286,7 @@ Hit \\[ediff-recenter] to reset the windows afterward."
            (princ warn-message)
            (princ "\n\n"))
          (if (y-or-n-p
-              (message warn-message))
+              (message "%s" warn-message))
              (with-current-buffer buff
                (save-buffer)
                (kill-buffer (current-buffer)))

diff --git a/lisp/files.el b/lisp/files.el
index 6356fcb8c2cc0d3762d8d9bb582f6bebd312bd72..3706ad54edfdfb3b38f127f4a1d69cd9a52ba48b 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3580,7 +3580,7 @@ If visiting file read-only and `view-read-only' is non-nil, enter view mode."
      (t (setq buffer-read-only (not buffer-read-only))
         (force-mode-line-update)))
     (if (vc-backend buffer-file-name)
-        (message (substitute-command-keys
+        (message "%s" (substitute-command-keys
                   (concat "File is under version-control; "
                           "use \\[vc-next-action] to check in/out"))))))
 

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 14920cf93c2f4d3c8b5a0373defb09f78f729fa6..84a8cd6284ea7877c1551fc93667f4e0f2370b61 100644 (file)
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -564,7 +564,7 @@ Optional argument END is maximum excursion."
                               (hi-lock-current-line)))))))
       (when hi-lock-mode (hi-lock-set-file-patterns all-patterns))
       (if (interactive-p)
-        (message (format "Hi-lock added %d patterns." (length all-patterns)))))))
+        (message "Hi-lock added %d patterns." (length all-patterns))))))
 
 (defun hi-lock-font-lock-hook ()
   "Add hi lock patterns to font-lock's."

diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el
index 5274e3173efc8c4289c3d7a55158b182289c03ce..3e814d4770fd2310605668549461bf42d6c527f3 100644 (file)
--- a/lisp/ibuf-macs.el
+++ b/lisp/ibuf-macs.el
@@ -281,7 +281,7 @@ bound to the current value of the filter.
         ,(concat (or documentation "This filter is not documented."))
         (interactive (list ,reader))
         (ibuffer-push-filter (cons ',name qualifier))
-        (message
+        (message "%s"
          (format ,(concat (format "Filter by %s added: " description)
                           " %s")
                  qualifier))

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 4999a880dfc77b4e3cc0f92e0e66e2e1f1a9998c..67d1bcee995682ffec181152abbf3a29a1a01fb1 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -66,7 +66,7 @@ to toggle between display as an image and display as text."
     ;; variables were cleared by kill-all-local-variables
     (setq cursor-type nil truncate-lines t))
   (run-mode-hooks 'image-mode-hook)
-  (message (concat (substitute-command-keys
+  (message "%s" (concat (substitute-command-keys
                    "Type \\[image-toggle-display] to view the image as ")
                   (if (get-text-property (point-min) 'display)
                       "text" "an image") ".")))
@@ -84,7 +84,7 @@ See the command `image-mode' for more information on this mode."
     (if (get-text-property (point-min) 'display)
        (setq cursor-type nil truncate-lines t))
     (add-hook 'change-major-mode-hook (lambda () (image-minor-mode -1)) nil t)
-    (message (concat (substitute-command-keys
+    (message "%s" (concat (substitute-command-keys
                      "Type \\[image-toggle-display] to view the image as ")
                     (if (get-text-property (point-min) 'display)
                         "text" "an image") "."))))

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 9e396f27545caf9998802edaeb7857d8fcff1a12..5d0c24280b87de848c61b518ae81e9668ef518d7 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1016,7 +1016,7 @@ If first char entered is \\[isearch-yank-word-or-char], then do word search inst
                ;; read a key the normal way.
                ;; Word search does not apply (yet) to regexp searches,
                ;; no check is made here.
-               (message (isearch-message-prefix nil nil t))
+               (message "%s" (isearch-message-prefix nil nil t))
                (if (memq (lookup-key isearch-mode-map (vector e))
                          '(isearch-yank-word
                            isearch-yank-word-or-char))

diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index c2e08d3a4660f07883e74752b17885b1f4b34dd2..b13f2d0bb5a79b068c89b2e40d11bcd8483762c4 100644 (file)
--- a/lisp/iswitchb.el
+++ b/lisp/iswitchb.el
@@ -1122,7 +1122,7 @@ Return the modified list with the last element prepended to it."
              (set-buffer-major-mode newbufcreated))
          (iswitchb-visit-buffer newbufcreated))
       ;; else wont create new buffer
-      (message (format "no buffer matching `%s'" buf)))))
+      (message "no buffer matching `%s'" buf))))
 
 (defun iswitchb-window-buffer-p  (buffer)
   "Return window pointer if BUFFER is visible in another frame.

diff --git a/lisp/log-edit.el b/lisp/log-edit.el
index 2b38dcadf528282d3cc7c954b396d1795c7be3e2..4e179ef8bad381db6941d2c26ac5b0d6eea40cec 100644 (file)
--- a/lisp/log-edit.el
+++ b/lisp/log-edit.el
@@ -331,7 +331,7 @@ If BUFFER is non-nil `log-edit' will jump to that buffer, use it to edit the
     (set (make-local-variable 'log-edit-initial-files) (log-edit-files))
     (when setup (run-hooks 'log-edit-hook))
     (goto-char (point-min)) (push-mark (point-max))
-    (message (substitute-command-keys
+    (message "%s" (substitute-command-keys
              "Press \\[log-edit-done] when you are done editing."))))
 
 (define-derived-mode log-edit-mode text-mode "Log-Edit"
@@ -426,7 +426,7 @@ To select default log text, we:
   (interactive)
   (if (eq last-command 'log-edit-mode-help)
       (describe-function major-mode)
-    (message
+    (message "%s"
      (substitute-command-keys
       "Type `\\[log-edit-done]' to finish commit.  Try `\\[describe-function] log-edit-done' for more help."))))
 

diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 785c62290c4e5eb12ab3b51c82bea1cc8d47526f..c8d0ac19bd6b8101449fb5fc02466a089d68edae 100644 (file)
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -1138,7 +1138,7 @@ If specific documentation can't be given, be generic."
                    (fboundp 'Info-goto-node))
               (listp pcomplete-help)))
       (if (listp pcomplete-help)
-         (message (eval pcomplete-help))
+         (message "%s" (eval pcomplete-help))
        (save-window-excursion (info))
        (switch-to-buffer-other-window "*info*")
        (funcall (symbol-function 'Info-goto-node) pcomplete-help))

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index f5564155ff7375992a3f10ad2459f5a6dc871580..c402192c05af736a8272a94a6cd66db13b1ecb23 100644 (file)
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -1171,7 +1171,7 @@ Full documentation is in the Texinfo file."
   (interactive)
   (if (eq last-command 'cvs-help)
       (describe-function 'cvs-mode)   ; would need minor-mode for log-edit-mode
-    (message
+    (message "%s"
      (substitute-command-keys
       "`\\[cvs-help]':help `\\[cvs-mode-add]':add `\\[cvs-mode-commit]':commit \
 `\\[cvs-mode-diff-map]':diff* `\\[cvs-mode-log]':log \

diff --git a/lisp/printing.el b/lisp/printing.el
index eabca64f085041445bbbd19b04faa548fc4ff996..ec2c8a3cfdaa08b4a3403d25cc2d39ea13a6ced4 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -4,7 +4,7 @@
 
 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
-;; Time-stamp: <2005/06/11 19:51:32 vinicius>
+;; Time-stamp: <2005-09-18 05:57:14 deego>
 ;; Keywords: wp, print, PostScript
 ;; Version: 6.8.4
 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
@@ -6424,7 +6424,7 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
     ;; handlers
     ((quit error)
      (ding)
-     (message (error-message-string data)))))
+     (message "%s" (error-message-string data)))))
 
 
 (defun pr-interface-printify (&rest ignore)
@@ -6449,7 +6449,7 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
     ;; handlers
     ((quit error)
      (ding)
-     (message (error-message-string data)))))
+     (message "%s" (error-message-string data)))))
 
 
 (defun pr-interface-ps-print (&rest ignore)
@@ -6515,7 +6515,7 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
     ;; handlers
     ((quit error)
      (ding)
-     (message (error-message-string data)))))
+     (message "%s" (error-message-string data)))))
 
 
 (defun pr-i-ps-send ()

diff --git a/lisp/server.el b/lisp/server.el
index 7256a729de35fbf1bff93d7dc930acea4b12c46f..3e70b78e782fb3707fd50b51f573329a955c5b0e 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -371,7 +371,7 @@ PROC is the server process.  Format of STRING is \"PATH PATH PATH... \\n\"."
          (server-switch-buffer (nth 1 client))
          (run-hooks 'server-switch-hook)
          (unless nowait
-           (message (substitute-command-keys
+           (message "%s" (substitute-command-keys
                      "When done with a buffer, type \\[server-edit]")))))
       ;; Avoid preserving the connection after the last real frame is deleted.
       (if tmp-frame (delete-frame tmp-frame))))

diff --git a/lisp/ses.el b/lisp/ses.el
index e4124de9fb546b95497b9608f3ecf8c79b655b0b..75562edddb9035a7b51c348321c1f002d67a5493 100644 (file)
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -1612,7 +1612,7 @@ narrows the buffer now."
     (error
      (unless executing-kbd-macro
        (ding))
-     (message (error-message-string err))))
+     (message "%s" (error-message-string err))))
   nil) ;Make coverage-tester happy
 
 (defun ses-create-header-string ()
@@ -1739,7 +1739,7 @@ to are recalculated first."
        (error (setq sig hold))))
     (cond
      (sig
-      (message (error-message-string sig)))
+      (message "%s" (error-message-string sig)))
      ((consp ses--curcell)
       (message " "))
      (t

diff --git a/lisp/simple.el b/lisp/simple.el
index fe58a47610eed33c86cf8034e6fadb26adfe2b42..f06a279c9c2a4374ec954c5f7b948ca4852eb9a9 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3668,9 +3668,18 @@ The goal column is stored in the variable `goal-column'."
         (setq goal-column nil)
         (message "No goal column"))
     (setq goal-column (current-column))
-    (message (substitute-command-keys
-             "Goal column %d (use \\[set-goal-column] with an arg to unset it)")
-            goal-column))
+    ;; The older method below can be erroneous if `set-goal-column' is bound
+    ;; to a sequence containing %
+    ;;(message (substitute-command-keys
+    ;;"Goal column %d (use \\[set-goal-column] with an arg to unset it)")
+    ;;goal-column)
+    (message "%s"
+            (concat 
+             (format "Goal column %d " goal-column)
+             (substitute-command-keys
+              "(use \\[set-goal-column] with an arg to unset it)")))
+    
+    )
   nil)
 \f
 

diff --git a/lisp/startup.el b/lisp/startup.el
index d5cf91d622b0df9ec3fb844b8e80c57637933ac2..450159b36f25209a2fbfd28dddc374078499006d 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1477,7 +1477,7 @@ Type \\[describe-distribution] for information on getting the latest version."))
 
 (defun display-startup-echo-area-message ()
   (let ((resize-mini-windows t))
-    (message (startup-echo-area-message))))
+    (message "%s" (startup-echo-area-message))))
 
 
 (defun display-splash-screen ()

diff --git a/lisp/strokes.el b/lisp/strokes.el
index a432191b18ab3a8d5bd2b09682be5da901a78275..84bff1b6ba076dd1ba4af742d1516cfbf9e4978f 100644 (file)
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -738,7 +738,7 @@ Optional EVENT is acceptable as the starting event of the stroke."
          (save-window-excursion
            (set-window-configuration strokes-window-configuration)
            (when prompt
-             (message prompt)
+             (message "%s" prompt)
              (setq event (read-event))
              (or (strokes-button-press-event-p event)
                  (error "You must draw with the mouse")))
@@ -769,7 +769,7 @@ Optional EVENT is acceptable as the starting event of the stroke."
              (bury-buffer))))
       ;; Otherwise, don't use strokes buffer and read stroke silently
       (when prompt
-       (message prompt)
+       (message "%s" prompt)
        (setq event (read-event))
        (or (strokes-button-press-event-p event)
            (error "You must draw with the mouse")))
@@ -799,7 +799,7 @@ Optional EVENT is acceptable as the starting event of the stroke."
            (grid-locs nil))
        (if prompt
            (while (not (strokes-button-press-event-p event))
-             (message prompt)
+             (message "%s" prompt)
              (setq event (read-event))))
        (unwind-protect
            (track-mouse

diff --git a/lisp/vc.el b/lisp/vc.el
index 8e87cb50eb472cb5efe00efffbe5aacc33403a66..665bb3d31e7a7431b40b89f42e4604eddfa2b2b4 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2333,10 +2333,10 @@ allowed and simply skipped)."
                 (format "Updating %s... " (abbreviate-file-name dir))
               (format "Retrieving snapshot into %s... "
                       (abbreviate-file-name dir)))))
-    (message msg)
+    (message "%s" msg)
     (vc-call-backend (vc-responsible-backend dir)
                     'retrieve-snapshot dir name update)
-    (message (concat msg "done"))))
+    (message "%s" (concat msg "done"))))
 
 (defun vc-default-retrieve-snapshot (backend dir name update)
   (if (string= name "")

diff --git a/lisp/wdired.el b/lisp/wdired.el
index ef20ea6f9a2e531bacdffe9cbbe3e18c0df37a06..55df66a70e68696a16b12a9113ed4584ac83cb02 100644 (file)
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -264,7 +264,7 @@ See `wdired-mode'."
   (set-buffer-modified-p nil)
   (setq buffer-undo-list nil)
   (run-mode-hooks 'wdired-mode-hook)
-  (message (substitute-command-keys "Press \\[wdired-finish-edit] when finished \
+  (message "%s" (substitute-command-keys "Press \\[wdired-finish-edit] when finished \
 or \\[wdired-abort-changes] to abort changes")))
 
 

diff --git a/lisp/woman.el b/lisp/woman.el
index 9b7bce889b3e29a5d4239ed75caa09b62b1c3a4a..315a0a3bbe5878ccb28781071d055957b49f2a2c 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1926,7 +1926,7 @@ Optional argument REDRAW, if non-nil, forces mode line to be updated."
     ;; Output the result:
     (and (apropos-print t nil)
         message
-        (message message))))
+        (message "%s" message))))
 
 
 (defun WoMan-getpage-in-background (topic)