message format spec fixes, commit # 9

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))

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)