diff options
Diffstat (limited to 'update-subdirs')
| -rwxr-xr-x | update-subdirs | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/update-subdirs b/update-subdirs deleted file mode 100755 index e20e0da6e13..00000000000 --- a/update-subdirs +++ /dev/null | |||
| @@ -1,56 +0,0 @@ | |||
| 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-2012 | ||
| 5 | # 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 3 of the License, or | ||
| 12 | # (at your option) 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. If not, see <http://www.gnu.org/licenses/>. | ||
| 21 | |||
| 22 | |||
| 23 | cd $1 | ||
| 24 | for file in *; do | ||
| 25 | case $file in | ||
| 26 | *.elc | *.el | term | RCS | CVS | Old | . | .. | =* | *~ | *.orig | *.rej) | ||
| 27 | ;; | ||
| 28 | *) | ||
| 29 | if [ -d $file ]; then | ||
| 30 | if [ "$file" = "obsolete" ]; then | ||
| 31 | subdirs="$subdirs \"$file\"" | ||
| 32 | else | ||
| 33 | subdirs="\"$file\" $subdirs" | ||
| 34 | fi | ||
| 35 | fi | ||
| 36 | ;; | ||
| 37 | esac | ||
| 38 | done | ||
| 39 | |||
| 40 | if [ "x$subdirs" = x ]; then | ||
| 41 | rm -f subdirs.el | ||
| 42 | else | ||
| 43 | rm -f subdirs.el~ | ||
| 44 | echo ";; In load-path, after this directory should come | ||
| 45 | ;; certain of its subdirectories. Here we specify them. | ||
| 46 | (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 | if cmp "subdirs.el" "subdirs.el~" >/dev/null 2>&1; then | ||
| 52 | :; # echo "subdirs.el unchanged"; | ||
| 53 | else | ||
| 54 | mv subdirs.el~ subdirs.el | ||
| 55 | fi | ||
| 56 | fi | ||