master 6861ed1175: Do interactive mode tagging in apropos.el

[Stefan Kangas]

branch: master
commit 6861ed117592bf45eeb0e21f17f756d58e407313
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Do interactive mode tagging in apropos.el
    
    * lisp/apropos.el (apropos-follow, apropos-next-symbol)
    (apropos-previous-symbol): Tag for 'apropos-mode'.
---
 lisp/apropos.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 13dc8fa139..9682128586 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)))