* dgnushack.el: Add the parent directory of the directory where the APEL
authoryamaoka <yamaoka>
Mon, 9 Jul 2001 23:52:33 +0000 (23:52 +0000)
committeryamaoka <yamaoka>
Mon, 9 Jul 2001 23:52:33 +0000 (23:52 +0000)
 modules are installed to `load-path' according to the description of the
 file Mule23@1934.

ChangeLog
lisp/dgnushack.el

index fda816f..5b6351a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-07-09  Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * lisp/dgnushack.el: Add the parent directory of the directory
+       where the APEL modules are installed to `load-path' according to
+       the description of the file Mule23@1934.
+
 2001-07-09  Akihiro Arisawa  <ari@atesoft.advantest.co.jp>
 
        * README.semi: Modify URI of emacs-w3m.
@@ -8,7 +14,7 @@
 
        * texi/gnus-ja.texi (Top, Article Treatment): Fix typo.
        (Web Newspaper): Modify URI of emacs-w3m.
-       
+
 2001-07-06  KITAGAWA Takurou  <i30x1641@ip.media.kyoto-u.ac.jp>
 
        * lisp/Makefile.in (clever): Use `if test... then' instead of
index d10d7ff..5cb8b8e 100644 (file)
@@ -169,31 +169,36 @@ to the specified name LIBRARY (a la calling `load' instead of `load-library')."
 ;; Don't load path-util until `char-after' and `char-before' have been
 ;; optimized because it requires `poe' and then modify the functions.
 
-;; If the APEL modules are installed under the directory
-;; "/usr/local/share/mule/site-lisp/apel/", the parent directory
-;; "/usr/local/share/mule/site-lisp/" should be included in the
-;; standard `load-path' or added by the configure option
-;; "--with-addpath=".  And also the directory where the EMU modules
-;; are installed (e.g. "/usr/local/share/mule/19.34/site-lisp/")
-;; should be included in the standard `load-path' or added by the
-;; configure option "--with-addpath=".
-(condition-case nil
-    (require 'path-util)
-  (error
-   (let ((path (locate-library "apel/path-util")))
-     (if path
-        (progn
-          (when (string-match "/$" (setq path (file-name-directory path)))
-            (setq path (substring path 0 (match-beginning 0))))
-          (unless (or (member path load-path)
-                      (member (file-name-as-directory path) load-path))
-            (push path load-path))
-          (require 'path-util))
-       (error "
-APEL modules does not found in %s.
+;; If the APEL modules are installed under the non-standard directory,
+;; for example "/var/home/john/lisp/apel-VERSION/", you should add that
+;; name using the configure option "--with-addpath=".
+;; And also the directory where the EMU modules are installed, for
+;; example "/usr/local/share/mule/19.34/site-lisp/", it should be
+;; included in the standard `load-path' or added by the configure
+;; option "--with-addpath=".
+(let ((path (or (locate-library "path-util")
+               (locate-library "apel/path-util"))));; backward compat.
+  (if path
+      (progn
+       (when (string-match "/$" (setq path (file-name-directory path)))
+         (setq path (substring path 0 (match-beginning 0))))
+       ;; path == "/var/home/john/lisp/apel-VERSION"
+       (unless (or (member path load-path)
+                   (member (file-name-as-directory path) load-path))
+         (push path load-path))
+       (when (string-match "/$" (setq path (file-name-directory path)))
+         (setq path (substring path 0 (match-beginning 0))))
+       ;; path == "/var/home/john/lisp"
+       (unless (or (member path load-path)
+                   (member (file-name-as-directory path) load-path))
+         (push path (cdr load-path)))
+       (require 'path-util))
+    (error "
+APEL modules are not found in %s.
 Try to re-configure with --with-addpath=APEL_PATH and run make again.
 "
-             load-path)))))
+          load-path)))
+
 (unless (locate-library "mel")
   (add-path "flim"))
 (unless (module-installed-p 'mel)