aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/checkdoc.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index a329638ed1c..43584b19181 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -1085,7 +1085,7 @@ Optional argument TAKE-NOTES causes all errors to be logged."
1085Evaluation is done first so the form will be read before the 1085Evaluation is done first so the form will be read before the
1086documentation is checked. If there is a documentation error, then the display 1086documentation is checked. If there is a documentation error, then the display
1087of what was evaluated will be overwritten by the diagnostic message." 1087of what was evaluated will be overwritten by the diagnostic message."
1088 (interactive) 1088 (interactive nil emacs-lisp-mode)
1089 (call-interactively #'eval-defun) 1089 (call-interactively #'eval-defun)
1090 (checkdoc-defun)) 1090 (checkdoc-defun))
1091 1091
@@ -1096,7 +1096,7 @@ Call `error' if the doc string has problems. If NO-ERROR is
1096non-nil, then do not call error, but call `message' instead. 1096non-nil, then do not call error, but call `message' instead.
1097If the doc string passes the test, then check the function for rogue white 1097If the doc string passes the test, then check the function for rogue white
1098space at the end of each line." 1098space at the end of each line."
1099 (interactive) 1099 (interactive nil emacs-lisp-mode)
1100 (save-excursion 1100 (save-excursion
1101 (beginning-of-defun) 1101 (beginning-of-defun)
1102 (when (checkdoc--next-docstring) 1102 (when (checkdoc--next-docstring)
@@ -2836,7 +2836,7 @@ function called to create the messages."
2836;;;###autoload 2836;;;###autoload
2837(defun checkdoc-package-keywords () 2837(defun checkdoc-package-keywords ()
2838 "Find package keywords that aren't in `finder-known-keywords'." 2838 "Find package keywords that aren't in `finder-known-keywords'."
2839 (interactive) 2839 (interactive nil emacs-lisp-mode)
2840 (require 'finder) 2840 (require 'finder)
2841 (let ((unrecognized-keys 2841 (let ((unrecognized-keys
2842 (cl-remove-if 2842 (cl-remove-if