From 1352bf074a40b40897d4cc51a147a52521ee027b Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 15 Nov 1997 15:22:38 +0000 Subject: [PATCH] Regard LISPDIR if it is specified. Add mel's path. --- EMH-CFG | 30 +++++++++++------------------- 1 file changed, 11 insertions(+), 19 deletions(-) diff --git a/EMH-CFG b/EMH-CFG index 9cf3ef6..4df3e2c 100644 --- a/EMH-CFG +++ b/EMH-CFG @@ -1,31 +1,23 @@ ;;; -*-Emacs-Lisp-*- ;;; -;;; $Id: EMH-CFG,v 0.2 1997-08-05 15:33:09 morioka Exp $ +;;; $Id: EMH-CFG,v 0.3 1997-11-15 15:22:38 morioka Exp $ ;;; (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)) - ) +(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 ".") -- 1.7.10.4