- "(let (package-dir) \
- (if (boundp (quote early-packages)) \
- (let ((dirs (delq nil (append (if early-package-load-path \
- early-packages) \
- (if late-package-load-path \
- late-packages) \
- (if last-package-load-path \
- last-packages))))) \
- (while (and dirs (not package-dir)) \
- (if (file-directory-p (car dirs)) \
- (setq package-dir (car dirs) \
- dirs (cdr dirs)))))) \
+ "(let ((dirs (append \
+ (if (and (boundp (quote configure-package-path)) \
+ (listp configure-package-path)) \
+ (delete \"\" configure-package-path)) \
+ (if (boundp (quote early-packages)) \
+ (append \
+ (if early-package-load-path early-packages) \
+ (if late-package-load-path late-packages) \
+ (if last-package-load-path last-packages))))) \
+ package-dir) \
+ (while (and dirs (not package-dir)) \
+ (if (file-directory-p (car dirs)) \
+ (setq package-dir (car dirs) \
+ dirs (cdr dirs)))) \