-(cd lisp
- ln [a-zA-Z]*.el ../${tempdir}/lisp
- ln [a-zA-Z]*.elc ../${tempdir}/lisp
- ln ChangeLog ChangeLog.*[0-9] ../${tempdir}/lisp
- ln Makefile.in makefile.w32-in ../${tempdir}/lisp
- ln README ../${tempdir}/lisp
- (cd ../${tempdir}/lisp
- rm -f site-init site-init.el site-init.elc
- rm -f site-load site-load.el site-load.elc
- rm -f site-start site-start.el site-start.elc
- rm -f default default.el default.elc
- )
-
- ## Find all subdirs of lisp dir
- for file in `find . -type d -print`; do
- case $file in
- . | .. | */=*)
- ;;
- *)
- if [ -d $file ]; then
- subdirs="$file $subdirs"
- fi
- ;;
- esac
- done
-
- for file in $subdirs; do
- echo " lisp/$file"
- mkdir -p ../${tempdir}/lisp/$file
- ln $file/[a-zA-Z0-9]*.el ../${tempdir}/lisp/$file
- ln $file/[a-zA-Z0-9]*.elc ../${tempdir}/lisp/$file
- ## calc/README.prev
- for f in $file/README $file/ChangeLog $file/ChangeLog.*[0-9] \
- $file/README.prev; do
- [ -f $f ] || continue
- ln $f ../${tempdir}/lisp/$file
- done
- done )
+for file in lisp/Makefile.in lisp/makefile.w32-in $files; do
+ case $file in
+ */site-init*|*/site-load*|*/default*) continue ;;
+ esac
+ ln $file $tempdir/$file
+done