Mercurial > emacs
view lispintro/mkinstalldirs @ 66800:baa95d93b4e0
Remove spurious or unnecessary leading stars in docstrings.
(tar-header-block-tokenize): Also obey default-file-name-coding-system.
(tar-parse-octal-integer-safe): Use mapc.
(tar-header-block-summarize): Remove unused var `ck'.
(tar-summarize-buffer): Don't clear the modified-p bit if it wasn't
cleared before. Obey default-enable-multibyte-characters.
Use mapconcat. Simplify setting of tar-header-offset.
(tar-mode-map): Move initialization inside delcaration.
(tar-flag-deleted): Use `abs'.
(tar-expunge-internal): Remove unused var `line'.
(tar-expunge-internal): Don't hardcode point-min==1.
(tar-expunge): Widen while doing set-buffer-multibyte.
(tar-rename-entry): Use file-name-coding-system.
(tar-alter-one-field): Don't hardcode point-min==1.
(tar-subfile-save-buffer): string-as-unibyte works on unibyte strings.
(tar-pad-to-blocksize): Don't hardcode point-min==1. Clarify the code.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Thu, 10 Nov 2005 18:00:37 +0000 |
parents | 746c40973d25 |
children | eb7e8d483840 |
line wrap: on
line source
#! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman <friedman@prep.ai.mit.edu> # Created: 1993-05-16 # Public domain errstatus=0 for file do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d do pathcomp="$pathcomp$d" case "$pathcomp" in -* ) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" 1>&2 mkdir "$pathcomp" || lasterr=$? if test ! -d "$pathcomp"; then errstatus=$lasterr fi fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here