]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/menu-bar.el (menu-bar-showhide-menu): Add "Outlines" (bug#68979).
authorJuri Linkov <juri@linkov.net>
Sat, 10 Feb 2024 17:34:23 +0000 (19:34 +0200)
committerEshel Yaron <me@eshelyaron.com>
Sun, 11 Feb 2024 16:32:55 +0000 (17:32 +0100)
The menu item "Outlines" toggles 'outline-minor-mode' when one
of outline-search-function/outline-regexp/outline-level is defined
in the current buffer.

(cherry picked from commit 0a01b998d13027e5672592f9e60919aa683bad9e)

lisp/menu-bar.el

index 71dfe1cddec1c90ba42b9f9584326e523dd878f8..3d6ea645e03f0d15b634bc74574c73b87413f4d9 100644 (file)
@@ -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"