Mercurial > hg > xemacs-beta

diff lisp/package-admin.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 4f79e16b1112
children cc15677e0335
line wrap: on
line diff
--- a/lisp/package-admin.el	Mon Aug 13 11:00:13 2007 +0200
+++ b/lisp/package-admin.el	Mon Aug 13 11:01:07 2007 +0200
@@ -165,13 +165,13 @@
 	         (featurep package-feature)
 		 (setq autoload-dir (feature-file package-feature))
 		 (setq autoload-dir (file-name-directory autoload-dir))
-		 (member autoload-dir late-package-load-path))
+                (member autoload-dir (append early-package-load-path late-package-load-path)))
 	;; Find the corresonding entry in late-package
 	(setq pkg-dir
 	      (car-safe (member-if (lambda (h)
 			   (string-match (concat "^" (regexp-quote h))
 					 autoload-dir))
-			 late-packages))))
+                        (append (cdr early-packages) late-packages)))))
       (if pkg-dir
 	  pkg-dir
 	;; Ok we need to guess