Mercurial > hg > xemacs-beta

comparison lisp/package-ui.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
533 (interactive "e") 533 (interactive "e")
534 (save-excursion 534 (save-excursion
535 (set-buffer (event-buffer event)) 535 (set-buffer (event-buffer event))
536 (goto-char (event-point event)) 536 (goto-char (event-point event))
537 (popup-menu pui-menu event) 537 (popup-menu pui-menu event)
538 ;; I agreee with dired.el this is seriously bogus. 538 ;; I agree with dired.el - this is seriously bogus.
539 (while (popup-menu-up-p) 539 (while (popup-menu-up-p)
540 (dispatch-event (next-event))))) 540 (dispatch-event (next-event)))))
541 541
542 (defvar pui-menu 542 (defvar pui-menu
543 '("Packages" 543 '("Packages"