If :load-path is absolute, don't expand it

This commit is contained in:
John Wiegley 2012-06-17 16:44:49 -05:00
parent 0bde0b4c02
commit f6d65ce876

View file

@ -323,7 +323,9 @@
,@(mapcar
#'(lambda (path)
`(add-to-list 'load-path
,(expand-file-name path user-emacs-directory)))
,(if (file-name-absolute-p path)
path
(expand-file-name path user-emacs-directory))))
(if (stringp pkg-load-path)
(list pkg-load-path)
pkg-load-path))