view lispref/mkinstalldirs @ 63225:7660591a3c92

Revision: [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-389 Remove "-face" suffix from org faces 2005-06-10 Miles Bader <[e-mail]> * lisp/textmodes/org.el (org-level-1, org-level-2, org-level-3) (org-level-4, org-level-5, org-level-6, org-level-7) (org-level-8, org-warning, org-headline-done) (org-deadline-announce, org-scheduled-today) (org-scheduled-previously, org-link, org-done, org-table) (org-time-grid): Remove "-face" suffix from face names. (org-level-1-face, org-level-2-face, org-level-3-face) (org-level-4-face, org-level-5-face, org-level-6-face) (org-level-7-face, org-level-8-face, org-warning-face) (org-headline-done-face, org-deadline-announce-face) (org-scheduled-today-face, org-scheduled-previously-face) (org-link-face, org-done-face, org-table-face) (org-time-grid-face): New backward-compatibility aliases for renamed faces. (org-level-faces, org-set-font-lock-defaults, org-timeline) (org-agenda, org-agenda-get-todos, org-agenda-get-deadlines) (org-agenda-get-timestamps, org-agenda-get-scheduled) (org-agenda-add-time-grid-maybe, org-table-p): Use renamed org faces.

#! /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" || lasterr=$?

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

     pathcomp="$pathcomp/"
   done
done

exit $errstatus

# mkinstalldirs ends here