if (BATCH == 0)
{
   () = evalfile("buf");
   set_readonly(0);
   () = evalfile("emacs");           % Emacs-like bindings
   () = evalfile("edt");             % EDT--- Unix and VMS
    setkey("self_insert_cmd", "^I");
}  %Batch

enable_top_status_line (0);

No_Backups        = 0;  % If non-zero, backup files will not be created.
Startup_With_File = 1;  % if greater then zero, force JED to prompt for a file
                        %   if none is specified on the command line.  If 
                        %   negative, inhibit startup message.
DISPLAY_TIME      = 1;  % non-zero enables the time to be displayed on 
                        %  status line, zero disables it.  If this value
                        %  is -1, 24 hour time will be used.
HIGHLIGHT	  = 1;	% non-zero for region highlighting
WANT_SYNTAX_HIGHLIGHT = 1;
HORIZONTAL_PAN	= -20;	% if zero, no automatic panning.  If positive, only
                        % the current line is panned.  If negative, pan window.
LINENUMBERS	= 2;	% the linenumber. A value greater than 1 will also

BLINK		= 1;	% if non zero, blink matching parenthesis
TAB_DEFAULT	= 8;	% Tab size  (also try edit_tab_stops)
WRAP		= 200;	% wrap column
ADD_NEWLINE	= 1;	% add newline to file when writing if one not present
IGNORE_BEEP	= 3;
_traceback	= 0;	% Non zero means dump traceback on S-Lang errors
WRAP_INDENTS	= 0;	
OUTPUT_RATE    =  0;
C_INDENT	= 4;	% amount of space to indent within block.
C_BRACE		= 2;	% amount of space to indent brace
C_BRA_NEWLINE   = 0;    
variable C_No_Brace_Offset = 1;   
META_CHAR	= -1;	% All chars with hi bit set will self insert

DISPLAY_EIGHT_BIT = 160; % Other systems assume ISO Latin 1
   $1 = "black"; $2 = "white";
   set_color("menu", "white", "black");		  % menu bar    
   set_color("normal", $1, $2);	                  % default fg/bg
   set_color("status", "yellow", "blue");	  % status or mode line
   set_color("region", "yellow", "brightmagenta");% for marking regions
   set_color("operator", $1, $2);      		  % +, -, etc..  
   set_color("number", "red", $2);	  % 10, 2.71,... TeX formulas
   set_color("comment", "magenta", $2);           % /* comment */  
   set_color("string", "brightred", $2);	  % "string" or 'char'  
   set_color("keyword", "brightblue", $2);	  % if, while, unsigned, ...  
   set_color("keyword1", "brightblue", $2);
   set_color("delimiter", $1, $2);     		  % {}[](),.;...  
   set_color("preprocess", "magenta", $2);	  % #ifdef ....  
   set_color("message", "blue", $2);              % color for messages
   set_color("error", "brightred", $2);           % color for errors
   set_color("dollar", "brightred", $2);          % color dollar sign continuation
   call("redraw");
%  or add vt100 to the list below. 
%  
  $1 = "v100 vt102 vt200 vt220 vt300 vt320 vt420 xterms";

  if (is_substr($1, getenv("TERM"))) set_term_vtxxx(0);

variable compile_parse_error_function;
define dired_hook ()
{
   local_unsetkey ("^K");
   local_setkey ("dired_kill_line", "^K");
}

define insert_other_window()
{
  if (nwindows() != 2) return;
  otherwindow();
  whatbuf();
  otherwindow();
  insbuf();
}

% My own functions: (TAM)

    setkey("quit_without_save", "^Y");
    setkey("save_and_leave", "^L");
    setkey("insert_file",  "^[OPI");
    setkey ("replace_cmd", "\eOP\eOM");  %% subs (query replace)
    setkey("write_region", "^[OPW");
    setkey("kill_rect", "^Rx");
    setkey("insert_rect","^Ri");
    setkey("blank_rect", "^Rb");
    unsetkey("^H");
    setkey("yp_yank", "^G");

    setkey("backward_delete_char_untabify", "^H");
    setkey("help_prefix", "^[OPh");

define save_and_leave() {
    save_buffer();
    exit_jed;
}
define quit_without_save() {
    set_buffer_modified_flag(0);
    exit_jed;
}