From: Stefan Kangas <stefan@marxist.se>
Date: Wed, 3 Aug 2022 13:45:06 +0000 (+0200)
Subject: Do interactive mode tagging in apropos.el
X-Git-Tag: emacs-29.0.90~1447^2~503
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6861ed117592bf45eeb0e21f17f756d58e407313;p=emacs.git

Do interactive mode tagging in apropos.el

* lisp/apropos.el (apropos-follow, apropos-next-symbol)
(apropos-previous-symbol): Tag for 'apropos-mode'.
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 13dc8fa1391..96821285869 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -1332,14 +1332,14 @@ as a heading."
 
 (defun apropos-follow ()
   "Invokes any button at point, otherwise invokes the nearest label button."
-  (interactive)
+  (interactive nil apropos-mode)
   (button-activate
    (or (apropos-next-label-button (line-beginning-position))
        (error "There is nothing to follow here"))))
 
 (defun apropos-next-symbol ()
   "Move cursor down to the next symbol in an `apropos-mode' buffer."
-  (interactive)
+  (interactive nil apropos-mode)
   (forward-line)
   (while (and (not (eq (face-at-point) 'apropos-symbol))
               (< (point) (point-max)))
@@ -1347,7 +1347,7 @@ as a heading."
 
 (defun apropos-previous-symbol ()
   "Move cursor back to the last symbol in an `apropos-mode' buffer."
-  (interactive)
+  (interactive nil apropos-mode)
   (forward-line -1)
   (while (and (not (eq (face-at-point) 'apropos-symbol))
               (> (point) (point-min)))