* 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 (file)
--- 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 (file)
--- 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)