;;; -*-Emacs-Lisp-*-
;;;
-;;; $Id: EMH-CFG,v 0.0 1997-05-15 06:44:26 morioka Exp $
+;;; $Id: EMH-CFG,v 0.3 1997-11-15 15:22:38 morioka Exp $
;;;
-(setq load-path (nconc
- (mapcar (function
- (lambda (path)
- (expand-file-name path default-directory)
- ))
- '("." "../semi" "../emu" "../apel" "../mu" "../mel")
- )
- load-path))
+(defvar default-load-path load-path)
+
+(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))
+ ))
(require 'install)
+(add-path "mel")
+(add-path "semi")
+(add-path ".")
+
;;; @ Please specify prefix of install directory.
;;;