From e2eb58c4874bc8dedb7f3da9f9e0626ccfe74cdf Mon Sep 17 00:00:00 2001 From: Masahiro Nakamura Date: Sun, 15 Aug 2021 11:54:56 +0200 Subject: [PATCH] Mark up commands in shortdoc.el for modes * lisp/emacs-lisp/shortdoc.el: Add command mode tagging (bug#50064). --- lisp/emacs-lisp/shortdoc.el | 11 ++++++----- 1 file 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)) -- 2.39.5