[jed-users] definekey

[Ulli Horlacher <framstag@xxxxxxxxxxxxxxxxxxxx>]

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.
The jed status line says that I am in perl mode.
Also:

S-Lang> message(what_keymap)
perl

Running perl_mode_hook() via slang prompt also does not redefine the keys.

Esc h k Alt-[ says:
Key "Û" runs the internal function "self_insert_cmd".

Esc h k } says:
Key "}" runs the internal function "self_insert_cmd".

I have similar definitions within python_mode_hook(), which works.

How can I debug this?


-- 
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>.