Mercurial > emacs
annotate mkinstalldirs @ 66119:bc2d2dc9f534
(compilation-goto-locus): Display the
compilation buffer first and the source buffer second, in case they're
in overlapping frames. Don't raise the compilation frame if it was the
selected window upon entry. Pass the `other-window' arg to
pop-to-buffer.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sun, 16 Oct 2005 14:12:50 +0000 |
parents | 746c40973d25 |
children | 730155197b96 eb7e8d483840 |
rev | line source |
---|---|
25880 | 1 #! /bin/sh |
2 # mkinstalldirs --- make directory hierarchy | |
3 # Author: Noah Friedman <friedman@prep.ai.mit.edu> | |
4 # Created: 1993-05-16 | |
5 # Public domain | |
6 | |
7 errstatus=0 | |
8 | |
9 for file | |
10 do | |
11 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` | |
12 shift | |
13 | |
14 pathcomp= | |
15 for d | |
16 do | |
17 pathcomp="$pathcomp$d" | |
18 case "$pathcomp" in | |
19 -* ) pathcomp=./$pathcomp ;; | |
20 esac | |
21 | |
22 if test ! -d "$pathcomp"; then | |
23 echo "mkdir $pathcomp" 1>&2 | |
24 | |
35853
774df19dd335
(errstatus): Chmod a+rx directories we create.
Gerd Moellmann <gerd@gnu.org>
parents:
25880
diff
changeset
|
25 (mkdir "$pathcomp" && chmod a+rx "$pathcomp") || lasterr=$? |
25880 | 26 |
27 if test ! -d "$pathcomp"; then | |
28 errstatus=$lasterr | |
29 fi | |
30 fi | |
31 | |
32 pathcomp="$pathcomp/" | |
33 done | |
34 done | |
35 | |
36 exit $errstatus | |
37 | |
38 # mkinstalldirs ends here |