; checkdoc: More interactive mode tagging

(cherry picked from commit 3e999f70a4d0f1ebdb45da305207e2b45f88059f)

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 4880e710b55e8c9b622ec49b57ab4adb30c57ab3..16ea749a2ebceb5c4a86b68ad201c7d803948f48 100644 (file)
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -1086,7 +1086,7 @@ Optional argument TAKE-NOTES causes all errors to be logged."
 Evaluation is done first so the form will be read before the
 documentation is checked.  If there is a documentation error, then the display
 of what was evaluated will be overwritten by the diagnostic message."
-  (interactive)
+  (interactive nil emacs-lisp-mode)
   (call-interactively #'eval-defun)
   (checkdoc-defun))
 
@@ -1097,7 +1097,7 @@ Call `error' if the doc string has problems.  If NO-ERROR is
 non-nil, then do not call error, but call `message' instead.
 If the doc string passes the test, then check the function for rogue white
 space at the end of each line."
-  (interactive)
+  (interactive nil emacs-lisp-mode)
   (save-excursion
     (beginning-of-defun)
     (when (checkdoc--next-docstring)
@@ -2887,7 +2887,7 @@ function called to create the messages."
 ;;;###autoload
 (defun checkdoc-package-keywords ()
   "Find package keywords that aren't in `finder-known-keywords'."
-  (interactive)
+  (interactive nil emacs-lisp-mode)
   (require 'finder)
   (let ((unrecognized-keys
          (cl-remove-if