diff options
| author | Juri Linkov <juri@linkov.net> | 2024-02-10 19:34:23 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2024-02-10 19:34:23 +0200 |
| commit | 0a01b998d13027e5672592f9e60919aa683bad9e (patch) | |
| tree | 5c0963d08ae5b43cc11bd82ca143b5b667b53ce9 /lisp/menu-bar.el | |
| parent | 939187fd7a07249a1a76d98e8d91051fa76b8727 (diff) | |
| download | emacs-0a01b998d13027e5672592f9e60919aa683bad9e.tar.gz | |
* lisp/menu-bar.el (menu-bar-showhide-menu): Add "Outlines" (bug#68979).
The menu item "Outlines" toggles 'outline-minor-mode' when one
of outline-search-function/outline-regexp/outline-level is defined
in the current buffer.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 47c6a8f0613..5b290899ff5 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -1353,6 +1353,15 @@ mail status in mode line")) (frame-visible-p (symbol-value 'speedbar-frame)))))) + (bindings--define-key menu [showhide-outline-minor-mode] + '(menu-item "Outlines" outline-minor-mode + :help "Turn outline-minor-mode on/off" + :visible (seq-some #'local-variable-p + '(outline-search-function + outline-regexp outline-level)) + :button (:toggle . (and (boundp 'outline-minor-mode) + outline-minor-mode)))) + (bindings--define-key menu [showhide-tab-line-mode] '(menu-item "Window Tab Line" global-tab-line-mode :help "Turn window-local tab-lines on/off" |