define trim_buffer
  {
    bob ();
    do
    {
      eol (); trim ();
    }
    while (down (1));
  }

  skip_chars ("- \t0-9ai-o_");

  skip_chars("^A-Za-z");

  define delete_this_line ()
  {
    bol (); push_mark (); eol ();
    del_region ();
  }

• 1 Match found
• 0 Match not found
• -1 A match was attempted from within a string
• -2 A match was attempted from within a comment
• 2 No information

  define show_buffers ()
  {
    variable b, str = "", file;
    loop (buffer_list ())
    {
      b = ();
      setbuf (b);
      (file,,,) = getbuf_info ();
      if (strlen (file)) str = strcat (str, strcat (" ", b));
    }
    message (str);
  }
      

  define find_buffer_in_window (buf)
  {
    !if (buffer_visible (buf)) return 0;
    pop2buf (buf);
    return 1;
  }
      

• Integer % buffer flags
• String % name of buffer
• String % directory associated with buffer
• String % name of file associated with buffer (if any)

• bit 0: buffer modified
• bit 1: auto save mode
• bit 2: file on disk modified
• bit 3: read only bit
• bit 4: overwrite mode
• bit 5: undo enabled
• bit 6: buffer buried
• bit 7: Force save upon exit
• bit 8: Do not backup
• bit 9: File associated with buffer is a binary file
• bit 10: Add CR to end of lines when writing buffer to disk
• bit 11: Abbrev mode

      (file,,,flags) = getbuf_info();
      

• "par_sep" -- returns zero if the current line does not constitute the beginning or end of a paragraph. It returns non-zero otherwise. The default value of hook is is_paragraph_separator
• "indent_hook" -- returns nothing. It is called by the indent line routines
• "wrap_hook" -- hook that is called after a line is wrapped. Returns nothing
• "newline_indent_hook" --- returns nothing. If this hook is defined, it will be called instead of the internal function newline_and_indent is called.
• "bob_eob_error_hook" --- returns nothing. If this hook is defined, it will be called whenever an error one of the internal cursor movement functions would have generated an end of buffer or beginning of buffer error. It is passed an integer that indicates which function would have generated the error. Specifically:
  • -1 previous_line_cmd
  • -2 previous_char_cmd
  • -3 page_up
  • 1 next_line_cmd
  • 2 next_char_cmd
  • 3 page_down
• "mouse_down", "mouse_up", "mouse_drag" "mouse_2click" "mouse_3click" -- These hooks are used to override default hooks defined by the mouse_set_default_hook function.

