Mercurial > emacs
annotate lispintro/mkinstalldirs @ 50598:5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
(fortran, fortran-indent, fortran-comment)
(fortran-tab-mode-default, fortran-continuation-indent)
(fortran-comment-indent-style, fortran-blink-matching-if)
(fortran-continuation-string, fortran-electric-line-number)
(fortran-break-before-delimiters, fortran-mode-hook)
(fortran-end-prog-re, fortran-imenu-generic-expression): Minor doc changes.
(fortran-tab-mode-minor-mode-string): New variable.
(fortran-tab-mode-string): Now customization is meaningful.
(fortran-column-ruler-fixed, fortran-column-ruler-tab)
(fortran-analyze-depth): Use defcustom.
(fortran-if-start-re, fortran-end-prog-re1, fortran-fill)
(fortran-break-line, fortran-prepare-abbrev-list-buffer)
(fortran-auto-fill): Add doc string.
(fortran-type-types): New constant (was local to let binding).
(fortran-font-lock-keywords-1, fortran-font-lock-keywords-2)
(fortran-font-lock-syntactic-keywords): Initialize in defvar.
(fortran-font-lock-keywords-3): Initialize in defvar. Use 1+ now
depth of fortran-type-types has changed. Remove extra and.
(fortran-mode-menu): Minor re-organization. Use lookup-key.
(fortran-mode): Doc changes. Some re-organization. Use
fortran-tab-mode-minor-mode-string.
(fortran-comment-indent): Add doc string. Move save-excursion. Use 1+.
(fortran-indent-comment, fortran-fill-statement): Change interactive spec.
Use unless.
(fortran-comment-region): Doc change. Reverse logic of arg test. Use zerop.
(fortran-abbrev-start, fortran-split-line)
(fortran-electric-line-number, fortran-indent-subprogram)
(fortran-strip-sequence-nos): Change interactive spec.
(fortran-remove-continuation): Add doc string. Use when.
(fortran-numerical-continuation-char): Doc change. Use 1+.
(fortran-previous-statement, fortran-next-statement)
(fortran-beginning-do, fortran-calculate-indent)
(fortran-end-do, fortran-end-if, fortran-beginning-if): Use zerop, 1+, 1-.
(fortran-blink-match, fortran-check-for-matching-do): Use when.
(fortran-indent-line): Change interactive spec. Remove un-needed if.
Use when.
(fortran-indent-to-column): Doc change. Use when, unless.
(fortran-find-comment-start-skip): No longer interactive.
(fortran-analyze-file-format): Minor doc change. Remove un-needed setq.
(minor-mode-alist): Use add-to-list.
(fortran-fill-paragraph): Change interactive spec, doc string.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 15 Apr 2003 19:21:59 +0000 |
parents | a8ee89e61d20 |
children | f0eb34e60705 746c40973d25 |
rev | line source |
---|---|
41418 | 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 # $Id: mkinstalldirs,v 1.10 1996/05/03 07:37:52 friedman Exp $ | |
8 | |
9 errstatus=0 | |
10 | |
11 for file | |
12 do | |
13 set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` | |
14 shift | |
15 | |
16 pathcomp= | |
17 for d | |
18 do | |
19 pathcomp="$pathcomp$d" | |
20 case "$pathcomp" in | |
21 -* ) pathcomp=./$pathcomp ;; | |
22 esac | |
23 | |
24 if test ! -d "$pathcomp"; then | |
25 echo "mkdir $pathcomp" 1>&2 | |
26 | |
27 mkdir "$pathcomp" || lasterr=$? | |
28 | |
29 if test ! -d "$pathcomp"; then | |
30 errstatus=$lasterr | |
31 fi | |
32 fi | |
33 | |
34 pathcomp="$pathcomp/" | |
35 done | |
36 done | |
37 | |
38 exit $errstatus | |
39 | |
40 # mkinstalldirs ends here |