(hs-minor-mode-map): Move menu creation to

top level.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 805570ea41a1210aa1ade0bb14ba552f5657a749..912fa3edf67b39fb8bac1913120e3415f73cf4e8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2008-02-17  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * progmodes/hideshow.el (hs-minor-mode-map): Move menu creation to
+       top level.
+
        * simple.el (transient-mark-mode): Add an :init-value.
 
        * startup.el (command-line): Use custom-reevaluate-setting for

diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index f0065cbedafff812e4698ab5de617cca1664ce15..dcda521f146e4d3438187e1ad140f9a5f36d8b68 100644 (file)
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -355,24 +355,25 @@ Use the command `hs-minor-mode' to toggle or set this variable.")
     (define-key map "\C-c@\C-l"              'hs-hide-level)
     (define-key map "\C-c@\C-c"              'hs-toggle-hiding)
     (define-key map [(shift mouse-2)] 'hs-mouse-toggle-hiding)
-    (easy-menu-define hs-minor-mode-menu map
-      "Menu used when hideshow minor mode is active."
-      '("Hide/Show"
-       ["Hide Block"    hs-hide-block
-        :help "Hide the code or comment block at point"]
-       ["Show Block"    hs-show-block
-        :help "Show the code or comment block at point"]
-       ["Hide All"      hs-hide-all
-        :help "Hide all the blocks in the buffer"]
-       ["Show All"      hs-show-all
-        :help "Show all the clocks in the buffer"]
-       ["Hide Level"    hs-hide-level
-        :help "Hide all block at levels below the current block"]
-       ["Toggle Hiding" hs-toggle-hiding
-        :help "Toggle the hiding state of the current block"]))
     map)
   "Keymap for hideshow minor mode.")
 
+(easy-menu-define hs-minor-mode-menu hs-minor-mode-map
+  "Menu used when hideshow minor mode is active."
+  '("Hide/Show"
+    ["Hide Block"    hs-hide-block
+     :help "Hide the code or comment block at point"]
+    ["Show Block"    hs-show-block
+     :help "Show the code or comment block at point"]
+    ["Hide All"      hs-hide-all
+     :help "Hide all the blocks in the buffer"]
+    ["Show All"      hs-show-all
+     :help "Show all the clocks in the buffer"]
+    ["Hide Level"    hs-hide-level
+     :help "Hide all block at levels below the current block"]
+    ["Toggle Hiding" hs-toggle-hiding
+     :help "Toggle the hiding state of the current block"]))
+
 (defvar hs-c-start-regexp nil
   "Regexp for beginning of comments.
 Differs from mode-specific comment regexps in that