From: yamaoka <yamaoka>
Date: Fri, 1 Dec 2000 05:26:33 +0000 (+0000)
Subject: * lisp/lpath.el: Attempt to add another FLIM path to `load-path' if the module
X-Git-Tag: t-gnus-6_14_5-09~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7140eb0dfbde883aa7a352dd20786c68d58d1bcd;p=elisp%2Fgnus.git-

* lisp/lpath.el: Attempt to add another FLIM path to `load-path' if the module
 `mel' does not found.  This procedure may be needed when recent FLIM 1.14 is
 used under old Emacsen.
---

diff --git a/ChangeLog b/ChangeLog
index 981e30b..4a25124 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-12-01  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/lpath.el: Attempt to add another FLIM path to `load-path' if
+	the module `mel' does not found.  This procedure may be needed when
+	recent FLIM 1.14 is used under old Emacsen.
+
 2000-11-27  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/gnus-vers.el (gnus-revision-number): Increment to 08.
diff --git a/lisp/lpath.el b/lisp/lpath.el
index 49b5eae..be06dbd 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -6,6 +6,19 @@
     (load "apel/path-util"))
 (add-path "apel")
 (add-path "flim")
+(unless (module-installed-p 'mel)
+  ;; FLIM 1.14 may have installed in two "flim" subdirectories.
+  (push (expand-file-name "flim"
+			  (file-name-directory (get-latest-path "^apel$" t)))
+	load-path)
+  (unless (module-installed-p 'mel)
+    (error "
+FLIM package does not found in %s.
+Try to re-configure with --with-addpath=FLIM_PATH and run make again.
+"
+	   (progn
+	     (add-path "semi")
+	     load-path))))
 (add-path "semi")
 
 (defun maybe-fbind (args)