(mouse-major-mode-menu-1): get the submenu with lookup-key.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 32a049e182f..e4b9f961de6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-07-16  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * mouse.el (mouse-major-mode-menu-1): get the submenu with lookup-key.
+
 2000-07-16  Dave Love  <fx@gnu.org>
 
         * cus-edit.el (custom-buffer-create-internal): Use a help-echo
diff --git a/lisp/mouse.el b/lisp/mouse.el
index e54ecd0cf80..9057e781d5d 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -115,7 +115,7 @@ Default to the Edit menu if the major mode doesn't define a menu."
         (if (eq submap t)
             menubar
           (setq mouse-major-mode-menu-prefix (list (car submap)))
-          (cdr (cdr submap))))))
+          (lookup-key menubar (vector (car submap)))))))
 
 ;; Commands that operate on windows.
 
@@ -309,7 +309,7 @@ MODE-LINE-P non-nil means a mode line is dragged."
                  ;;
                  ;; if size change caused space to be stolen
                  ;; from a window above this one, rescind the
-                 ;; change, but only if we didn't grow/srhink
+                 ;; change, but only if we didn't grow/shrink
                  ;; the minibuffer.  minibuffer size changes
                  ;; can cause all windows to shrink... no way
                  ;; around it.