Mercurial > emacs

comparison lisp/emacs-lisp/checkdoc.el @ 91239:2fcaae6177a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
author Miles Bader <miles@gnu.org>
date Sun, 16 Dec 2007 05:08:49 +0000
parents 4bc33ffdda1a e50a2e215441
children 56a72e2bd635
comparison
equal deleted inserted replaced
91238:5cf14a2107b5 91239:2fcaae6177a5
976 (checkdoc-generate-compile-warnings-flag 976 (checkdoc-generate-compile-warnings-flag
977 (or take-notes checkdoc-generate-compile-warnings-flag))) 977 (or take-notes checkdoc-generate-compile-warnings-flag)))
978 (if (not (interactive-p)) 978 (if (not (interactive-p))
979 e 979 e
980 (if e 980 (if e
981 (message (checkdoc-error-text e)) 981 (message "%s" (checkdoc-error-text e))
982 (checkdoc-show-diagnostics) 982 (checkdoc-show-diagnostics)
983 (message "Space Check: done."))))) 983 (message "Space Check: done.")))))
984 984
985 ;;;###autoload 985 ;;;###autoload
986 (defun checkdoc-message-text (&optional take-notes) 986 (defun checkdoc-message-text (&optional take-notes)
1036 '(defun t)))) 1036 '(defun t))))
1037 (beg (save-excursion (beginning-of-defun) (point))) 1037 (beg (save-excursion (beginning-of-defun) (point)))
1038 (end (save-excursion (end-of-defun) (point))) 1038 (end (save-excursion (end-of-defun) (point)))
1039 (msg (checkdoc-this-string-valid))) 1039 (msg (checkdoc-this-string-valid)))
1040 (if msg (if no-error 1040 (if msg (if no-error
1041 (message (checkdoc-error-text msg)) 1041 (message "%s" (checkdoc-error-text msg))
1042 (error "%s" (checkdoc-error-text msg))) 1042 (error "%s" (checkdoc-error-text msg)))
1043 (setq msg (checkdoc-message-text-search beg end)) 1043 (setq msg (checkdoc-message-text-search beg end))
1044 (if msg (if no-error 1044 (if msg (if no-error
1045 (message (checkdoc-error-text msg)) 1045 (message "%s" (checkdoc-error-text msg))
1046 (error "%s" (checkdoc-error-text msg))) 1046 (error "%s" (checkdoc-error-text msg)))
1047 (setq msg (checkdoc-rogue-space-check-engine beg end)) 1047 (setq msg (checkdoc-rogue-space-check-engine beg end))
1048 (if msg (if no-error 1048 (if msg (if no-error
1049 (message (checkdoc-error-text msg)) 1049 (message "%s" (checkdoc-error-text msg))
1050 (error "%s" (checkdoc-error-text msg)))))) 1050 (error "%s" (checkdoc-error-text msg))))))
1051 (if (interactive-p) (message "Checkdoc: done.")))))) 1051 (if (interactive-p) (message "Checkdoc: done."))))))
1052 1052
1053 ;;; Ispell interface for forcing a spell check 1053 ;;; Ispell interface for forcing a spell check
1054 ;; 1054 ;;