diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2024-07-07 12:52:56 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2024-07-07 13:38:42 +0200 |
| commit | 3e999f70a4d0f1ebdb45da305207e2b45f88059f (patch) | |
| tree | ab5c3c3a7c798f4e91efc46624b34562a1666c70 /lisp/emacs-lisp | |
| parent | 4a1f2053cdce65efd00de4e211de89f56a549a61 (diff) | |
| download | emacs-3e999f70a4d0f1ebdb45da305207e2b45f88059f.tar.gz emacs-3e999f70a4d0f1ebdb45da305207e2b45f88059f.tar.bz2 emacs-3e999f70a4d0f1ebdb45da305207e2b45f88059f.zip | |
; checkdoc: More interactive mode tagging
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 6 |
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." 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)) @@ -1096,7 +1096,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) @@ -2836,7 +2836,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 |