Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 927:e40f8d860d5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-07-17 06:13:39 by youngs] 2002-07-17 Steve Youngs <youngs@xemacs.org> * package-get.el (package-get-update-base-from-buffer): Re-write so it doesn't rely on the APEL package.
author youngs
date Wed, 17 Jul 2002 06:13:39 +0000
parents eb3bc15a6e0f
children 4ee231b26c65
comparison
equal deleted inserted replaced
926:4f61e79f8a14 927:e40f8d860d5f
439 ;(setq end (point)) 439 ;(setq end (point))
440 ) 440 )
441 (setq package-get-continue-update-base t) 441 (setq package-get-continue-update-base t)
442 (if package-get-require-signed-base-updates 442 (if package-get-require-signed-base-updates
443 (if package-entries-are-signed 443 (if package-entries-are-signed
444 (progn 444 (if (featurep 'mailcrypt-autoloads)
445 (setq package-get-continue-update-base nil) 445 (progn
446 (autoload 'mc-setversion "mc-setversion") 446 (setq package-get-continue-update-base nil)
447 (with-fboundp 'mc-setversion 447 (autoload 'mc-setversion "mc-setversion")
448 (if-boundp 'exec-suffix-list 448 (cond ((locate-file "gpg" exec-path
449 (or 449 '("" ".btm" ".bat" ".cmd" ".exe" ".com")
450 (cond ((locate-file "gpg" exec-path exec-suffix-list) 450 'executable)
451 (mc-setversion "gpg")) 451 (mc-setversion "gpg"))
452 ((locate-file "pgpe" exec-path exec-suffix-list) 452 ((locate-file "pgpe" exec-path
453 (mc-setversion "5.0")) 453 '("" ".btm" ".bat" ".cmd" ".exe" ".com")
454 ((locate-file "pgp" exec-path exec-suffix-list) 454 'executable)
455 (mc-setversion "2.6"))) 455 (mc-setversion "5.0"))
456 (error "Can't find a suitable pgp executable")) 456 ((locate-file "pgp" exec-path
457 (error 'unimplemented "`apel' package unavailable"))) 457 '("" ".btm" ".bat" ".cmd" ".exe" ".com")
458 (autoload 'mc-verify "mc-toplev") 458 'executable)
459 (declare-fboundp (mc-verify)) 459 (mc-setversion "2.6"))
460 (setq package-get-continue-update-base t)) 460 (t
461 (error 'search-failed
462 "Can't find a suitable PGP executable")))
463 (autoload 'mc-verify "mc-toplev")
464 (declare-fboundp (mc-verify))
465 (setq package-get-continue-update-base t))
466 (error 'unimplemented "`mailcrypt' package unavailable"))
461 (if (yes-or-no-p 467 (if (yes-or-no-p
462 "Package Index is not PGP signed. Continue anyway? ") 468 "Package Index is not PGP signed. Continue anyway? ")
463 (setq package-get-continue-update-base t) 469 (setq package-get-continue-update-base t)
464 (error "Package database not updated") 470 (error "Package database not updated")
465 (setq package-get-continue-update-base nil)))) 471 (setq package-get-continue-update-base nil))))