Mercurial > emacs

--- a/lisp/ChangeLog	Tue Dec 26 03:12:22 2006 +0000
+++ b/lisp/ChangeLog	Tue Dec 26 03:26:14 2006 +0000
@@ -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
--- a/lisp/emacs-lisp/easymenu.el	Tue Dec 26 03:12:22 2006 +0000
+++ b/lisp/emacs-lisp/easymenu.el	Tue Dec 26 03:26:14 2006 +0000
@@ -443,20 +443,24 @@
     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