Mercurial > emacs
diff lisp/emacs-lisp/package.el @ 110182:96ce91e806ec
* emacs-lisp/package.el (package-directory-list): Only call file-name-nondirectory on a string.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 04 Sep 2010 13:54:48 -0400 |
parents | 9e17fce46124 |
children | 1bd5072b2384 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/package.el Sat Sep 04 13:13:14 2010 -0400 +++ b/lisp/emacs-lisp/package.el Sat Sep 04 13:54:48 2010 -0400 @@ -260,8 +260,9 @@ ;; 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.