/usr/share/jed/lib/abbrev.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 | !if (is_defined ("Abbrev_File"))
{
variable Abbrev_File;
$1 = getenv ("JED_HOME");
if ($1 == NULL)
{
$1 = getenv ("HOME");
if ($1 == NULL) $1 = "";
}
#ifdef VMS
if (0 == strlen ($1))
{
Abbrev_File = "SYS$LOGIN:abbrevs.sl";
}
else Abbrev_File = dircat ($1, Abbrev_File);
#else
#ifdef UNIX
Abbrev_File = ".abbrevs.sl";
#else
Abbrev_File = "abbrevs.sl";
#endif
Abbrev_File = dircat ($1, Abbrev_File);
#endif % VMS
}
if (file_status (Abbrev_File) > 0) pop (evalfile (Abbrev_File));
define set_abbrev_mode (val)
{
if (val)
_set_buffer_flag (0x800);
else
_unset_buffer_flag (0x800);
}
define abbrev_mode ()
{
_toggle_buffer_flag (0x800);
if (_test_buffer_flag (0x800))
message ("Abbrev mode ON");
else
message ("Abbrev mode OFF");
}
provide ("abbrev");
|