Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 337:fbbf69b4e8a7 r21-0-66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-66
author cvs
date Mon, 13 Aug 2007 10:51:02 +0200
parents 4f79e16b1112
children 3b3709405255
comparison
equal deleted inserted replaced
336:fe0a93612022 337:fbbf69b4e8a7
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