# HG changeset patch
# User adrian
# Date 1118011616 0
# Node ID 52d126cb63af217c4245ca318fcdc8636a0b01b4
# Parent  85fcd21809bb6bb651b857365c2f7684442e4cc5
[xemacs-hg @ 2005-06-05 22:46:55 by adrian]
xemacs-21.5-clean: package-get-init-package buglet (21.4.17)

-------------------- ChangeLog entries follow: --------------------

lisp/ChangeLog addition:

2005-06-06  Adrian Aichner  <adrian@xemacs.org>

	* package-get.el (package-get-init-package):
	package-get-init-package buglet (21.4.17) by Jeff Mincy
	<mincy@rcn.com> fixing false temporary load-path shadows reported
	after package installation and simplifying code.

diff -r 85fcd21809bb -r 52d126cb63af lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Jun 05 21:51:16 2005 +0000
+++ b/lisp/ChangeLog	Sun Jun 05 22:46:56 2005 +0000
@@ -1,3 +1,10 @@
+2005-06-06  Adrian Aichner  <adrian@xemacs.org>
+
+	* package-get.el (package-get-init-package):
+	package-get-init-package buglet (21.4.17) by Jeff Mincy
+	<mincy@rcn.com> fixing false temporary load-path shadows reported
+	after package installation and simplifying code.
+
 2005-05-28  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* XEmacs 21.5.21 "corn" is released.
diff -r 85fcd21809bb -r 52d126cb63af lisp/package-get.el
--- a/lisp/package-get.el	Sun Jun 05 21:51:16 2005 +0000
+++ b/lisp/package-get.el	Sun Jun 05 22:46:56 2005 +0000
@@ -841,14 +841,7 @@
 	(progn
 	  ;; Add lispdir to load-path if it doesn't already exist.
 	  ;; NOTE: this does not take symlinks, etc., into account.
-	  (if (let ((dirs load-path))
-		(catch 'done
-		  (while dirs
-		    (if (string-equal (car dirs) lispdir)
-			(throw 'done nil))
-		    (setq dirs (cdr dirs)))
-		  t))
-	      (setq load-path (cons lispdir load-path)))
+          (add-to-list 'load-path (file-name-as-directory lispdir))
 	  (if (not (package-get-load-package-file lispdir "auto-autoloads"))
 	      (package-get-load-package-file lispdir "_pkg"))
 	  t)