Mercurial > hg > xemacs-beta

comparison lisp/package-get.el @ 2802:52d126cb63af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
comparison
equal deleted inserted replaced
2801:85fcd21809bb 2802:52d126cb63af
839 (if (and lispdir 839 (if (and lispdir
840 (file-accessible-directory-p lispdir)) 840 (file-accessible-directory-p lispdir))
841 (progn 841 (progn
842 ;; Add lispdir to load-path if it doesn't already exist. 842 ;; Add lispdir to load-path if it doesn't already exist.
843 ;; NOTE: this does not take symlinks, etc., into account. 843 ;; NOTE: this does not take symlinks, etc., into account.
844 (if (let ((dirs load-path)) 844 (add-to-list 'load-path (file-name-as-directory lispdir))
845 (catch 'done
846 (while dirs
847 (if (string-equal (car dirs) lispdir)
848 (throw 'done nil))
849 (setq dirs (cdr dirs)))
850 t))
851 (setq load-path (cons lispdir load-path)))
852 (if (not (package-get-load-package-file lispdir "auto-autoloads")) 845 (if (not (package-get-load-package-file lispdir "auto-autoloads"))
853 (package-get-load-package-file lispdir "_pkg")) 846 (package-get-load-package-file lispdir "_pkg"))
854 t) 847 t)
855 nil))) 848 nil)))
856 849