diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-03-29 11:23:01 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-03-29 11:23:01 -0400 |
commit | fe59d70512322e7001ffd772f5e74c7302b7e1d5 (patch) | |
tree | 5bf7e0872533047a8905c23de00dd9eade50a422 | |
parent | a2c9fe43660e50d34f7992bf3387908522e4bd02 (diff) | |
download | emacs-fe59d70512322e7001ffd772f5e74c7302b7e1d5.tar.gz |
Make tmm-menubar work for the Buffers menu again.
* tmm.el (tmm-prompt): Also handle keymap entries in the form of
vectors rather than cons cells, as used in menu-bar-update-buffers.
-rw-r--r-- | lisp/ChangeLog | 6 | ||||
-rw-r--r-- | lisp/tmm.el | 6 |
2 files changed, 11 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3294db39d52..bbe764b6b4a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2010-03-29 Stefan Monnier <monnier@iro.umontreal.ca> + + Make tmm-menubar work for the Buffers menu again. + * tmm.el (tmm-prompt): Also handle keymap entries in the form of + vectors rather than cons cells, as used in menu-bar-update-buffers. + 2010-03-28 Chong Yidong <cyd@stupidchicken.com> * progmodes/js.el (js-auto-indent-flag, js-mode-map) diff --git a/lisp/tmm.el b/lisp/tmm.el index 946baad59e7..f4ae3c110d5 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -170,7 +170,11 @@ Its value should be an event that has a binding in MENU." (mapc (lambda (elt) (if (stringp elt) (setq gl-str elt) - (and (listp elt) (tmm-get-keymap elt not-menu)))) + (cond + ((listp elt) (tmm-get-keymap elt not-menu)) + ((vectorp elt) + (dotimes (i (length elt)) + (tmm-get-keymap (cons i (aref elt i)) not-menu)))))) menu) ;; Choose an element of tmm-km-list; put it in choice. (if (and not-menu (= 1 (length tmm-km-list))) |