view mkinstalldirs @ 65476:11058ae1650f

Use with-current-buffer, match-string. (diary-list-entries): Use with-syntax-table and dolist. Rename from list-diary-entries. Use number-of-diary-entries if `number' is nil. (diary, diary-view-entries): Use this new name and new nil arg value. (number-of-diary-entries): Move from calendar.el. (diary-unhide-everything): New function. (include-other-diary-files, fancy-diary-display) (diary-show-all-entries, make-diary-entry): Use it. (diary-mail-entries): Use buffer-string. (mark-diary-entries): Fix long standing paren typo. (diary-sexp-entry): Use count-lines. (make-diary-entry): Avoid `previous-line'. (diary-mode-map): New var. (diary-mode): Redraw cal after saving. Setup header-line. (fancy-diary-display-mode): Use local-set-key.

#! /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