# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772907330 0
# Node ID c7eb887a1e783a11ad4032ae330d571fb3f5e526
# Parent  6746cdbec82bb323d5131dbe2368da5694453a69
(easy-menu-change): New function.

diff -r 6746cdbec82b -r c7eb887a1e78 lisp/emacs-lisp/easymenu.el
--- a/lisp/emacs-lisp/easymenu.el	Wed Jun 29 15:26:29 1994 +0000
+++ b/lisp/emacs-lisp/easymenu.el	Wed Jun 29 16:28:50 1994 +0000
@@ -104,6 +104,20 @@
       (setq menu-items (cdr menu-items)))
     menu))
 
+(defun easy-menu-change (path name items)
+  "Change menu found at PATH as item NAME to contain ITEMS.
+PATH is a list of strings for locating the menu containing NAME in the
+menu bar.  ITEMS is a list of menu items, as in `easy-menu-define'.
+These items entirely replace the previous items in that map.
+
+Call this from `activate-menubar-hook' to implement dynamic menus."
+  (let ((map (key-binding (apply 'vector
+				 'menu-bar
+				 (mapcar 'intern (append path (list name)))))))
+    (if (keymapp map)
+	(setcdr map (cdr (easy-menu-create-keymaps name items)))
+      (error "Malformed menu in `easy-menu-change'"))))
+
 (defmacro easy-menu-remove (menu))
 
 (defmacro easy-menu-add (menu &optional map))