procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* emacs-lisp/package.el (package-directory-list): Only call file-name-nondirectory on a string.

Browse source
This commit is contained in:
Chong Yidong 2010-09-04 13:54:48 -04:00
parent ebf662f494
commit 0be01d2c86
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2010-09-04 Noorul Islam K M <noorul@noorul.com> (tiny change)
* emacs-lisp/package.el (package-directory-list): Only call
file-name-nondirectory on a string.
2010-09-02 Chong Yidong <cyd@stupidchicken.com> 2010-09-02 Chong Yidong <cyd@stupidchicken.com>
* emacs-lisp/package.el (package--download-one-archive): Ensure * emacs-lisp/package.el (package--download-one-archive): Ensure

5
lisp/emacs-lisp/package.el
View file

@ -260,8 +260,9 @@ packages in `package-directory-list'."
;; Defaults are subdirs named "elpa" in the site-lisp dirs. ;; Defaults are subdirs named "elpa" in the site-lisp dirs.
(let (result) (let (result)
(dolist (f load-path) (dolist (f load-path)
(if (equal (file-name-nondirectory f) "site-lisp") (and (stringp f)
(push (expand-file-name "elpa" f) result))) (equal (file-name-nondirectory f) "site-lisp")
(push (expand-file-name "elpa" f) result)))
(nreverse result)) (nreverse result))
"List of additional directories containing Emacs Lisp packages. "List of additional directories containing Emacs Lisp packages.
Each directory name should be absolute. Each directory name should be absolute.