Outline-minor-mode and the menu bar

[Stefan Monnier]

I get really annoyed at outline-minor-mode's insistence on
eating up as much menubar real estate as it can.

I think the three menus (`hide', `show', `headings') should be
merged into a single one called `Outline'.

I currently use the crude patch below which just puts all entries
together in `outline', but I feel like something better is needed.
Maybe just adding separators would be enough.  Or maybe using
submenus would be better ?


        Stefan

Index: outline.el
===================================================================
RCS file: /cvs/emacs/lisp/textmodes/outline.el,v
retrieving revision 1.49
diff -u -u -b -r1.49 outline.el
--- outline.el  2001/09/12 20:42:08     1.49
+++ outline.el  2001/11/28 21:12:40
@@ -87,51 +89,45 @@
     nil
   (setq outline-mode-menu-bar-map (make-sparse-keymap))
 
-  (define-key outline-mode-menu-bar-map [hide]
-    (cons "Hide" (make-sparse-keymap "Hide")))
+  (define-key outline-mode-menu-bar-map [outline]
+    (cons "Outline" (make-sparse-keymap "Outline")))
 
-  (define-key outline-mode-menu-bar-map [hide hide-other]
+  (define-key outline-mode-menu-bar-map [outline hide-other]
     '("Hide Other" . hide-other))
-  (define-key outline-mode-menu-bar-map [hide hide-sublevels]
+  (define-key outline-mode-menu-bar-map [outline hide-sublevels]
     '("Hide Sublevels" . hide-sublevels))
-  (define-key outline-mode-menu-bar-map [hide hide-subtree]
+  (define-key outline-mode-menu-bar-map [outline hide-subtree]
     '("Hide Subtree" . hide-subtree))
-  (define-key outline-mode-menu-bar-map [hide hide-entry]
+  (define-key outline-mode-menu-bar-map [outline hide-entry]
     '("Hide Entry" . hide-entry))
-  (define-key outline-mode-menu-bar-map [hide hide-body]
+  (define-key outline-mode-menu-bar-map [outline hide-body]
     '("Hide Body" . hide-body))
-  (define-key outline-mode-menu-bar-map [hide hide-leaves]
+  (define-key outline-mode-menu-bar-map [outline hide-leaves]
     '("Hide Leaves" . hide-leaves))
 
-  (define-key outline-mode-menu-bar-map [show]
-    (cons "Show" (make-sparse-keymap "Show")))
-
-  (define-key outline-mode-menu-bar-map [show show-subtree]
+  (define-key outline-mode-menu-bar-map [outline show-subtree]
     '("Show Subtree" . show-subtree))
-  (define-key outline-mode-menu-bar-map [show show-children]
+  (define-key outline-mode-menu-bar-map [outline show-children]
     '("Show Children" . show-children))
-  (define-key outline-mode-menu-bar-map [show show-branches]
+  (define-key outline-mode-menu-bar-map [outline show-branches]
     '("Show Branches" . show-branches))
-  (define-key outline-mode-menu-bar-map [show show-entry]
+  (define-key outline-mode-menu-bar-map [outline show-entry]
     '("Show Entry" . show-entry))
-  (define-key outline-mode-menu-bar-map [show show-all]
+  (define-key outline-mode-menu-bar-map [outline show-all]
     '("Show All" . show-all))
-
-  (define-key outline-mode-menu-bar-map [headings]
-    (cons "Headings" (make-sparse-keymap "Headings")))
 
-  (define-key outline-mode-menu-bar-map [headings copy]
+  (define-key outline-mode-menu-bar-map [outline copy]
     '(menu-item "Copy to kill ring" outline-headers-as-kill
                :enable mark-active))
-  (define-key outline-mode-menu-bar-map [headings outline-backward-same-level]
+  (define-key outline-mode-menu-bar-map [outline outline-backward-same-level]
     '("Previous Same Level" . outline-backward-same-level))
-  (define-key outline-mode-menu-bar-map [headings outline-forward-same-level]
+  (define-key outline-mode-menu-bar-map [outline outline-forward-same-level]
     '("Next Same Level" . outline-forward-same-level))
-  (define-key outline-mode-menu-bar-map [headings 
outline-previous-visible-heading]
+  (define-key outline-mode-menu-bar-map [outline 
outline-previous-visible-heading]
     '("Previous" . outline-previous-visible-heading))
-  (define-key outline-mode-menu-bar-map [headings outline-next-visible-heading]
+  (define-key outline-mode-menu-bar-map [outline outline-next-visible-heading]
     '("Next" . outline-next-visible-heading))
-  (define-key outline-mode-menu-bar-map [headings outline-up-heading]
+  (define-key outline-mode-menu-bar-map [outline outline-up-heading]
     '("Up" . outline-up-heading)))
 
 (defvar outline-mode-map nil "")