From: yamaoka <yamaoka>
Date: Mon, 9 Jul 2001 23:52:33 +0000 (+0000)
Subject: * dgnushack.el: Add the parent directory of the directory where the APEL
X-Git-Tag: t-gnus-6_15_3-03~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7140d685244588b5f4e697135f124ac785941357;p=elisp%2Fgnus.git-

* 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.
---

diff --git a/ChangeLog b/ChangeLog
index fda816f..5b6351a 100644
--- 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
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index d10d7ff..5cb8b8e 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -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)