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

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/checkdoc.el
diff -c emacs/lisp/emacs-lisp/checkdoc.el:1.44 
emacs/lisp/emacs-lisp/checkdoc.el:1.45
*** emacs/lisp/emacs-lisp/checkdoc.el:1.44      Sun Sep 12 20:17:53 2004
--- emacs/lisp/emacs-lisp/checkdoc.el   Sat Dec 11 22:01:42 2004
***************
*** 919,925 ****
        (progn
          (goto-char wrong)
          (if (not take-notes)
!             (error (checkdoc-error-text msg)))))
      (checkdoc-show-diagnostics)
      (if (interactive-p)
        (message "No style warnings."))))
--- 919,925 ----
        (progn
          (goto-char wrong)
          (if (not take-notes)
!             (error "%s" (checkdoc-error-text msg)))))
      (checkdoc-show-diagnostics)
      (if (interactive-p)
        (message "No style warnings."))))
***************
*** 952,958 ****
         (e (checkdoc-file-comments-engine))
        (checkdoc-generate-compile-warnings-flag
         (or take-notes checkdoc-generate-compile-warnings-flag)))
!     (if e (error (checkdoc-error-text e)))
      (checkdoc-show-diagnostics)
      e))
  
--- 952,958 ----
         (e (checkdoc-file-comments-engine))
        (checkdoc-generate-compile-warnings-flag
         (or take-notes checkdoc-generate-compile-warnings-flag)))
!     (if e (error "%s" (checkdoc-error-text e)))
      (checkdoc-show-diagnostics)
      e))
  
***************
*** 990,996 ****
      (if (not (interactive-p))
        e
        (if e
!         (error (checkdoc-error-text e))
        (checkdoc-show-diagnostics)))
      (goto-char p))
    (if (interactive-p) (message "Checking interactive message text...done.")))
--- 990,996 ----
      (if (not (interactive-p))
        e
        (if e
!         (error "%s" (checkdoc-error-text e))
        (checkdoc-show-diagnostics)))
      (goto-char p))
    (if (interactive-p) (message "Checking interactive message text...done.")))
***************
*** 1033,1047 ****
             (msg (checkdoc-this-string-valid)))
        (if msg (if no-error
                    (message (checkdoc-error-text msg))
!                 (error (checkdoc-error-text msg)))
          (setq msg (checkdoc-message-text-search beg end))
          (if msg (if no-error
                      (message (checkdoc-error-text msg))
!                   (error (checkdoc-error-text msg)))
            (setq msg (checkdoc-rogue-space-check-engine beg end))
            (if msg (if no-error
                        (message (checkdoc-error-text msg))
!                     (error (checkdoc-error-text msg))))))
        (if (interactive-p) (message "Checkdoc: done."))))))
  
  ;;; Ispell interface for forcing a spell check
--- 1033,1047 ----
             (msg (checkdoc-this-string-valid)))
        (if msg (if no-error
                    (message (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))
!                   (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))
!                     (error "%s" (checkdoc-error-text msg))))))
        (if (interactive-p) (message "Checkdoc: done."))))))
  
  ;;; Ispell interface for forcing a spell check