comparison lisp/emacs-lisp/easymenu.el @ 8085:c7eb887a1e78

(easy-menu-change): New function.

8084:6746cdbec82b

	  (if name 
	      (define-key menu (vector (intern name)) (cons name command)))))
      (setq menu-items (cdr menu-items)))
    menu))

(defmacro easy-menu-remove (menu))

(defmacro easy-menu-add (menu &optional map))

(provide 'easymenu)

8085:c7eb887a1e78

	  (if name 
	      (define-key menu (vector (intern name)) (cons name command)))))
      (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))

(provide 'easymenu)