/usr/share/jed/lib/lisp.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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | % Lisp mode
$1 = "LISP";
create_syntax_table ($1);
define_syntax ("([", ")]", '(', $1);
define_syntax (";", "", '%', $1);
define_syntax ('"', '"', $1);
define_syntax ('\\', '\\', $1);
define_syntax ("0-9a-zA-Z_", 'w', $1); % words
define_syntax ("-+0-9", '0', $1); % Numbers
% define_syntax ("", ',', $1); % Delimiters
define_syntax ('#', '#', $1); % preprocessor
% define_syntax ("%-+/&*=<>|!~^", '+', $1); % binary operators
() = define_keywords ($1, "eqifor", 2);
() = define_keywords ($1, "letnot", 3);
() = define_keywords ($1, "setq", 4);
() = define_keywords ($1, "defunprognwhile", 5);
define lisp_indent_line ()
{
variable val, col;
push_spot ();
bol ();
val = find_matching_delimiter (')');
col = what_column ();
if (val == 1) col += 3;
pop_spot ();
push_spot ();
bol_skip_white ();
if (col != what_column ())
{
bol_trim ();
col--; whitespace (col);
}
pop_spot ();
push_mark ();
bskip_white ();
if (bolp ())
{
skip_white ();
pop_mark_0 ();
}
else pop_mark_1 ();
}
define lisp_mode ()
{
set_mode("lisp", 2);
set_buffer_hook ("indent_hook", "lisp_indent_line");
use_syntax_table ("LISP");
run_mode_hooks ("lisp_mode_hook");
}
|