"Interactively check the entire buffer for style errors.
The current status of the check will be displayed in a buffer which
the users will view as each check is completed."
- (interactive)
+ (interactive nil emacs-lisp-mode)
(let ((status (list "Checking..." "-" "-" "-"))
(checkdoc-spellcheck-documentation-flag
(car (memq checkdoc-spellcheck-documentation-flag
errors. Does not check for comment or space warnings.
Optional argument SHOWSTATUS indicates that we should update the
checkdoc status window instead of the usual behavior."
- (interactive "P")
+ (interactive "P" emacs-lisp-mode)
(let ((checkdoc-spellcheck-documentation-flag
(car (memq checkdoc-spellcheck-documentation-flag
'(interactive t)))))
errors. Does not check for comment or space warnings.
Optional argument SHOWSTATUS indicates that we should update the
checkdoc status window instead of the usual behavior."
- (interactive "P")
+ (interactive "P" emacs-lisp-mode)
(let ((checkdoc-spellcheck-documentation-flag
(car (memq checkdoc-spellcheck-documentation-flag
'(interactive t)))))
With a prefix argument (in Lisp, the argument TAKE-NOTES),
store all errors found in a warnings buffer,
otherwise stop after the first error."
- (interactive "P")
+ (interactive "P" emacs-lisp-mode)
(if (called-interactively-p 'interactive)
(message "Checking buffer for style..."))
;; Assign a flag to spellcheck flag
Use `checkdoc-continue' to continue checking if an error cannot be fixed.
Prefix argument TAKE-NOTES means to collect all the warning messages into
a separate buffer."
- (interactive "P")
+ (interactive "P" emacs-lisp-mode)
(let ((p (point)))
(goto-char (point-min))
(if (and take-notes (called-interactively-p 'interactive))
"Find the next doc string in the current buffer which has a style error.
Prefix argument TAKE-NOTES means to continue through the whole
buffer and save warnings in a separate buffer."
- (interactive "P")
+ (interactive "P" emacs-lisp-mode)
(let ((wrong nil) (msg nil)
;; Assign a flag to spellcheck flag
(checkdoc-spellcheck-documentation-flag
Prefix argument TAKE-NOTES non-nil means to save warnings in a
separate buffer. Otherwise print a message. This returns the error
if there is one."
- (interactive "P")
+ (interactive "P" emacs-lisp-mode)
(if take-notes (checkdoc-start-section "checkdoc-comments"))
(if (not buffer-file-name)
(error "Can only check comments for a file buffer"))
separate buffer. Otherwise print a message. This returns the error
if there is one.
Optional argument INTERACT permits more interactive fixing."
- (interactive "P")
+ (interactive "P" emacs-lisp-mode)
(if take-notes (checkdoc-start-section "checkdoc-rogue-spaces"))
(let* ((checkdoc-autofix-flag (if take-notes 'never checkdoc-autofix-flag))
(e (checkdoc-rogue-space-check-engine nil nil interact))
(defun checkdoc-message-text (&optional take-notes)
"Scan the buffer for occurrences of the error function, and verify text.
Optional argument TAKE-NOTES causes all errors to be logged."
- (interactive "P")
+ (interactive "P" emacs-lisp-mode)
(if take-notes (checkdoc-start-section "checkdoc-message-text"))
(let* ((p (point)) e
(checkdoc-autofix-flag (if take-notes 'never checkdoc-autofix-flag))