procyberian/emacs
1
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/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.
(let (result)
(dolist (f load-path)
(if (equal (file-name-nondirectory f) "site-lisp")
(push (expand-file-name "elpa" f) result)))
(and (stringp f)
(equal (file-name-nondirectory f) "site-lisp")
(push (expand-file-name "elpa" f) result)))
(nreverse result))
"List of additional directories containing Emacs Lisp packages.
Each directory name should be absolute.