Mercurial > hg > xemacs-beta

comparison lisp/package-ui.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 7d59cb494b73
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
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"