From: tsuchiya <tsuchiya>
Date: Mon, 28 May 2001 02:03:18 +0000 (+0000)
Subject: * lisp/dgnushack.el (toplevel): Add paths if and only if APEL and FLIM can't be found.
X-Git-Tag: t-gnus-6_15_4-02-quimby~50
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c9f74b111ef38f883931536b4834d6036a9846ac;p=elisp%2Fgnus.git-

* lisp/dgnushack.el (toplevel): Add paths if and only if APEL and FLIM can't be found.
---

diff --git a/ChangeLog b/ChangeLog
index 51dbc60..9722d15 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-28  TSUCHIYA Masatoshi  <tsuchiya@pine.kuee.kyoto-u.ac.jp>
+
+	* lisp/dgnushack.el (toplevel): Add paths if and only if APEL and
+	FLIM can't be found.
+
 2001-05-17  Kai =?iso-8859-1?q?Gro=DFjohann?=  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
 	* etc/Makefile.in (datadir): Set this variable, like in the other
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 267c2ea..f599298 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -141,8 +141,10 @@
 ;; optimized because it requires `poe' and then modify the functions.
 (or (featurep 'path-util)
     (load "apel/path-util"))
-(add-path "apel")
-(add-path "flim")
+(or (locate-library "poe")
+    (add-path "apel"))
+(or (locate-library "mel")
+    (add-path "flim"))
 (unless (module-installed-p 'mel)
   ;; FLIM 1.14 may have installed in two "flim" subdirectories.
   (push (expand-file-name "flim"