view mkinstalldirs @ 65089:b4238c551ea7

(ibuffer-compile-make-eliding-form, ibuffer-check-formats): Use `with-no-warnings' to hide references to `ibuffer-elide-long-columns' (which is defined on ibuffer.el, so it's silly to get warnings for it). (ibuffer-auto-mode, ibuffer-cached-filter-formats, ibuffer-compiled-filter-formats, ibuffer-filter-format-alist, ibuffer-filter-group-kill-ring, ibuffer-filter-groups, ibuffer-filtering-qualifiers, ibuffer-hidden-filter-groups, ibuffer-inline-columns, ibuffer-show-empty-filter-groups, ibuffer-tmp-hide-regexps, ibuffer-tmp-show-regexps): Defvar at compile time. (ibuffer-compiled-formats, ibuffer-cached-eliding-string, ibuffer-cached-formats, ibuffer-cached-elide-long-columns), eclare them before use.

#! /bin/sh
# mkinstalldirs --- make directory hierarchy
# Author: Noah Friedman <[e-mail]>
# 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" && chmod a+rx "$pathcomp") || lasterr=$?

        if test ! -d "$pathcomp"; then
  	  errstatus=$lasterr
        fi
     fi

     pathcomp="$pathcomp/"
   done
done

exit $errstatus

# mkinstalldirs ends here