[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/checkdoc.el,v

[David Kastrup]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     David Kastrup <dak>     07/12/08 01:02:31

Index: emacs-lisp/checkdoc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/checkdoc.el,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -b -r1.62 -r1.63
--- emacs-lisp/checkdoc.el      21 Oct 2007 17:22:04 -0000      1.62
+++ emacs-lisp/checkdoc.el      8 Dec 2007 01:02:27 -0000       1.63
@@ -978,7 +978,7 @@
     (if (not (interactive-p))
        e
       (if e
-         (message (checkdoc-error-text e))
+         (message "%s" (checkdoc-error-text e))
        (checkdoc-show-diagnostics)
        (message "Space Check: done.")))))
 
@@ -1038,15 +1038,15 @@
             (end (save-excursion (end-of-defun) (point)))
             (msg (checkdoc-this-string-valid)))
        (if msg (if no-error
-                   (message (checkdoc-error-text msg))
+                   (message "%s" (checkdoc-error-text msg))
                  (error "%s" (checkdoc-error-text msg)))
          (setq msg (checkdoc-message-text-search beg end))
          (if msg (if no-error
-                     (message (checkdoc-error-text msg))
+                     (message "%s" (checkdoc-error-text msg))
                    (error "%s" (checkdoc-error-text msg)))
            (setq msg (checkdoc-rogue-space-check-engine beg end))
            (if msg (if no-error
-                       (message (checkdoc-error-text msg))
+                       (message "%s" (checkdoc-error-text msg))
                      (error "%s" (checkdoc-error-text msg))))))
        (if (interactive-p) (message "Checkdoc: done."))))))