Mercurial > hg > xemacs-beta

diff lisp/package-admin.el @ 448:3078fd1074e8 r21-2-39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-39
author cvs
date Mon, 13 Aug 2007 11:38:25 +0200
parents 576fb035e263
children e545f3ec2337
line wrap: on
line diff
--- a/lisp/package-admin.el	Mon Aug 13 11:37:23 2007 +0200
+++ b/lisp/package-admin.el	Mon Aug 13 11:38:25 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 corresponding 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