git.chise.org Git - elisp/gnus.git-/blob - 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))))))))