Mercurial > emacs
view mkinstalldirs @ 69316:57e535bee31c
Update Commentary header.
(tree-widget-theme-name): Ignore parent themes.
(tree-widget-set-parent-theme): New function.
(tree-widget-set-theme): Use it.
(tree-widget-set-image-properties): Move definition. Does nothing
if image properties have already been set.
(tree-widget-image-properties): Move definition. Receive an image
name. Set the :pointer property.
(tree-widget-lookup-image): Doc fix. Search in parent themes.
Don't set the :pointer image property.
(tree-widget-convert-widget): New function. Handle :dynargs
compatibility here.
(tree-widget): Use it to :convert-widget. Add the :expander-p
predicate to control when the :expander function is entered.
Thanks to Ken Manheimer <ken.manheimer@gmail.com> for the idea.
(tree-widget-value-create): Handle :expander-p. widget-apply
:expander.
(tree-widget-expander-p): New function. Default value of the
:expander-p property.
author | David Ponce <david@dponce.com> |
---|---|
date | Tue, 07 Mar 2006 06:41:45 +0000 |
parents | 746c40973d25 |
children | 730155197b96 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" && chmod a+rx "$pathcomp") || lasterr=$? if test ! -d "$pathcomp"; then errstatus=$lasterr fi fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here