mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 00:01:33 -08:00
Code Issues Projects Releases Wiki Activity

(checkdoc-continue, checkdoc-comments, checkdoc-message-text, checkdoc-defun):

Browse source 
Fix format messages for calls to `error'.
This commit is contained in:
Stefan Monnier 2004-12-11 22:01:42 +00:00
parent e67064e2c6
commit e8592238a1
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/checkdoc.el
View file

@ -919,7 +919,7 @@ is the starting location. If this is nil, `point-min' is used instead."
(progn (progn
(goto-char wrong) (goto-char wrong)
(if (not take-notes) (if (not take-notes)
(error (checkdoc-error-text msg))))) (error "%s" (checkdoc-error-text msg)))))
(checkdoc-show-diagnostics) (checkdoc-show-diagnostics)
(if (interactive-p) (if (interactive-p)
(message "No style warnings.")))) (message "No style warnings."))))
@ -952,7 +952,7 @@ if there is one."
(e (checkdoc-file-comments-engine)) (e (checkdoc-file-comments-engine))
(checkdoc-generate-compile-warnings-flag (checkdoc-generate-compile-warnings-flag
(or take-notes checkdoc-generate-compile-warnings-flag))) (or take-notes checkdoc-generate-compile-warnings-flag)))
(if e (error (checkdoc-error-text e))) (if e (error "%s" (checkdoc-error-text e)))
(checkdoc-show-diagnostics) (checkdoc-show-diagnostics)
e)) e))
@ -990,7 +990,7 @@ Optional argument TAKE-NOTES causes all errors to be logged."
(if (not (interactive-p)) (if (not (interactive-p))
e e
(if e (if e
(error (checkdoc-error-text e)) (error "%s" (checkdoc-error-text e))
(checkdoc-show-diagnostics))) (checkdoc-show-diagnostics)))
(goto-char p)) (goto-char p))
(if (interactive-p) (message "Checking interactive message text...done."))) (if (interactive-p) (message "Checking interactive message text...done.")))
@ -1033,15 +1033,15 @@ space at the end of each line."
(msg (checkdoc-this-string-valid))) (msg (checkdoc-this-string-valid)))
(if msg (if no-error (if msg (if no-error
(message (checkdoc-error-text msg)) (message (checkdoc-error-text msg))
(error (checkdoc-error-text msg))) (error "%s" (checkdoc-error-text msg)))
(setq msg (checkdoc-message-text-search beg end)) (setq msg (checkdoc-message-text-search beg end))
(if msg (if no-error (if msg (if no-error
(message (checkdoc-error-text msg)) (message (checkdoc-error-text msg))
(error (checkdoc-error-text msg))) (error "%s" (checkdoc-error-text msg)))
(setq msg (checkdoc-rogue-space-check-engine beg end)) (setq msg (checkdoc-rogue-space-check-engine beg end))
(if msg (if no-error (if msg (if no-error
(message (checkdoc-error-text msg)) (message (checkdoc-error-text msg))
(error (checkdoc-error-text msg)))))) (error "%s" (checkdoc-error-text msg))))))
(if (interactive-p) (message "Checkdoc: done.")))))) (if (interactive-p) (message "Checkdoc: done."))))))
;;; Ispell interface for forcing a spell check ;;; Ispell interface for forcing a spell check