Mercurial > emacs
view nt/ftime-nostartup.bat @ 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 | 93ce5f375b46 |
children | 375f2633d815 ef719132ddfa |
line wrap: on
line source
@echo off if (%1)==() echo Usage: %0 tracefile if (%1)==() goto done rem Need to fiddle with the dumped image so prep doesn't break it obj\i386\preprep ..\src\obj\i386\emacs.exe ..\src\obj\i386\pemacs.exe copy ..\src\obj\i386\temacs.map ..\src\obj\i386\pemacs.map rem ----------------------------------------------------------------- rem Use this version to profile explicit commands only. rem prep /om /ft /sf _Fexecute_extended_command ..\src\obj\i386\pemacs rem ----------------------------------------------------------------- rem Use this version to ignore startup code prep /om /ft /sf _command_loop_1 ..\src\obj\i386\pemacs rem ----------------------------------------------------------------- rem Use this version to include startup code rem prep /om /ft ..\src\obj\i386\pemacs rem ----------------------------------------------------------------- if errorlevel 1 goto done profile ..\src\obj\i386\pemacs %2 %3 %4 %5 %6 %7 %8 %9 if errorlevel 1 goto done prep /m ..\src\obj\i386\pemacs if errorlevel 1 goto done plist ..\src\obj\i386\pemacs > %1 :done goto skipArchTag arch-tag: 927c5199-a8a3-4cf0-ab56-62b66fc6520d :skipArchTag