1: #!/bin/sh
    2: # Write into $1/subdirs.el a list of subdirs of directory $1.
    3: 
    4: # Copyright (C) 1994, 1995, 1997, 1999, 2001, 2002, 2003, 2004, 2005,
    5: #   2006, 2007  Free Software Foundation, Inc.
    6: #
    7: # This file is part of GNU Emacs.
    8: #
    9: # GNU Emacs is free software; you can redistribute it and/or modify
   10: # it under the terms of the GNU General Public License as published by
   11: # the Free Software Foundation; either version 2, or (at your option)
   12: # any later version.
   13: #
   14: # GNU Emacs is distributed in the hope that it will be useful,
   15: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   16: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   17: # GNU General Public License for more details.
   18: #
   19: # You should have received a copy of the GNU General Public License
   20: # along with GNU Emacs; see the file COPYING.  If not, write to the
   21: # Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
   22: # Boston, MA 02110-1301, USA.
   23: 
   24: cd $1
   25: for file in *; do
   26:     case $file in
   27:         *.elc | *.el | term | RCS | CVS | Old | . | .. | =* | *~ | *.orig | *.rej)
   28:           ;;
   29:         *)
   30:             if [ -d $file ]; then
   31:               subdirs="\"$file\" $subdirs"
   32:             fi
   33:           ;;
   34:     esac
   35: done
   36: 
   37: if [ "x$subdirs" = x ]; then
   38:   rm -f subdirs.el
   39: else
   40: 
   41:   echo ";; -*- no-byte-compile: t -*-" > subdirs.el
   42: 
   43:   echo ";; In load-path, after this directory should come
   44: ;; certain of its subdirectories.  Here we specify them." >> subdirs.el
   45: 
   46:   echo "(normal-top-level-add-to-load-path '($subdirs))
   47: ;; Local" "Variables:
   48: ;; version-control: never
   49: ;; no-byte-compile: t
   50: ;; End:" >> subdirs.el
   51: fi
   52: 
   53: # arch-tag: 56ebcf1b-5c30-4934-b0b4-72d374064704