annotate update-subdirs @ 98182:19ec1646fe6c

The Rmail/mbox merge has been abandoned in favor of a restart using the current rmail.el file. A comprehensive list of changes will be supplied when pmail.el is morphed back into rmail.el The current status is that pmail.el supports basic Rmail navigation (no summary support) and shows the current message in a special buffer using buffer-swap-text. No decoding is done yet. That is the next step.
author Paul Reilly <pmr@pajato.com>
date Mon, 15 Sep 2008 20:56:53 +0000
parents d147ddeb05f9
children 80b866cd08a3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25856
Dave Love <fx@gnu.org>
parents:
diff changeset
1 #!/bin/sh
Dave Love <fx@gnu.org>
parents:
diff changeset
2 # Write into $1/subdirs.el a list of subdirs of directory $1.
36219
f440b9766968 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 25931
diff changeset
3
74370
7c327a7ce0e2 Add missing Copyright years.
Glenn Morris <rgm@gnu.org>
parents: 70121
diff changeset
4 # Copyright (C) 1994, 1995, 1997, 1999, 2001, 2002, 2003, 2004, 2005,
79751
a9b80f99c836 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78277
diff changeset
5 # 2006, 2007, 2008 Free Software Foundation, Inc.
94719
1a762a842f80 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
6
36219
f440b9766968 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 25931
diff changeset
7 # This file is part of GNU Emacs.
94719
1a762a842f80 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
8
1a762a842f80 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
9 # GNU Emacs is free software: you can redistribute it and/or modify
36219
f440b9766968 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 25931
diff changeset
10 # it under the terms of the GNU General Public License as published by
94719
1a762a842f80 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
11 # the Free Software Foundation, either version 3 of the License, or
1a762a842f80 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
12 # (at your option) any later version.
1a762a842f80 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
13
36219
f440b9766968 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 25931
diff changeset
14 # GNU Emacs is distributed in the hope that it will be useful,
f440b9766968 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 25931
diff changeset
15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
f440b9766968 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 25931
diff changeset
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
f440b9766968 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 25931
diff changeset
17 # GNU General Public License for more details.
94719
1a762a842f80 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
18
36219
f440b9766968 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 25931
diff changeset
19 # You should have received a copy of the GNU General Public License
94719
1a762a842f80 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
20 # along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
1a762a842f80 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
21
36219
f440b9766968 Add copyright notice.
Gerd Moellmann <gerd@gnu.org>
parents: 25931
diff changeset
22
25856
Dave Love <fx@gnu.org>
parents:
diff changeset
23 cd $1
Dave Love <fx@gnu.org>
parents:
diff changeset
24 for file in *; do
Dave Love <fx@gnu.org>
parents:
diff changeset
25 case $file in
25931
3ede6c50d7f5 also ignore CVS subdirs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 25856
diff changeset
26 *.elc | *.el | term | RCS | CVS | Old | . | .. | =* | *~ | *.orig | *.rej)
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47727
diff changeset
27 ;;
25856
Dave Love <fx@gnu.org>
parents:
diff changeset
28 *)
Dave Love <fx@gnu.org>
parents:
diff changeset
29 if [ -d $file ]; then
Dave Love <fx@gnu.org>
parents:
diff changeset
30 subdirs="\"$file\" $subdirs"
Dave Love <fx@gnu.org>
parents:
diff changeset
31 fi
Dave Love <fx@gnu.org>
parents:
diff changeset
32 ;;
Dave Love <fx@gnu.org>
parents:
diff changeset
33 esac
Dave Love <fx@gnu.org>
parents:
diff changeset
34 done
Dave Love <fx@gnu.org>
parents:
diff changeset
35
Dave Love <fx@gnu.org>
parents:
diff changeset
36 if [ "x$subdirs" = x ]; then
Dave Love <fx@gnu.org>
parents:
diff changeset
37 rm -f subdirs.el
Dave Love <fx@gnu.org>
parents:
diff changeset
38 else
86200
aa0de1ea4215 Atomically update subdirs.el.
Andreas Schwab <schwab@suse.de>
parents: 78277
diff changeset
39 rm -f subdirs.el~
aa0de1ea4215 Atomically update subdirs.el.
Andreas Schwab <schwab@suse.de>
parents: 78277
diff changeset
40 echo ";; -*- no-byte-compile: t -*-
aa0de1ea4215 Atomically update subdirs.el.
Andreas Schwab <schwab@suse.de>
parents: 78277
diff changeset
41 ;; In load-path, after this directory should come
aa0de1ea4215 Atomically update subdirs.el.
Andreas Schwab <schwab@suse.de>
parents: 78277
diff changeset
42 ;; certain of its subdirectories. Here we specify them.
aa0de1ea4215 Atomically update subdirs.el.
Andreas Schwab <schwab@suse.de>
parents: 78277
diff changeset
43 (normal-top-level-add-to-load-path '($subdirs))
54489
fbc008c6f0cc Add local variables to prevent byte-compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
44 ;; Local" "Variables:
fbc008c6f0cc Add local variables to prevent byte-compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
45 ;; version-control: never
fbc008c6f0cc Add local variables to prevent byte-compiling.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
46 ;; no-byte-compile: t
86200
aa0de1ea4215 Atomically update subdirs.el.
Andreas Schwab <schwab@suse.de>
parents: 78277
diff changeset
47 ;; End:" > subdirs.el~
95369
d147ddeb05f9 Don't touch subdirs.el if it is unchanged.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94719
diff changeset
48 if cmp "subdirs.el" "subdirs.el~" >/dev/null 2>&1; then
d147ddeb05f9 Don't touch subdirs.el if it is unchanged.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94719
diff changeset
49 :; # echo "subdirs.el unchanged";
d147ddeb05f9 Don't touch subdirs.el if it is unchanged.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94719
diff changeset
50 else
86200
aa0de1ea4215 Atomically update subdirs.el.
Andreas Schwab <schwab@suse.de>
parents: 78277
diff changeset
51 mv subdirs.el~ subdirs.el
95369
d147ddeb05f9 Don't touch subdirs.el if it is unchanged.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94719
diff changeset
52 fi
25856
Dave Love <fx@gnu.org>
parents:
diff changeset
53 fi
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
54
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
55 # arch-tag: 56ebcf1b-5c30-4934-b0b4-72d374064704