From: morioka <morioka>
Date: Mon, 9 Feb 1998 11:53:53 +0000 (+0000)
Subject: Load apel/path-util and add apel/ to load path.
X-Git-Tag: emacs-canna-199811302358~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dc17fa1c1946a313057252dd663f5380575eaeaf;p=elisp%2Femacs-canna.git

Load apel/path-util and add apel/ to load path.
(config-canna): Add /usr/lib as default path of Canna-libraries.
---

diff --git a/CANNA-CONFIG b/CANNA-CONFIG
index 003a880..3cce227 100644
--- a/CANNA-CONFIG
+++ b/CANNA-CONFIG
@@ -1,8 +1,11 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: CANNA-CONFIG,v 1.1 1998-01-16 08:51:11 morioka Exp $
+;;; $Id: CANNA-CONFIG,v 1.2 1998-02-09 11:53:53 morioka Exp $
 ;;;
 
+(load "apel/path-util")
+(add-path "apel")
+
 (defun config-canna ()
   (let ((emacs (car command-line-args))
 	(srcdir (expand-file-name "src" source-directory))
@@ -32,7 +35,7 @@
 				  ))))
     (or canna-libraries
 	(setq canna-libraries
-	      (let ((default-load-path '("/usr/local/lib"))
+	      (let ((default-load-path '("/usr/local/lib" "/usr/lib"))
 		    dir)
 		(require 'path-util)
 		(add-path (expand-file-name "lib" prefix))
@@ -40,7 +43,7 @@
 			    (not (file-exists-p
 				  (expand-file-name "libcanna.a" dir)))
 			    )
-		  (setq default-load-path (cdr dir)))
+		  (setq default-load-path (cdr default-load-path)))
 		dir)))
     (princ (format "\
 emacs=%s