readline.inc.pl

   1 use utf8;
   2 {
   3
   4 '' => {
   5         '+<' => ['co'],
   6         '+=' => '+?', #TODO: new # emacs, not in v2.0
   7         '+>' => ['co'],
   8         '^?' => '^h',
   9         '+?' => ['ci'],
  10         '^@' => ['mv new'], # not in v2.0
  11
  12         '+#' => ['mi new'], # not in v2.0
  13         '+&' => ['mi'],
  14         '+*' => ['mi new'], # not in v2.0
  15         '+.' => ['co'],
  16         '+~' => '+&amp;', # emacs
  17
  18         '^[' => ['mv'],
  19         '^+['=> '^i',
  20         '+\\'=> ['mo'],
  21         '^]' => ['pm arg new'], # not in v2.0
  22         '^+]'=> ['pm arg new'], # not in v2.0
  23         '^_' => ['co'],
  24         '+_' => '+.',
  25
  26         '+~' => ['mi ext'], # common emacs => '+&'
  27         '+!' => ['mi ext'],
  28         '+@' => ['mi ext'],
  29         '+$' => ['mi ext'],
  30         '+^' => ['co ext'],
  31         '+/' => ['ci ext'],
  32
  33         '^a' => ['pm'],
  34         '^b' => ['pm'],
  35         '+b' => ['pm'],
  36         '^c' => ['mv ext'],
  37         '+c' => ['mi'],
  38         '^d' => ['mo'],
  39         '+d' => ['mo ring'],
  40 #       '^e' => ['me'],
  41         '^e' => ['pm'],
  42         '^f' => ['pm'],
  43         '+f' => ['pm'],
  44         '^g' => ['mv'],
  45         '^+g'=> '^g',
  46         '^h' => ['mo'],
  47         '^+h'=> ['mo ring'], #TODO
  48         '^i' => ['mi'],
  49         '^+i'=> '^v^i',
  50         '^j' => '^m',
  51         '^+j'=> ['me'], #TODO: mode^+j
  52         '^k' => ['mo ring'],
  53         '^l' => ['ci'],
  54         '+l' => ['mi'],
  55         '^m' => ['co'],
  56         '^+m'=> '^+j',
  57         '^n' => ['co'],
  58         '+n' => ['co'],
  59         '^o' => ['co ext'],
  60         '^p' => ['co'],
  61         '+p' => ['co'],
  62         '^q' => '^v',
  63         '^r' => ['co'],
  64         '+r' => ['co'],
  65         '^+r'=> '+r',
  66         '^s' => ['co'],
  67         '^t' => ['mi'],
  68         '+t' => ['mi'],
  69         '^u' => ['mo ring'],
  70         '+u' => ['mi'],
  71         '^v' => ['mv'],
  72         '^w' => ['mo ring'],
  73         '^x' => ['me arg mode^x'],
  74         '^y' => ['co'],
  75         '+y' => ['co ring'],
  76         '^+y'=> ["yank arg"],
  77         '^z' => ['mv ext'],
  78 },
  79
  80 '^x' => {
  81         lead => $ascii ? "'x"  : "x̂",
  82
  83         '('  => ['mv'],
  84         ')'  => ['mv'],
  85         'e'  => ['mv'],
  86         '^e' => ['mi ext linkvi'],
  87         '^g' => '^g',
  88         '^h' => '^u',
  89         '^r' => ['mv'],
  90         '^u' => '^_',
  91         '^x' => ['pm new'], # not in v2.0
  92         '^v' => ['ci ext'],
  93         '^?' => '^x^h',
  94 },
  95
  96 }