code.delx.au - gnu-emacs/blob - update-subdirs

   1 #!/bin/sh
   2 # Write into $1/subdirs.el a list of subdirs of directory $1.
   3 cd $1
   4 for file in *; do
   5     case $file in
   6         *.elc | *.el | term | RCS | Old | . | .. | =* | *~ | *.orig | *.rej)
   7           ;;
   8         *)
   9             if [ -d $file ]; then
  10               subdirs="\"$file\" $subdirs"
  11             fi
  12           ;;
  13     esac
  14 done
  15
  16 if [ "x$subdirs" = x ]; then
  17   rm -f subdirs.el
  18 else
  19   echo ";; In load-path, after this directory should come
  20 ;; certain of its subdirectories.  Here we specify them." > subdirs.el
  21
  22   echo "(normal-top-level-add-to-load-path '($subdirs))" >> subdirs.el
  23 fi