# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 963767692 0
# Node ID fb30df0ff4ab888ff157974a51ebb0493a02b80e
# Parent  c969af4a71a7aab905d6d5501f64ad80b7eb1ff1
(mouse-major-mode-menu-1): get the submenu with lookup-key.

diff -r c969af4a71a7 -r fb30df0ff4ab lisp/mouse.el
--- a/lisp/mouse.el	Sun Jul 16 15:31:10 2000 +0000
+++ b/lisp/mouse.el	Sun Jul 16 17:14:52 2000 +0000
@@ -115,7 +115,7 @@
 	(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 @@
 		 ;;
 		 ;; 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.