Commit | Line | Data |
---|---|---|
a4a9692d DL |
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 | |
37e2d8f4 | 6 | *.elc | *.el | term | RCS | CVS | Old | . | .. | =* | *~ | *.orig | *.rej) |
a4a9692d DL |
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 |