git.chise.org Git - elisp/gnus.git-/blob - lisp/dgnuspath.el.in

   1 ;; -*- Emacs-Lisp -*-
   2 (let ((addpath
   3        "@ADDITIONAL_LOAD_PATH@"
   4        )
   5       path paths)
   6   (while (string-match "[^\0-\37:]+" addpath)
   7     (setq path (file-name-as-directory
   8                 (expand-file-name (match-string 0 addpath)))
   9           addpath (substring addpath (match-end 0)))
  10     (if (string-match "apel/" path)
  11         (setq path (substring path 0 (match-beginning 0))))
  12     (if (file-directory-p path)
  13         (setq paths (nconc paths (list path)))))
  14   (or (null paths)
  15       (setq load-path (nconc paths load-path))))