From: Stefan Kangas <stefankangas@gmail.com>
Date: Sun, 7 Jul 2024 10:52:56 +0000 (+0200)
Subject: ; checkdoc: More interactive mode tagging
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6fe39dcd8e3c8634d0e14ba5b02cb19aaa2a05b;p=emacs.git

; 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 4880e710b55..16ea749a2eb 100644
--- 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