home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / AP / JED / JED097-1.TAR / jed / lib / linux.sl < prev    next >
Encoding:
Text File  |  1994-12-12  |  994 b   |  34 lines
  1. %
  2. %  Special file for Linux systems
  3. %
  4.  
  5. % This file sets up the console keys pgup/dn, etc.  It should be loaded
  6. % by creating a file called defaults.sl in JED_LIBRARY with the line:
  7. %    evalfile("linux.sl"); pop();
  8. %
  9. % defaults.sl is automatically loaded from site.sl.
  10.  
  11. variable UCB_Mailer;  UCB_Mailer = "/bin/mail";
  12.  
  13. % The directory where info files are kept.  Modify this appropriately.  See
  14. % 'install.all' for a discussion of this.
  15.  
  16. %Info_Directory = ???
  17.  
  18.  
  19. $1 = getenv ("TERM");
  20. if (is_list_element ("console,con80x25,con80x28", $1, ','))
  21. {
  22. %   USE_ANSI_COLORS = 1;   % uncomment if your console is a color one!
  23.    OUTPUT_RATE = 0;
  24.    tt_send("\e[44m");               %/* white on blue */
  25.    call("redraw");
  26.    TERM_CANNOT_SCROLL = -1;
  27.    setkey("bol",              "^[[1~");    % home
  28.    setkey("toggle_overwrite",    "^[[2~");       % insert
  29.    setkey("delete_char_cmd",    "^[[3~");       % delete
  30.    setkey("eol",        "^[[4~");       % end
  31.    setkey("page_up",        "^[[5~");    
  32.    setkey("page_down",        "^[[6~");
  33. }
  34.