diff options
| author | Masahiro Nakamura <tsuucat@icloud.com> | 2021-08-15 11:54:56 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-08-15 11:55:34 +0200 |
| commit | e2eb58c4874bc8dedb7f3da9f9e0626ccfe74cdf (patch) | |
| tree | 6df3ceba6b5f8465117fb43988b905da349ff777 | |
| parent | e6f3a4dc6cd4ffca9b8b2ea0c9271f832df07e3e (diff) | |
| download | emacs-e2eb58c4874bc8dedb7f3da9f9e0626ccfe74cdf.tar.gz emacs-e2eb58c4874bc8dedb7f3da9f9e0626ccfe74cdf.tar.bz2 emacs-e2eb58c4874bc8dedb7f3da9f9e0626ccfe74cdf.zip | |
Mark up commands in shortdoc.el for modes
* lisp/emacs-lisp/shortdoc.el: Add command mode tagging
(bug#50064).
| -rw-r--r-- | lisp/emacs-lisp/shortdoc.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el index a74a5a4225c..1b0fbfdf715 100644 --- a/lisp/emacs-lisp/shortdoc.el +++ b/lisp/emacs-lisp/shortdoc.el @@ -1317,7 +1317,8 @@ Example: "Keymap for `shortdoc-mode'.") (define-derived-mode shortdoc-mode special-mode "shortdoc" - "Mode for shortdoc.") + "Mode for shortdoc." + :interactive nil) (defun shortdoc--goto-section (arg sym &optional reverse) (unless (natnump arg) @@ -1332,26 +1333,26 @@ Example: (defun shortdoc-next (&optional arg) "Move cursor to the next function. With ARG, do it that many times." - (interactive "p") + (interactive "p" shortdoc-mode) (shortdoc--goto-section arg 'shortdoc-function)) (defun shortdoc-previous (&optional arg) "Move cursor to the previous function. With ARG, do it that many times." - (interactive "p") + (interactive "p" shortdoc-mode) (shortdoc--goto-section arg 'shortdoc-function t) (backward-char 1)) (defun shortdoc-next-section (&optional arg) "Move cursor to the next section. With ARG, do it that many times." - (interactive "p") + (interactive "p" shortdoc-mode) (shortdoc--goto-section arg 'shortdoc-section)) (defun shortdoc-previous-section (&optional arg) "Move cursor to the previous section. With ARG, do it that many times." - (interactive "p") + (interactive "p" shortdoc-mode) (shortdoc--goto-section arg 'shortdoc-section t) (forward-line -2)) |