/usr/share/jed/lib/seldisp.sl is in jed-common 1:0.99.19-7.
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 | #ifdef HAS_LINE_ATTR
define set_selective_display ()
{
variable c, arg, h;
variable msg;
c = prefix_argument (-1);
% Allow the current column be used to set the indent level.
if (c == -1)
c = what_column ();
if (c <= 1)
{
arg = 0;
msg = "Cancelling selective display mode...";
}
else
{
arg = 1;
c--;
msg = sprintf ("Hiding all lines beyond column %d...", c);
}
flush (msg);
push_spot ();
bob ();
h = 0;
do
{
bol_skip_white ();
!if (eolp ())
h = arg * (what_column () > c);
% Otherwise, a blank line to if the last line was hidden, then
% hide this one too.
set_line_hidden (h);
}
while (down_1 ());
pop_spot ();
message (msg + "done");
}
|