diff options
| author | Stefan Monnier | 2004-11-10 15:15:43 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-11-10 15:15:43 +0000 |
| commit | d0db69919bbb513ab0eaebb2aca7209fb0e8d394 (patch) | |
| tree | cd017554a802de2ea0129f0271e1dec7c33dd4d0 | |
| parent | e9146d5accb44e7c00a350a95492b3db6f1ee980 (diff) | |
| download | emacs-d0db69919bbb513ab0eaebb2aca7209fb0e8d394.tar.gz emacs-d0db69919bbb513ab0eaebb2aca7209fb0e8d394.zip | |
(easy-menu-define-key): Understand the case where the keymap is a symbol.
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index f42f326ba0a..730236989a4 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el | |||
| @@ -378,6 +378,7 @@ otherwise put the new binding last in MENU. | |||
| 378 | BEFORE can be either a string (menu item name) or a symbol | 378 | BEFORE can be either a string (menu item name) or a symbol |
| 379 | \(the fake function key for the menu item). | 379 | \(the fake function key for the menu item). |
| 380 | KEY does not have to be a symbol, and comparison is done with equal." | 380 | KEY does not have to be a symbol, and comparison is done with equal." |
| 381 | (if (symbolp menu) (setq menu (indirect-function menu))) | ||
| 381 | (let ((inserted (null item)) ; Fake already inserted. | 382 | (let ((inserted (null item)) ; Fake already inserted. |
| 382 | tail done) | 383 | tail done) |
| 383 | (while (not done) | 384 | (while (not done) |