Mercurial > emacs
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 |
rev | line source |
---|---|
25856 | 1 #!/bin/sh |
2 # Write into $1/subdirs.el a list of subdirs of directory $1. | |
36219 | 3 |
74370 | 4 # Copyright (C) 1994, 1995, 1997, 1999, 2001, 2002, 2003, 2004, 2005, |
79751 | 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 | 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 | 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 | 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. | |
94719
1a762a842f80
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
18 |
36219 | 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 | 22 |
25856 | 23 cd $1 |
24 for file in *; do | |
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 | 28 *) |
29 if [ -d $file ]; then | |
30 subdirs="\"$file\" $subdirs" | |
31 fi | |
32 ;; | |
33 esac | |
34 done | |
35 | |
36 if [ "x$subdirs" = x ]; then | |
37 rm -f subdirs.el | |
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 | 53 fi |
52401 | 54 |
55 # arch-tag: 56ebcf1b-5c30-4934-b0b4-72d374064704 |