[nongnu] elpa/hyperdrive b152d72f19 02/11: Change: Put "Hyperdrive" menu bar in global-map

[ELPA Syncer]

branch: elpa/hyperdrive
commit b152d72f19a2a347849fb410c6edbb6ee41e1068
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: Put "Hyperdrive" menu bar in global-map
    
    This commit removes the hyperdrive-mode-map menu bar, and causes
    hyperdrive-menu-bar-mode to enable/disable the "Hyperdrive" menu bar at the
    top level regardless of the value of hyperdrive-mode.
---
 hyperdrive.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index a4a9b03c87..e19d6e5a24 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1174,16 +1174,16 @@ The return value of this function is the retrieval 
buffer."
     ["User Manual" h/info-manual
      :help "Open hyperdrive.el info manual"]))
 
-(easy-menu-define h/easy-menu h/mode-map
-  "Menu with all Hyperdrive commands." h/menu-bar-menu)
-
 ;;;###autoload
 (define-minor-mode hyperdrive-menu-bar-mode "Show hyperdrive in \"Tools\" menu 
bar."
   :global t :group 'hyperdrive
   (if h/menu-bar-mode
-      (easy-menu-add-item menu-bar-tools-menu nil h/menu-bar-menu
-                          "Read Net News")
-    (easy-menu-remove-item menu-bar-tools-menu nil "Hyperdrive")))
+      ;; Inspired by 
https://utcc.utoronto.ca/~cks/space/blog/programming/EmacsEasyMenuAndMenubarOrder
+      (define-key-after global-map [menu-bar hyperdrive]
+        (easy-menu-binding
+         (easy-menu-create-menu "Hyperdrive" h/menu-bar-menu) "Hyperdrive")
+        "Tools")
+    (define-key global-map [menu-bar hyperdrive] nil)))
 
 ;;;;; Miscellaneous commands