From a45423d8fabea1bfb09b58be3432d07fd12346c5 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 16 Jul 2000 17:16:28 +0000 Subject: [PATCH] (mouse-major-mode-menu-1): get the submenu with lookup-key. --- lisp/ChangeLog | 4 ++++ lisp/mouse.el | 4 ++-- 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 + + * mouse.el (mouse-major-mode-menu-1): get the submenu with lookup-key. + 2000-07-16 Dave Love * 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. -- 2.39.2