Mercurial > emacs
annotate update-subdirs @ 33697:e7765cb122c3
(Fw32_set_clipboard_data): Save a copy of what is put on the clipboard.
(Fw32_get_clipboard_data): Compare data on clipboard with saved copy
of what Emacs last put there. If they are the same, do not use the
clipboard copy to avoid losing data due to coding conversions.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Tue, 21 Nov 2000 19:18:13 +0000 |
parents | 3ede6c50d7f5 |
children | f440b9766968 |
rev | line source |
---|---|
25856 | 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 | |
25931
3ede6c50d7f5
also ignore CVS subdirs.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
25856
diff
changeset
|
6 *.elc | *.el | term | RCS | CVS | Old | . | .. | =* | *~ | *.orig | *.rej) |
25856 | 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 |