Mercurial > emacs
changeset 65498:f2fdccb16607
2005-09-14 Chong Yidong <cyd@stupidchicken.com>
* mouse.el (mouse-major-mode-menu): Make `prefix' optional.
Delete unused local var.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 13 Sep 2005 20:13:31 +0000 |
| parents | bc64e5ea4657 |
| children | e441782b5360 |
| files | lisp/ChangeLog lisp/mouse.el |
| diffstat | 2 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Sep 13 19:35:24 2005 +0000 +++ b/lisp/ChangeLog Tue Sep 13 20:13:31 2005 +0000 @@ -1,3 +1,8 @@ +2005-09-14 Chong Yidong <cyd@stupidchicken.com> + + * mouse.el (mouse-major-mode-menu): Make `prefix' optional. + Delete unused local var. + 2005-09-13 Juanma Barranquero <lekktu@gmail.com> * help-fns.el (describe-categories): "?\ " -> "?\s".
--- a/lisp/mouse.el Tue Sep 13 19:35:24 2005 +0000 +++ b/lisp/mouse.el Tue Sep 13 20:13:31 2005 +0000 @@ -153,7 +153,7 @@ (defvar mouse-major-mode-menu-prefix) ; dynamically bound -(defun mouse-major-mode-menu (event prefix) +(defun mouse-major-mode-menu (event &optional prefix) "Pop up a mode-specific menu of mouse commands. Default to the Edit menu if the major mode doesn't define a menu." ;; Switch to the window clicked on, because otherwise @@ -173,8 +173,7 @@ ;; default to the edit menu. (newmap (if ancestor (make-sparse-keymap (concat mode-name " Mode")) - menu-bar-edit-menu)) - result) + menu-bar-edit-menu))) (if ancestor ;; Make our menu inherit from the desired keymap which we want ;; to display as the menu now.