Mercurial > hg > xemacs-beta
changeset 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 | 85fcd21809bb |
| children | a2ec6ba4c657 |
| files | lisp/ChangeLog lisp/package-get.el |
| diffstat | 2 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)