g0dilstuff-init.el

   1 ;;; cc-ide.el --- Add all g0dilstuff lisp dirs to the load path
   2 ;;
   3 ;; $Id$
   4 ;;
   5 ;; Copyright (C) 2000 Stefan Bund
   6
   7 ;; cc-ide.el is free software; you can redistribute it and/or modify
   8 ;; it under the terms of the GNU General Public License as published
   9 ;; by the Free Software Foundation; either version 2, or (at your
  10 ;; option) any later version.
  11
  12 ;; cc-ide.el is distributed in the hope that it will be useful, but
  13 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 ;; General Public License for more details.
  16
  17 ;;; Commentary:
  18
  19 ;;; Change-Log:
  20
  21 ;; $Log$
  22 ;;
  23
  24 ;;; Variables:
  25
  26 ;;; Code:
  27
  28 (require 'cl)
  29
  30 (let* ((self (locate-library "g0dilstuff-init"))
  31        (self-dir (file-name-directory self)))
  32   (loop for dir in (directory-files self-dir t)
  33         if (file-directory-p dir) do (add-to-list 'load-path (file-name-as-directory dir))))
  34
  35 (provide 'g0dilstuff-init)