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 ,@(mapcar
#'(lambda (path) #'(lambda (path)
`(add-to-list 'load-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) (if (stringp pkg-load-path)
(list pkg-load-path) (list pkg-load-path)
pkg-load-path)) pkg-load-path))