/usr/share/jed/lib/tmisc.sl is in jed-common 1:0.99.19-4.
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 | %
% Miscellaneous text functions
%
define text_justify_line ()
{
variable min, max, r, count;
count = 100;
push_spot(); bol_skip_white();
if (eolp) {pop_spot(); return; }
min = what_column();
eol_trim();
max = what_column();
while ((max < WRAP) and count)
{
r = random(0, max);
--count;
if (r < min) continue;
goto_column(r); skip_white();
if (ffind_char (' ')) { insert_single_space(); ++max; eol();}
}
pop_spot();
}
define format_paragraph_hook()
{
variable n;
push_spot();
backward_paragraph();
n = what_line();
forward_paragraph ();
go_up(2);
if (n - what_line() > 0) {pop_spot(); return; }
push_mark();
backward_paragraph();
if (what_line() != 1) go_down_1 ();
narrow();
bob();
do text_justify_line (); while (down_1 ());
widen();
pop_spot();
}
|