Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 454:d7a9135ec789 r21-2-42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-42
author cvs
date Mon, 13 Aug 2007 11:40:54 +0200
parents 576fb035e263
children 7039e6323819
comparison
equal deleted inserted replaced
453:270b05afd845 454:d7a9135ec789
267 "*If Non-nil always make sure we are using the latest package index (base). 267 "*If Non-nil always make sure we are using the latest package index (base).
268 Otherwise respect the `force-current' argument of `package-get-require-base'." 268 Otherwise respect the `force-current' argument of `package-get-require-base'."
269 :type 'boolean 269 :type 'boolean
270 :group 'package-get) 270 :group 'package-get)
271 271
272 (defcustom package-get-require-signed-base-updates t 272 (defcustom package-get-require-signed-base-updates nil
273 "*If set to a non-nil value, require explicit user confirmation for updates 273 "*If set to a non-nil value, require explicit user confirmation for updates
274 to the package-get database which cannot have their signature verified via PGP. 274 to the package-get database which cannot have their signature verified via PGP.
275 When nil, updates which are not PGP signed are allowed without confirmation." 275 When nil, updates which are not PGP signed are allowed without confirmation."
276 :type 'boolean 276 :type 'boolean
277 :group 'package-get) 277 :group 'package-get)
1046 (package-get-require-base t) 1046 (package-get-require-base t)
1047 (mapcar (lambda (pkg) 1047 (mapcar (lambda (pkg)
1048 (if (eval (intern (concat (symbol-name (car pkg)) "-package"))) 1048 (if (eval (intern (concat (symbol-name (car pkg)) "-package")))
1049 (package-get (car pkg) nil)) 1049 (package-get (car pkg) nil))
1050 t) 1050 t)
1051 package-get-base)) 1051 package-get-base)
1052 (package-net-update-installed-db))
1052 1053
1053 (defun package-get-ever-installed-p (pkg &optional notused) 1054 (defun package-get-ever-installed-p (pkg &optional notused)
1054 (string-match "-package$" (symbol-name pkg)) 1055 (string-match "-package$" (symbol-name pkg))
1055 (custom-initialize-set 1056 (custom-initialize-set
1056 pkg 1057 pkg