view mkinstalldirs @ 63533:b7ea6515f1ba

Revision: [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-431 Remove "-face" suffix from eshell faces 2005-06-17 Miles Bader <[e-mail]> * lisp/eshell/esh-test.el (eshell-test-ok, eshell-test-failed): Remove "-face" suffix from face names. (eshell-test-ok-face, eshell-test-failed-face): New backward-compatibility aliases for renamed faces. (eshell-run-test): Use renamed eshell-test faces. * lisp/eshell/em-prompt.el (eshell-prompt): Remove "-face" suffix from face name. (eshell-prompt-face): New backward-compatibility alias for renamed face. (eshell-emit-prompt): Use renamed eshell-prompt face. * lisp/eshell/em-ls.el (eshell-ls-directory, eshell-ls-symlink) (eshell-ls-executable, eshell-ls-readonly, eshell-ls-unreadable) (eshell-ls-special, eshell-ls-missing, eshell-ls-archive) (eshell-ls-backup, eshell-ls-product, eshell-ls-clutter): Remove "-face" suffix from face names. (eshell-ls-directory-face, eshell-ls-symlink-face) (eshell-ls-executable-face, eshell-ls-readonly-face) (eshell-ls-unreadable-face, eshell-ls-special-face) (eshell-ls-missing-face, eshell-ls-archive-face) (eshell-ls-backup-face, eshell-ls-product-face) (eshell-ls-clutter-face): New backward-compatibility aliases for renamed faces. (eshell-ls-decorated-name): Use renamed eshell-ls 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" && chmod a+rx "$pathcomp") || lasterr=$?

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

     pathcomp="$pathcomp/"
   done
done

exit $errstatus

# mkinstalldirs ends here