Mercurial > hg > xemacs-beta
diff lisp/package-get.el @ 2802:52d126cb63af
[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.
| author | adrian |
|---|---|
| date | Sun, 05 Jun 2005 22:46:56 +0000 |
| parents | f33f1487208d |
| children | ae52b2073aa3 |
line wrap: on
line diff
--- 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)