# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1026035768 0
# Node ID 7384ea4d758d937c9f922e106f3cf6947c5d9445
# Parent  73cafacdf14f4fc5037810f8ed21b3e7404b7fe5
(easy-menu-popup-menu): Function deleted.

diff -r 73cafacdf14f -r 7384ea4d758d lisp/emacs-lisp/easymenu.el
--- a/lisp/emacs-lisp/easymenu.el	Sun Jul 07 09:37:09 2002 +0000
+++ b/lisp/emacs-lisp/easymenu.el	Sun Jul 07 09:56:08 2002 +0000
@@ -616,20 +616,6 @@
   (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