+(defvar default-load-path load-path)
+
+;; (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))
+ )