;; Set PACKAGEDIR if not set yet.
(or PACKAGEDIR
- (setq 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))))
+ (setq PACKAGEDIR (install-get-default-package-directory)))
(if PACKAGEDIR
(princ (format "\nPACKAGEDIR=%s\n" PACKAGEDIR))
(error "XEmacs package system is not available")))