summaryrefslogtreecommitdiff
path: root/update-subdirs
diff options
context:
space:
mode:
authorDave Love <fx@gnu.org>1999-10-03 15:56:58 +0000
committerDave Love <fx@gnu.org>1999-10-03 15:56:58 +0000
commitebc1f341e5821de7109cd3b3d89c455f5e11f874 (patch)
treefbc4c34a6cc47e7bb3f87606b53ac86c09ee8137 /update-subdirs
parent6b8ad34c72b1a609a8398948e4f01c590d30a6c6 (diff)
downloademacs-ebc1f341e5821de7109cd3b3d89c455f5e11f874.tar.gz
#
Diffstat (limited to 'update-subdirs')
-rwxr-xr-xupdate-subdirs23
1 files changed, 23 insertions, 0 deletions
diff --git a/update-subdirs b/update-subdirs
new file mode 100755
index 00000000000..94eb1fd4e28
--- /dev/null
+++ b/update-subdirs
@@ -0,0 +1,23 @@
+#!/bin/sh
+# Write into $1/subdirs.el a list of subdirs of directory $1.
+cd $1
+for file in *; do
+ case $file in
+ *.elc | *.el | term | RCS | Old | . | .. | =* | *~ | *.orig | *.rej)
+ ;;
+ *)
+ if [ -d $file ]; then
+ subdirs="\"$file\" $subdirs"
+ fi
+ ;;
+ esac
+done
+
+if [ "x$subdirs" = x ]; then
+ rm -f subdirs.el
+else
+ echo ";; In load-path, after this directory should come
+;; certain of its subdirectories. Here we specify them." > subdirs.el
+
+ echo "(normal-top-level-add-to-load-path '($subdirs))" >> subdirs.el
+fi