From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 10 Nov 2004 15:15:43 +0000 (+0000)
Subject: (easy-menu-define-key): Understand the case where the keymap is a symbol.
X-Git-Tag: ttn-vms-21-2-B4~4020
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0db69919bbb513ab0eaebb2aca7209fb0e8d394;p=emacs.git

(easy-menu-define-key): Understand the case where the keymap is a symbol.
---

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.
 BEFORE can be either a string (menu item name) or a symbol
 \(the fake function key for the menu item).
 KEY does not have to be a symbol, and comparison is done with equal."
+  (if (symbolp menu) (setq menu (indirect-function menu)))
   (let ((inserted (null item))		; Fake already inserted.
 	tail done)
     (while (not done)