-;; (setq load-path (nconc
-;; (mapcar (function
-;; (lambda (path)
-;; (expand-file-name path default-directory)
-;; ))
-;; '("." "../semi"
-;; "../emu" "../apel" "../mu" "../mel")
-;; )
-;; load-path))
-
-(add-to-list 'load-path
- (expand-file-name "../../site-lisp/apel" data-directory))
-
-(when (boundp 'LISPDIR)
- (add-to-list 'default-load-path LISPDIR)
- (add-to-list 'load-path LISPDIR)
- (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
- )
+(cond ((boundp 'LISPDIR)
+ (add-to-list 'default-load-path LISPDIR)
+ (add-to-list 'load-path LISPDIR)
+ (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
+ )
+ (t
+ (add-to-list 'load-path
+ (expand-file-name "../../site-lisp/apel" data-directory))
+ ))