• 0 : no mode. Very generic
• 1 : Wrap mode. Lines are automatically wrapped at wrap column.
• 2 : C mode.
• 4 : Language mode. Mode does not wrap but is useful for computer languages.
• 8 : S-Lang mode
• 16: Fortran mode highlighting
• 32: TeX mode highlighting

  define set_overwrite_mode ()
  {
    variable dir, file, flags, name;
    (file, dir, name, flags) = getbuf_info ();
    flags = flags | (1 shl 4);
    setbuf_info (file, dir, name, flags);
  }
      

  define set_overwrite_mode ()
  {
    setbuf_info (getbuf_info () | 0x10);
  }
      

  "black"            "gray"
  "red"              "brightred"
  "green"            "brightgreen"
  "brown"            "yellow"
  "blue"             "brightblue"
  "magenta"          "brightmagenta"
  "cyan"             "brightcyan"
  "lightgray"        "white"
      

  "normal"      Default foreground/background
  "status"      The status window line
  "region"      Highlighted Regions
  "cursor"      Text Cursor (X-Windows)
  "menu"        The menu bar
  "error"       Error messages
  "message"     Other messages
  "dollar"      Color of the indicator that text extends 
		beyond the boundary of the window.
      

  "number"      Numbers in C-mode and Equations in TeX-mode
  "delimiter"   Commas, semi-colons, etc...
  "keyword"     Language dependent
  "string"      Literal strings
  "comment"     Comments
  "operator"    Such as +, -, etc...
  "preprocess"  Preprocessor lines
      

  "..."         Hidden line indicator
      

  "menu_char"       Menu item key-shortcut color
  "menu_shadow"     Color of the shadow
  "menu_selection"  Selected menu-item color
  "menu_popup"      Color of the popup box
      

  _autoload ("fun_a", "file_a", "fun_b", "file_b", 2);
      

  autoload ("fun_a", "file_a");
  autoload ("fun_b", "file_b");
      

  extract_filename ("/tmp/name");
      

  define is_buffer_empty ()
  {
    return bobp () and eobp ();
  }
      

  'h'=104/0x68/0150, point 90876 of 127057
      

  while (not (eolp ()))
  {
    if (what_char () == '_')
    {
      del (); insert ("\\_");
    }
  }
      

  define one ()
  {
    push_mark (); narrow ();
    return what_line;
  }
      

  define peek_key ()
  {
    variable ch;
    !if (input_pending (0)) return -1;
    ch = getkey ();
    ungetkey (ch);
    return ch;
  }
      

  map_input (8, 127);
      

  map_input (127, 8);
      

  variable arg = prefix_argument (-9999);
  if (arg == -9999)
    message ("No Prefix Argument");
  else
    message (Sprintf ("Prefix argument: %d", arg, 1));
      

  setkey("bob", "^Kt");
      

  setkey ("bol;insert(string(whatline()))", "^Kw");
      

  define insert_key_bindings (f)
  {
    variable n, key;
    n = which_key (f);
    loop (n)
    {
      str = ();
      insert (str);
      insert ("\n");
    }
  }
      

  mark = create_user_mark ();
      

  variable mark1, mark2;
  setbuf ("first");
  mark1 = create_user_mark ();
  mark2 = mark1;
  setbuf ("second");
      

  move_user_mark (mark1);
      

  define mark_buffer ()
  {
    bob ();
    push_mark ();
    eob ();
  }
      

  tt_send ("\e[?9h");
      

  _add_completion ("fun_a", "fun_b", 2);
      

  add_completion ("fun_a");
  add_completion ("fun_b");
      

  define search_whole_buffer ()
  {
    variable str;
    str = read_mini ("Search for:", "", "");
    !if (strlen (str)) return;
    !if (fsearch (str))
    {
      push_mark (); bob ();
      if (fsearch (str))
        pop_mark (0);
      else pop_mark (1);
      {
        pop_mark (1);
	error ("Not found");
      }
    }
  }
      

  'f'   file name
  'b'   buffer name
  'F'   function name
  'V'   variable name
      

  read_with_completion ("Larry,Curly,Moe", \
	"Favorite Stooge:", "Larry", "", 's');
      

  1  Left button pressed
  2  Middle button pressed
  4  Right button pressed
  8  Shift key pressed
 16  Ctrl key pressed
      

  "mouse_up"          "mouse_status_up"
  "mouse_down"        "mouse_status_down"
  "mouse_drag"        "mouse_status_drag"
  "mouse_2click"      "mouse_status_2click"
  "mouse_3click"      "mouse_status_3click"
      

  define fun (line, column, btn, shift)
      

• -1 Event not handled, pass to default hook
• 0 Event handled, return active window prior to event
• 1 Event handled, stay in current window

• "signal" : indicates that 'value' is the name of a function to call when the process status changed. The function specified by 'value' must be declared to accept an argument list: (pid, flags, status) where 'pid' has the same meaning as above and flags is an integer with the meanings:
  • 1: Process Running
  • 2: Process Stopped
  • 4: Process Exited Normally
  • 8: Process Exited via Signal
  The meaning of the \var{status} parameter depends upon the \var{flags} parameter. If the process exited normally, then \var{status} indicates its return status. Otherwise \var{status} represents the signal that either stopped or killed the process. Note: when this function is called, the current buffer is guaranteed to be the buffer associated with the process.
