(progn
(add-to-list 'default-load-path LISPDIR)
(add-to-list 'load-path LISPDIR)
+ (add-to-list 'load-path (expand-file-name "emu" LISPDIR))
(add-to-list 'load-path (expand-file-name "apel" LISPDIR))
))
"tm-plain" "tm-ps"
"tmdecode"))
-(defvar PACKAGEDIR
- (if (boundp 'early-packages)
- (let ((dirs (append (if early-package-load-path
- early-packages)
- (if late-package-load-path
- late-packages)
- (if last-package-load-path
- last-packages)))
- dir)
- (while (not (file-exists-p
- (setq dir (car dirs))))
- (setq dirs (cdr dirs)))
- dir)))
+(defvar PACKAGEDIR (install-get-default-package-directory))
;;; SEMI-CFG ends here