mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Support imenu in emacs-authors-mode

Browse source 
* lisp/textmodes/emacs-authors-mode.el
(emacs-authors-imenu-generic-expression): New variable.
(emacs-authors-mode): Add imenu support.
This commit is contained in:
Stefan Kangas 2022-08-12 18:33:34 +02:00
parent 779d920c9a
commit a2cf5646d4
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/textmodes/emacs-authors-mode.el
View file

@ -119,6 +119,12 @@ With a prefix arg ARG, move point that many authors backward."
(interactive "p" emacs-authors-mode)
(emacs-authors-next-author (- arg)))
(defvar emacs-authors-imenu-generic-expression
`((nil ,(rx bol (group (+ (not ":"))) ": "
(or "wrote" "co-wrote" "changed")
" ")
1)))
(define-obsolete-variable-alias 'etc-authors-mode-map 'emacs-authors-mode-map "29.1")
(defvar-keymap emacs-authors-mode-map
:doc "Keymap for `emacs-authors-mode'."
@ -132,6 +138,7 @@ Provides some basic font locking and not much else."
(setq-local font-lock-defaults
'(emacs-authors-mode-font-lock-keywords nil nil ((?_ . "w"))))
(setq font-lock-multiline nil)
(setq imenu-generic-expression emacs-authors-imenu-generic-expression)
(emacs-authors-mode--hide-local-variables))
(define-obsolete-face-alias 'etc-authors-default 'emacs-authors-default "29.1")