Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 396:6719134a07c2 r21-2-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-13
author cvs
date Mon, 13 Aug 2007 11:12:05 +0200
parents c6012109f545
children 74fd4e045ea6
comparison
equal deleted inserted replaced
395:de2c2a7459d2 396:6719134a07c2
110 110
111 (defgroup package-get nil 111 (defgroup package-get nil
112 "Automatic Package Fetcher and Installer." 112 "Automatic Package Fetcher and Installer."
113 :prefix "package-get" 113 :prefix "package-get"
114 :group 'package-tools) 114 :group 'package-tools)
115 115
116 ;;;###autoload
116 (defvar package-get-base nil 117 (defvar package-get-base nil
117 "List of packages that are installed at this site. 118 "List of packages that are installed at this site.
118 For each element in the alist, car is the package name and the cdr is 119 For each element in the alist, car is the package name and the cdr is
119 a plist containing information about the package. Typical fields 120 a plist containing information about the package. Typical fields
120 kept in the plist are: 121 kept in the plist are:
1013 ;;;###autoload 1014 ;;;###autoload
1014 (defun package-get-custom () 1015 (defun package-get-custom ()
1015 "Fetch and install the latest versions of all customized packages." 1016 "Fetch and install the latest versions of all customized packages."
1016 (interactive) 1017 (interactive)
1017 (package-get-require-base t) 1018 (package-get-require-base t)
1018 ;; Load a fresh copy
1019 (load "package-get-custom.el")
1020 (mapcar (lambda (pkg) 1019 (mapcar (lambda (pkg)
1021 (if (eval (intern (concat (symbol-name (car pkg)) "-package"))) 1020 (if (eval (intern (concat (symbol-name (car pkg)) "-package")))
1022 (package-get (car pkg) nil)) 1021 (package-get (car pkg) nil))
1023 t) 1022 t)
1024 package-get-base)) 1023 package-get-base))
1039 (let* ((category (plist-get props 'category)) 1038 (let* ((category (plist-get props 'category))
1040 (group (intern (concat category "-packages"))) 1039 (group (intern (concat category "-packages")))
1041 (custom-var (intern (concat (symbol-name package) "-package"))) 1040 (custom-var (intern (concat (symbol-name package) "-package")))
1042 (description (plist-get props 'description))) 1041 (description (plist-get props 'description)))
1043 (when (not (memq group package-get-custom-groups)) 1042 (when (not (memq group package-get-custom-groups))
1044 (setq package-get-custom-groups (cons package 1043 (setq package-get-custom-groups (cons group
1045 package-get-custom-groups)) 1044 package-get-custom-groups))
1046 (eval `(defgroup ,group nil 1045 (eval `(defgroup ,group nil
1047 ,(concat category " package group") 1046 ,(concat category " package group")
1048 :group 'packages))) 1047 :group 'packages)))
1049 (eval `(defcustom ,custom-var nil 1048 (eval `(defcustom ,custom-var nil