easy-menu-change patch

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fcf28563a0a78b4ff54cbfecdeb3632c957e1777..87a00c260656d694b56750f207432f6011900bd1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2006-12-26  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+       * emacs-lisp/easymenu.el (easy-menu-change): New arg MAP to indicate
+       which keymap should be used to change menu.  It does not affect any
+       existent code.
+
 2006-12-26  Richard Stallman  <rms@gnu.org>
 
        * textmodes/fill.el (fill-paragraph): Check for a minibuffer

diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el
index a2153beebd9407265982b42997af92ce4db61174..06cafb17e61ee80e2d075b1a0c1057b7c1a1f187 100644 (file)
--- a/lisp/emacs-lisp/easymenu.el
+++ b/lisp/emacs-lisp/easymenu.el
@@ -443,20 +443,24 @@ When non-nil, NOEXP indicates that CALLBACK cannot be an expression
     command))
 
 ;;;###autoload
-(defun easy-menu-change (path name items &optional before)
+(defun easy-menu-change (path name items &optional before map)
   "Change menu found at PATH as item NAME to contain ITEMS.
 PATH is a list of strings for locating the menu that
 should contain a submenu named NAME.
 ITEMS is a list of menu items, as in `easy-menu-define'.
 These items entirely replace the previous items in that submenu.
 
+If MAP is specified, it should normally be a keymap; nil stands for the local
+menu-bar keymap.  It can also be a symbol, which has earlier been used as the
+first argument in a call to `easy-menu-define', or the value of such a symbol.
+
 If the menu located by PATH has no submenu named NAME, add one.
 If the optional argument BEFORE is present, add it just before
 the submenu named BEFORE, otherwise add it at the end of the menu.
 
 To implement dynamic menus, either call this from
 `menu-bar-update-hook' or use a menu filter."
-  (easy-menu-add-item nil path (easy-menu-create-menu name items) before))
+  (easy-menu-add-item map path (easy-menu-create-menu name items) before))
 
 ;; XEmacs needs the following two functions to add and remove menus.
 ;; In Emacs this is done automatically when switching keymaps, so