Synch with Oort Gnus.
[elisp/gnus.git-] / sample.lpath.el
1 ;; This is a sample of `~/.lpath.el' file.
2 ;;
3 ;; This file will be loaded from dgnushack.el at the compile time.  It
4 ;; is supposed to be used for telling old Emacsen where EMU, APEL or
5 ;; CUSTOM packages have already installed.
6 ;;
7 ;; For instance, if you would like to build T-gnus with Mule 2.3 based
8 ;; on Emacs 19.34, copy this file to `~/.lpath.el' and edit it suitably
9 ;; for your environment.
10
11 (if (boundp 'MULE)
12     (let ((additional-load-path
13            (list
14             ;; Where is EMU packege?
15             "/usr/local/share/mule/19.34/site-lisp/"
16             ;; Where is APEL package?
17             "/usr/local/share/mule/site-lisp/apel/"
18             ;; Where is CUSTOM package?
19             "/usr/local/share/mule/site-lisp/custom/"
20
21             ;; Note that you have no need to specify paths of FLIM, SEMI
22             ;; or WEMI if they are installed under the directory which is
23             ;; same as the parent directory of APEL.
24
25             ;; If you have installed Emacs/W3 package,
26             ;; uncomment and edit the following line appropriately.
27             ;; "/usr/local/share/mule/site-lisp/w3/"
28             )))
29       ;; No user serviceable parts beyond this point.
30 \f
31       (let ((i (length additional-load-path))
32             p)
33         (while (> i 0)
34           (setq i (1- i)
35                 p (nth i additional-load-path))
36           (if (file-directory-p p)
37               (progn
38                 (if (string-match "/apel/?$" p)
39                     (setq load-path
40                           (cons (substring p 0 (1+ (match-beginning 0)))
41                                 load-path)))
42                 (setq load-path (cons p load-path))))))))