• "output" : This parameter determines how output from the process is is processed. If the 'value' is the empty string "", output will go to the end of the buffer associated with the process and the point will be left there.
  If value is ".", output will go at the current buffer position. If value is "@", output will go to the end of the buffer but the point will not move. Otherwise, 'value' is the name of a slang function with arguments: (pid, data) where pid has the above meaning and data is the output from the process.

  define count_lines_region ()
  {
    variable n;
    check_region (1);   % spot pushed
    narrow ();
    n = what_line ();
    widen ();
    pop_spot ();
    return n;
  }
      

  define print_region ()
  {
    narrow ();
    print_buffer ();
    widen ();
  }
      

  define swap_a_and_b ()
  {
    variable i;
    _for (0; 255, 1)
    {
      i = ();
      TRANSLATE_ARRAY[i] = i;
    }
    TRANSLATE_ARRAY['a'] = 'b';
    TRANSLATE_ARRAY['b'] = 'a';
    bob (); push_mark (); eob ();
    translate_region ();
  }
      

  'u'    Upcase_region
  'd'    Downcase_region
  'c'    Capitalize region
      

  1    Match found
  0    Match not found
 -1    A match was attempted from within a string.
 -2    A match was attempted from within a comment
  2    No information
      

  create_syntax_table ("demo");
  define_highlight_rule ("[A-Za-z][A-Za-z0-9]*", "keyword", "demo");
  define_highlight_rule ("//.*$", "comment", "demo");
  build_highlight_table ("demo");
      

  define_highlight_rule ("^[ \t]*\\*+[ \t].*$", "comment", "C");
      

  () = define_keywords_n ("C", "asmforintnewtry", 3, 0);
      

  define_syntax ("([{", ")]}", '(', "C");
      

  create_syntax_table ("strange");
  define_syntax ('$',        '"',  "strange");
  define_syntax ('`',        '\\', "strange");
  define_syntax (";", "",    '%',  "strange");
  define_syntax ("<", ">",   '(',  "strange");
      

  enable_highlight_cache ("cmode.dfa", "C");
      

  -2   In a comment
  -1   In a string or a character
   0   Neither of the above
      

  set_fortran_comment_chars ("FORTRAN", "^0-9 \t\n");
      

  0x01     Keywords are case insensitive
  0x02     Comments are Fortran-like
  0x04     Ignore leading whitespace in C comments
  0x08     Keywords are TeX-like
  0x10     Comments start/end are whole words
  0x20     Syntax highlight whole preprocessor line in same color
  0x40     Leading whitespace allowed for preprocessor lines.
      

  0    Do not beep the terminal in any way.
  1    Produce an audible beep only.
  2    Produce an visible beep only by flashing the display.
  3    Produce both audible and visible bells.
      

  define zoom_next_window ()
  {
    otherwindow (); onewindow ();
  }
      

  %b   buffer name
  %f   file name
  %v   JED version
  %t   current time --- only used if variable DISPLAY_TIME is non-zero
  %p   line number or percent string
  %%   literal '%' character
  %m   mode string
  %a   If abbrev mode, expands to "abbrev"
  %n   If buffer is narrowed, expands to "Narrow"
  %o   If overwrite mode, expands to "Ovwrt"
  %c   If the variable LINENUMBERS is 2, this expands to the current column number.
      

  "(Jed %v) EDT: %b   (%m%a%n%o)  %p,%c   Advance   %t"
      

  'r'  : Number of rows
  'w'  : Width of window
  'c'  : Starting column (from 1)
  't'  : Screen line of top line of window (from 1)
      

  define_word ("A-Za-z");
      

  define_word ("-i-n");
      

  define exit_hook ()
  {
    flush ("Really Exit?");
    forever
    {
      switch (getkey () & 0x20)    % map to lowercase
        { case 'y': exit_jed (); }
        { case 'n': return; }
      beep ();
    }
  }
      

  '\n'    ---->   \J
  null    ---->   \@
  \       ---->   \\
  '"'     ---->   \"
      

  dir:     login directory
  shell:   login shell
  pwd:     encripted password
  uid:     user identification number
  gid:     group identification number
      

  () = random (-1, 0);  % seed generator usingtime and pid
  loop (1000)
    insert (Sprintf ("%d\n", random (0, 500), 1));
      

  r = r * 69069UL + 1013904243UL;