diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-19 16:02:28 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-19 16:02:28 +0200 |
| commit | ba0e989c11ebe05bb519845a6d3ab5af1e2715d8 (patch) | |
| tree | e767f6107da3316c5778f393323908f25635ac2b /lisp/outline.el | |
| parent | cd2168cd131852279a7d9257c7dff45224c9d6a9 (diff) | |
| download | emacs-ba0e989c11ebe05bb519845a6d3ab5af1e2715d8.tar.gz emacs-ba0e989c11ebe05bb519845a6d3ab5af1e2715d8.tar.bz2 emacs-ba0e989c11ebe05bb519845a6d3ab5af1e2715d8.zip | |
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.
Diffstat (limited to 'lisp/outline.el')
| -rw-r--r-- | lisp/outline.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index 25ef1616b93..e3fbd8b3272 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -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)) |