/usr/share/jed/lib/paste.sl is in jed-common 1:0.99.19-2.1.
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 | define paste ()
{
flush ("Ready for data...");
if (0 == input_pending (300))
{
message ("You have taken too much time");
return;
}
variable as = _test_buffer_flag (2);
ERROR_BLOCK
{
if (as) _set_buffer_flag (2);
}
_unset_buffer_flag (2);
flush ("Pasting in progress...");
while (input_pending (10))
{
variable ch = _getkey ();
if (ch == '\r')
{
ch = '\n';
}
insert_byte (ch);
update (0);
}
EXECUTE_ERROR_BLOCK;
message ("Done");
}
|