Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 683:eddbb88c3e02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-12-02 22:06:19 by adrian] [PATCH APPROVE COMMIT] xemacs-21.5: Use exec-suffix-list with locate-file in lisp/package-get.el <8zcl46l9.fsf@mailto.t-online.de>
author adrian
date Sun, 02 Dec 2001 22:06:19 +0000
parents e558c78d22f8
children a307f9a2021d
comparison
equal deleted inserted replaced
682:e558c78d22f8 683:eddbb88c3e02
441 (if package-entries-are-signed 441 (if package-entries-are-signed
442 (progn 442 (progn
443 (setq package-get-continue-update-base nil) 443 (setq package-get-continue-update-base nil)
444 (autoload 'mc-setversion "mc-setversion") 444 (autoload 'mc-setversion "mc-setversion")
445 (or 445 (or
446 (cond ((locate-file "gpg" exec-path) 446 (cond ((locate-file "gpg" exec-path exec-suffix-list)
447 (mc-setversion "gpg")) 447 (mc-setversion "gpg"))
448 ((locate-file "pgpe" exec-path) 448 ((locate-file "pgpe" exec-path exec-suffix-list)
449 (mc-setversion "5.0")) 449 (mc-setversion "5.0"))
450 ((locate-file "pgp" exec-path) 450 ((locate-file "pgp" exec-path exec-suffix-list)
451 (mc-setversion "2.6"))) 451 (mc-setversion "2.6")))
452 (error "Can't find a suitable pgp executable")) 452 (error "Can't find a suitable pgp executable"))
453 (autoload 'mc-verify "mc-toplev") 453 (autoload 'mc-verify "mc-toplev")
454 (mc-verify) 454 (mc-verify)
455 (setq package-get-continue-update-base t)) 455 (setq package-get-continue-update-base t))