Luc Beaudoin <"lbeaudoin"@nowhere.com See message> writes:
> Date: Wed, 21 Jul 1999 04:44:56 GMT
> Organization: Abatis-sys
> Thanks, Aaron. This works for me.
>
> Luc
> > Try putting this in your vedinit.p file:
> >
> > define vedinitialise(file);
> > ;;; Do nothing if the file was already in a Ved buffer.
> > returnif(file);
> >
> > ;;; otherwise check the first line to see if it is a documentation
> > ;;; file (not a foolproof test).
> >
> > lvars firstline = subscrv(1,vedbuffer);
> >
> > if isstartstring('HELP ', firstline)
> > or isstartstring('TEACH ', firstline)
> > or isstartstring('REF ', firstline)
> > then
> > vedinput(ved_strip);
> > endif;
> > enddefine;
> >
John Williams sent me this more elegant version, which doesn't have
to look at the first line of the file.
define vedinitialise(file);
;;; Do nothing if the file was already in a Ved buffer.
returnif(file);
if member(vedfileprops, [help teach ref]) then
vedinput(ved_strip);
endif;
enddefine;
Sorry I forgot to pass it on earlier.
Aaron
--
Aaron Sloman, ( http://www.cs.bham.ac.uk/~axs/ )
School of Computer Science, The University of Birmingham, B15 2TT, UK
EMAIL A.Sloman AT cs.bham.ac.uk (NB: Anti Spam address)
PAPERS: ftp://ftp.cs.bham.ac.uk/pub/groups/cog_affect/0-INDEX.html
|