[jed-users] Re: definekey

[Ulli Horlacher <framstag@xxxxxxxxxxxxxxxxxxxx>]

On Tue 2015-09-29 (10:36), Ulli Horlacher wrote:
> In my jed.rc I have:
> 
> define perl_mode_hook() {
>   $1 = "perl";
>   pop(evalfile("cmode"));
>   definekey("indent_line","\t",$1);
>   definekey("bsearch_char('{')","Û",$1);  % Alt-[
>   definekey("fsearch_char('}')","Ý",$1);  % Alt-]
>   definekey("c_insert_ket","}",$1);
>   definekey(".9 insert_char","\e\t",$1);
>   definekey(".9 insert_char",Key_Shift_Tab,$1);
> }
> 
> But the keys are not defined when I edit a perl file.

Got it:
cmode modifies $1 !
I have to swap the first 2 commands in perl_mode_hook() :

define perl_mode_hook() {
  pop(evalfile("cmode"));
  $1 = "perl";
  definekey("indent_line","\t",$1);
  definekey("bsearch_char('{')","Û",$1);  % Alt-[
  definekey("fsearch_char('}')","Ý",$1);  % Alt-]
  definekey("c_insert_ket","}",$1);
  definekey(".9 insert_char","\e\t",$1);
  definekey(".9 insert_char",Key_Shift_Tab,$1);
}


-- 
Ullrich Horlacher              Server und Virtualisierung
Rechenzentrum IZUS/TIK         E-Mail: horlacher@xxxxxxxxxxxxxxxxxxxx
Universitaet Stuttgart         Tel:    ++49-711-68565868
Allmandring 30a                Fax:    ++49-711-682357
70550 Stuttgart (Germany)      WWW:    http://www.tik.uni-stuttgart.de/
REF:<20150929083659.GA2491@xxxxxxxxxxxxxxxxxxxx>
_______________________________________________
For list information, visit <http://jedsoft.org/jed/mailinglists.html>.