Support imenu in emacs-news-mode
* lisp/outline.el (outline-imenu-generic-expression): New variable broken out from... (outline-mode): ...here. * lisp/textmodes/emacs-news-mode.el (emacs-news--mode-common): Use above new variable to add imenu support.
This commit is contained in:
parent
cd2168cd13
commit
ba0e989c11
2 changed files with 6 additions and 2 deletions
|
@ -341,6 +341,10 @@ data reflects the `outline-regexp'.")
|
|||
:safe #'booleanp
|
||||
:version "22.1")
|
||||
|
||||
(defvar outline-imenu-generic-expression
|
||||
(list (list nil (concat "^\\(?:" outline-regexp "\\).*$") 0))
|
||||
"Value for `imenu-generic-expression' in Outline mode.")
|
||||
|
||||
;;;###autoload
|
||||
(define-derived-mode outline-mode text-mode "Outline"
|
||||
"Set major mode for editing outlines with selective display.
|
||||
|
@ -375,8 +379,7 @@ Turning on outline mode calls the value of `text-mode-hook' and then of
|
|||
(concat paragraph-separate "\\|\\(?:" outline-regexp "\\)"))
|
||||
(setq-local font-lock-defaults
|
||||
'(outline-font-lock-keywords t nil nil backward-paragraph))
|
||||
(setq-local imenu-generic-expression
|
||||
(list (list nil (concat "^\\(?:" outline-regexp "\\).*$") 0)))
|
||||
(setq-local imenu-generic-expression outline-imenu-generic-expression)
|
||||
(add-hook 'change-major-mode-hook #'outline-show-all nil t)
|
||||
(add-hook 'hack-local-variables-hook #'outline-apply-default-state nil t))
|
||||
|
||||
|
|
|
@ -80,6 +80,7 @@
|
|||
outline-minor-mode-cycle t
|
||||
outline-minor-mode-highlight 'append)
|
||||
(outline-minor-mode)
|
||||
(setq-local imenu-generic-expression outline-imenu-generic-expression)
|
||||
(emacs-etc--hide-local-variables))
|
||||
|
||||
;;;###autoload
|
||||
|
|
Loading…
Add table
Reference in a new issue