procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(easy-menu-popup-menu): Function deleted.

Browse source
This commit is contained in:
Richard M. Stallman 2002-07-07 09:56:08 +00:00
parent 004b6f61b3
commit 259bf181b5
1 changed files with 0 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/easymenu.el
View file

@ -616,20 +616,6 @@ In some cases we use that to select between the local and global maps."
(or (keymapp map) (error "Malformed menu in easy-menu: (%s)" map))
map)
(defun easy-menu-popup-menu (menu &optional event)
"Pop up a menu and run a command according to user's selection.
MENU is a menu description as in `easy-menu-define'.
EVENT is a mouse button event and determines where to pop up the menu.
If EVENT is nil, pop up menu at the current mouse position."
(let ((map (easy-menu-create-menu (car menu) (cdr menu))))
(if (symbolp map)
(let ((f (memq :filter (get map 'menu-prop))))
(setq map (symbol-function map))
(if f (setq map (funcall (cadr f) map)))))
(let* ((sel (x-popup-menu (or event t) map))
(f (if (consp sel) (lookup-key map (apply 'vector sel)))))
(if (commandp f) (call-interactively f)))))
(provide 'easymenu)
;;; easymenu.el ends here