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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 32a049e182f4d84983db77427bd367901e05ea70..e4b9f961de635ab972f8426edcdf56649a9ce09a 100644 (file)
--- 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 e54ecd0cf803823ec00fda20f60d5f1eb808011a..9057e781d5d6802c3c5bfc4779683bd90876e91b 100644 (file)
--- 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)))))))
 \f
 ;; 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.