;;; -*-Emacs-Lisp-*- ;;; ;;; $Id: CANNA-CFG,v 1.1 1998-01-16 08:51:11 morioka Exp $ ;;; (defvar default-load-path load-path) ;; (setq load-path (append ;; (mapcar (function ;; (lambda (path) ;; (expand-file-name path (getenv "PWD")) ;; )) ;; '("." "../apel" "../emu" "../tl") ;; ) ;; load-path)) (add-to-list 'load-path (expand-file-name "../../site-lisp/apel" data-directory)) (if (boundp 'LISPDIR) (progn (add-to-list 'default-load-path LISPDIR) (add-to-list 'load-path LISPDIR) (add-to-list 'load-path (expand-file-name "apel" LISPDIR)) )) (require 'install) (add-path default-directory) ;;; @ Please specify prefix of install directory. ;;; ;; Please specify install path prefix. ;; If it is omitted, shared directory (maybe /usr/local is used). (defvar PREFIX install-prefix) ;;(setq PREFIX "~/") ;; Please specify prefix for ``CANNA'' [optional] (setq CANNA_PREFIX "") ;;; @ optional settings ;;; ;; It is generated by automatically. Please set variable `PREFIX'. ;; If you don't like default directory tree, please set it. (defvar LISPDIR (install-detect-elisp-directory PREFIX)) ;; (setq install-default-elisp-directory "~/lib/emacs/lisp") (setq CANNA_DIR (expand-file-name CANNA_PREFIX LISPDIR)) ;;; CANNA-CFG ends here