message format spec fixes, commit # 9

diff --git a/lisp/emacs-lisp/find-func.el b/lisp/emacs-lisp/find-func.el
index d860bfcd59843c0875153695c2f603dfef0730d6..dea72fc7567d5f15ae9fbf60b8f24572684c1550 100644 (file)
--- a/lisp/emacs-lisp/find-func.el
+++ b/lisp/emacs-lisp/find-func.el
@@ -260,7 +260,7 @@ in `load-path'."
       (setq function (symbol-function function)
            def (symbol-function function)))
     (if aliases
-       (message aliases))
+       (message "%s" aliases))
     (let ((library
           (cond ((eq (car-safe def) 'autoload)
                  (nth 1 def))

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index b102b4da58184b305b99f9e8771013cc8642f959..0fd49024bebee8a9795a37275e59e0a08366e1a9 100644 (file)
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -610,7 +610,7 @@ Prompts for bug subject TOPIC.  Leaves you in a mail buffer."
     (if version
        (insert " version " version))
     (newline 2)
-    (message
+    (message "%s"
      (substitute-command-keys "Type \\[mail-send] to send bug report."))))
 
 (provide 'lisp-mnt)