procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Do interactive mode tagging in apropos.el

Browse source 
* lisp/apropos.el (apropos-follow, apropos-next-symbol)
(apropos-previous-symbol): Tag for 'apropos-mode'.
This commit is contained in:
Stefan Kangas 2022-08-03 15:45:06 +02:00
parent d71d5b2a96
commit 6861ed1175
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/apropos.el
View file

@ -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)))