/usr/share/jed/lib/tabs.sl is in jed-common 1:0.99.19-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | %%
%% Tab routines for JED
%%
%% The following defines the tab stops to be 8 column:
custom_variable ("Tab_Stops", [0:19] * TAB_DEFAULT + 1);
define tab_to_tab_stop ()
{
variable c, goal, i;
c = what_column ();
foreach (Tab_Stops)
{
goal = ();
if (goal > c) break;
}
insert_spaces (goal - c);
}
setkey ("tab_to_tab_stop", "^I");
private variable _Tabs_Buffer;
$1 = "*TabsEdit*";
!if (keymap_p($1))
{
make_keymap ($1);
undefinekey ("^C", $1);
definekey ("tabs_install_tab_stops", "^C^C", $1);
}
%% emacs like edit tab stops
define edit_tab_stops ()
{
variable tbuf, i;
_Tabs_Buffer = whatbuf();
tbuf = "*TabsEdit*";
sw2buf(tbuf); erase_buffer();
TAB = 0;
use_keymap(tbuf);
foreach (Tab_Stops)
{
i = ();
goto_column (i);
insert_char ('T');
}
newline ();
_for (1, 13, 1)
{
i = ();
goto_column (10 * i);
insert (string(i));
}
newline ();
loop (13) insert ("1234567890");
insert ("\nTo install changes, type control-c control-c.");
bob ();
set_buffer_modified_flag (0);
set_overwrite (1);
}
define tabs_install_tab_stops ()
{
variable i;
bob ();
_for (0, length (Tab_Stops) - 1, 1)
{
i = ();
skip_white ();
if (eolp()) break;
Tab_Stops[i] = what_column ();
go_right_1 ();
}
Tab_Stops[[i:]] = 0;
set_buffer_modified_flag (0);
delbuf (whatbuf ());
sw2buf ( _Tabs_Buffer);
}
|