Mercurial > hg > xemacs-beta

comparison lisp/package-ui.el @ 363:972bbb6d6ca2 r21-1-11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-11
author cvs
date Mon, 13 Aug 2007 10:59:28 +0200
parents 54f7aa390f4f
children
comparison
equal deleted inserted replaced
362:1e474c183006 363:972bbb6d6ca2
29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 29 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
30 ;; User-changeable variables: 30 ;; User-changeable variables:
31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
32 32
33 (defgroup pui nil 33 (defgroup pui nil
34 "Conventient interface to the package system." 34 "Convenient interface to the package system."
35 :group 'package-tools 35 :group 'package-tools
36 :tag "Package User interface" 36 :tag "Package User interface"
37 :prefix "pui-") 37 :prefix "pui-")
38 38
39 (defcustom pui-package-install-dest-dir nil 39 (defcustom pui-package-install-dest-dir nil
307 (if (member pkg-sym pui-deleted-packages) 307 (if (member pkg-sym pui-deleted-packages)
308 (setq pui-deleted-packages 308 (setq pui-deleted-packages
309 (delete pkg-sym pui-deleted-packages)) 309 (delete pkg-sym pui-deleted-packages))
310 (setq pui-deleted-packages 310 (setq pui-deleted-packages
311 (cons pkg-sym pui-deleted-packages)) 311 (cons pkg-sym pui-deleted-packages))
312 (setq pui-seleted-packages 312 (setq pui-selected-packages
313 (delete pkg-sym pui-selected-packages))) 313 (delete pkg-sym pui-selected-packages)))
314 (pui-update-package-display extent pkg-sym) 314 (pui-update-package-display extent pkg-sym)
315 )) 315 ))
316 316
317 317
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"