diff options
| author | Richard M. Stallman <[email protected]> | 2002-07-07 09:56:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-07-07 09:56:08 +0000 |
| commit | 259bf181b5c248d04575f336a0aee8002bf0f58e (patch) | |
| tree | 537f19bbddb1995547cf3d2696e030a0a147bb95 | |
| parent | 004b6f61b33da8969984cab97932262a9e56e460 (diff) | |
(easy-menu-popup-menu): Function deleted.
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 045a559069..bf2e190e48 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -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 |