// -*- ASCII:EDT -*-
// setMode.edt
// (schlicht 20010327)
// (gschmitz 20011016: changed for xml compliances )
//////////////////////

BeginGroup;
Mark(0);
CMD("Go To Beginning Of File");

// gschmitz:  XML (and XHTML) files are not allowed to start with
//            a comment, so move down a line (hopefully after the
//            first line that looks like '<?xml version="1.0"...' )
IfisMode("XML;XSL;XHTML","%!m","CMD('Line Down');");

InsText(" -*- %!m -*- %\");
CMD("Line Up");
CMD("Go To Beginning Of Line");
CMD("Select To End Of Line");

// gschmitz:  in case of XML, XSL ... insert an embracing comment "<!--  -->"
IfisMode("XML;XSL;XHTML;HTML","%!m","InsLabel('','<!--','-->');","CMD('Insert Comment');");

Goto(0);
EndGroup;
End;

////////////////////////////////////
// this is the simple complement to
// GetMode.edt, that comes with WinEdt.
// It can come handy if you decided
// to use WinEdt's GetMode feature,
// but don't want to add
// the mode definitions by hand.
//
// R Schlicht      <w.m.l@gmx.net>
// George Schmitz  <georges.schmitz@heitec.de>
// Bug Fix by Philip G. Ratcliffe <philipratcliffe@tiscali.it>
////////////////////////////////////
$Id: setMode.edt,v 1.4 2003-11-25 18:09:07+01 schlicht Exp schlicht $