# HG changeset patch
# User adrian
# Date 1007330779 0
# Node ID eddbb88c3e022b41d060e9bd598f09ff35e3fac4
# Parent  e558c78d22f85ad02fb2b5270aeee1a98931a501
[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>

diff -r e558c78d22f8 -r eddbb88c3e02 lisp/ChangeLog
--- 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
diff -r e558c78d22f8 -r eddbb88c3e02 lisp/package-get.el
--- 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")