mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

Support outline-minor-mode in emacs-authors-mode

Browse Source 
* lisp/textmodes/emacs-authors-mode.el (emacs-authors-mode):
Support and enable outline-minor-mode.
This commit is contained in:
Stefan Kangas 2022-09-10 05:03:58 +02:00
parent 7008fa9fd9
commit 1e021ac45b
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/textmodes/emacs-authors-mode.el
View File

@ -130,7 +130,20 @@ Provides some basic font locking and not much else."
'(emacs-authors-mode-font-lock-keywords nil nil ((?_ . "w"))))
(setq font-lock-multiline nil)
(setq imenu-generic-expression emacs-authors-imenu-generic-expression)
(emacs-etc--hide-local-variables))
(emacs-etc--hide-local-variables)
(setq-local outline-regexp (rx (+ (not (any ":\n"))) ": "
(or "changed" "co-wrote" "wrote") " ")
outline-minor-mode-cycle t
outline-level
(lambda ()
(if (looking-at (rx bol
(or (or " "
(seq "and " (or "co-wrote"
"changed")))
eol)))
2
1)))
(outline-minor-mode))
(define-obsolete-face-alias 'etc-authors-default 'emacs-authors-default "29.1")
(define-obsolete-face-alias 'etc-authors-author 'emacs-authors-author "29.1")