| 3088f580 |
1 | diff -Nru jed-B0.99-10/lib/bytecomp.sl jed-B0.99-10.new/lib/bytecomp.sl |
| 2 | --- jed-B0.99-10/lib/bytecomp.sl Sun Nov 14 07:35:35 1999 |
| 3 | +++ jed-B0.99-10.new/lib/bytecomp.sl Sat Nov 27 07:02:34 1999 |
| 4 | @@ -114,7 +114,6 @@ |
| 5 | "cmode.sl"; |
| 6 | "slmode.sl"; |
| 7 | "search.sl"; |
| 8 | - "linux.sl"; |
| 9 | "modeinfo.sl"; |
| 10 | if (is_defined ("menu_create_menu_bar") == 1) % intrinsic fun |
| 11 | { |
| 12 | diff -Nru jed-B0.99-10/lib/linux.sl jed-B0.99-10.new/lib/linux.sl |
| 13 | --- jed-B0.99-10/lib/linux.sl Sun Nov 14 07:35:39 1999 |
| 14 | +++ jed-B0.99-10.new/lib/linux.sl Thu Jan 1 01:00:00 1970 |
| 15 | @@ -1,29 +0,0 @@ |
| 16 | -% |
| 17 | -% Special file for Linux systems--- do NOT preparse it. |
| 18 | -% |
| 19 | - |
| 20 | -% This file sets up the console keys pgup/dn, etc. |
| 21 | -% To use it, simply rename it to defaults.sl. |
| 22 | - |
| 23 | -% variable UCB_Mailer; UCB_Mailer = "/bin/mail"; |
| 24 | - |
| 25 | -% The directory where info files are kept. Modify this appropriately. See |
| 26 | -% 'install.all' for a discussion of this. |
| 27 | - |
| 28 | -%Info_Directory = ??? |
| 29 | - |
| 30 | - |
| 31 | -$1 = getenv ("TERM"); |
| 32 | -if ($1 == NULL) $1 = ""; |
| 33 | -if (is_list_element ("linux,console,con80x25,con80x28", $1, ',')) |
| 34 | -{ |
| 35 | - USE_ANSI_COLORS = 1; % uncomment if your console is a color one! |
| 36 | - OUTPUT_RATE = 0; |
| 37 | - TERM_CANNOT_SCROLL = -1; % Truth is, linux console does not scroll well. |
| 38 | - setkey("bol", "^[[1~"); % home |
| 39 | - setkey("toggle_overwrite", "^[[2~"); % insert |
| 40 | - setkey("delete_char_cmd", "^[[3~"); % delete |
| 41 | - setkey("eol", "^[[4~"); % end |
| 42 | - setkey("page_up", "^[[5~"); |
| 43 | - setkey("page_down", "^[[6~"); |
| 44 | -} |
| 45 | diff -Nru jed-B0.99-10/src/keymap.c jed-B0.99-10.new/src/keymap.c |
| 46 | --- jed-B0.99-10/src/keymap.c Sun Nov 14 07:35:49 1999 |
| 47 | +++ jed-B0.99-10.new/src/keymap.c Sat Nov 27 06:55:31 1999 |
| 48 | @@ -304,16 +304,12 @@ |
| 49 | #else |
| 50 | |
| 51 | /* give vtxxx arrow keys */ |
| 52 | - SLkm_define_key ("^[[D", (FVOID_STAR) previous_char_cmd, Global_Map); |
| 53 | - SLkm_define_key ("^[OD", (FVOID_STAR) previous_char_cmd, Global_Map); |
| 54 | - SLkm_define_key ("^[[A", (FVOID_STAR) previous_line_cmd, Global_Map); |
| 55 | - SLkm_define_key ("^[OA", (FVOID_STAR) previous_line_cmd, Global_Map); |
| 56 | - SLkm_define_key ("^[[B", (FVOID_STAR) next_line_cmd, Global_Map); |
| 57 | - SLkm_define_key ("^[OB", (FVOID_STAR) next_line_cmd, Global_Map); |
| 58 | - SLkm_define_key ("^[[C", (FVOID_STAR) next_char_cmd, Global_Map); |
| 59 | - SLkm_define_key ("^[OC", (FVOID_STAR) next_char_cmd, Global_Map); |
| 60 | - SLkm_define_key ("^[[6~", (FVOID_STAR) pagedown_cmd, Global_Map); |
| 61 | - SLkm_define_key ("^[[5~", (FVOID_STAR) pageup_cmd, Global_Map); |
| 62 | + SLkm_define_key (SLtt_tgetstr("kl"), (FVOID_STAR) previous_char_cmd, Global_Map); |
| 63 | + SLkm_define_key (SLtt_tgetstr("ku"), (FVOID_STAR) previous_line_cmd, Global_Map); |
| 64 | + SLkm_define_key (SLtt_tgetstr("kd"), (FVOID_STAR) next_line_cmd, Global_Map); |
| 65 | + SLkm_define_key (SLtt_tgetstr("kr"), (FVOID_STAR) next_char_cmd, Global_Map); |
| 66 | + SLkm_define_key (SLtt_tgetstr("kN"), (FVOID_STAR) pagedown_cmd, Global_Map); |
| 67 | + SLkm_define_key (SLtt_tgetstr("kP"), (FVOID_STAR) pageup_cmd, Global_Map); |
| 68 | SLkm_define_key ("^K^[[C", (FVOID_STAR) scroll_left, Global_Map); |
| 69 | SLkm_define_key ("^K^[[D", (FVOID_STAR) scroll_right, Global_Map); |
| 70 | SLkm_define_key ("^K^[[A", (FVOID_STAR) bob, Global_Map); |
projects / packages / jed.git / blame