From: yamaoka <yamaoka>
Date: Fri, 11 Jun 1999 12:20:25 +0000 (+0000)
Subject: New file. It is supposed to be used for telling old Emacsen where EMU, APEL or
X-Git-Tag: et-gnus-6_11_00-02~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2e6d579f7cb88d475d0d8dbca14dca80a4a43a54;p=elisp%2Fgnus.git-

New file. It is supposed to be used for telling old Emacsen where EMU, APEL or
CUSTOM packages have already installed.
---

diff --git a/sample.lpath.el b/sample.lpath.el
new file mode 100644
index 0000000..4a17420
--- /dev/null
+++ b/sample.lpath.el
@@ -0,0 +1,28 @@
+;; This is a sample of `~/.lpath.el' file.
+;;
+;; This file will be loaded from dgnushack.el at the compile time.  It
+;; is supposed to be used for telling old Emacsen where EMU, APEL or
+;; CUSTOM packages have already installed.
+;;
+;; For instance, if you would like to make gnus with Mule 2.3 based on
+;; Emacs 19.34, copy this file to `~/.lpath.el' and modify it suitably
+;; for your environment.
+
+(when (boundp 'MULE)
+  (let ((EMU
+	 ;; Where is EMU packege?
+	 "/usr/local/share/mule/19.34/site-lisp"
+	 )
+	(APEL
+	 ;; Where is APEL package?
+	 "/usr/local/share/mule/site-lisp/apel"
+	 )
+	(CUSTOM
+	 ;; Where is CUSTOM package?
+	 "/usr/local/share/mule/site-lisp/custom"
+	 ))
+    ;; No user servicable parts beyond this point.
+
+    (when (string-match "/apel/?$" APEL)
+      (setq APEL (substring APEL 0 (match-beginning 0))))
+    (setq load-path (nconc (list EMU APEL CUSTOM) load-path))))