Mercurial > hg > xemacs-beta
changeset 683:eddbb88c3e02
[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 | c6ad4a798ab9 |
| files | lisp/ChangeLog lisp/package-get.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Dec 02 15:27:38 2001 +0000 +++ b/lisp/ChangeLog Sun Dec 02 22:06:19 2001 +0000 @@ -1,3 +1,8 @@ +2001-12-02 Adrian Aichner <adrian@xemacs.org> + + * package-get.el (package-get-update-base-from-buffer): Use + exec-suffix-list with locate-file. + 2001-12-03 Steve Youngs <youngs@xemacs.org> * package-get.el (package-get-update-base-from-buffer): Add
--- a/lisp/package-get.el Sun Dec 02 15:27:38 2001 +0000 +++ b/lisp/package-get.el Sun Dec 02 22:06:19 2001 +0000 @@ -443,11 +443,11 @@ (setq package-get-continue-update-base nil) (autoload 'mc-setversion "mc-setversion") (or - (cond ((locate-file "gpg" exec-path) + (cond ((locate-file "gpg" exec-path exec-suffix-list) (mc-setversion "gpg")) - ((locate-file "pgpe" exec-path) + ((locate-file "pgpe" exec-path exec-suffix-list) (mc-setversion "5.0")) - ((locate-file "pgp" exec-path) + ((locate-file "pgp" exec-path exec-suffix-list) (mc-setversion "2.6"))) (error "Can't find a suitable pgp executable")) (autoload 'mc-verify "mc-toplev")