git.chise.org Git - chise/xemacs-chise.git.1/blob - src/commands.h

   1 /* Definitions needed by most editing commands.
   2    Copyright (C) 1985-1994 Free Software Foundation, Inc.
   3
   4 This file is part of XEmacs.
   5
   6 XEmacs is free software; you can redistribute it and/or modify it
   7 under the terms of the GNU General Public License as published by the
   8 Free Software Foundation; either version 2, or (at your option) any
   9 later version.
  10
  11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
  12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with XEmacs; see the file COPYING.  If not, write to
  18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19 Boston, MA 02111-1307, USA.  */
  20
  21 /* Synched up with: FSF 19.30. */
  22
  23 #ifndef INCLUDED_commands_h_
  24 #define INCLUDED_commands_h_
  25
  26 #if 0 /* FSFmacs */
  27 #define Ctl(c) ((c)&037)
  28 #endif
  29
  30 /* bunches of FSF keymap and minibuffer stuff not here (in Lisp) */
  31
  32 extern Lisp_Object Vlast_command_event;
  33
  34 extern Lisp_Object Vlast_input_event;
  35
  36 /* These next two for compatibility; they are V... because they can be
  37    nil. (Many FSFmacs equivalent variables incorrectly omit the V
  38    even though they are Lisp_Objects.) */
  39 /* Last character of last key sequence.  */
  40 extern Lisp_Object Vlast_command_char;
  41
  42 extern Lisp_Object Vlast_input_char;
  43
  44 #if 0 /* FSFmacs */
  45 /* Last input character read as a command, not counting menus
  46    reached by the mouse.  */
  47 extern Lisp_Object Vlast_nonmenu_event;
  48 #endif
  49
  50 #if 0 /* Local to event-stream.c */
  51 /* List of command events to be re-read, or Qnil.  */
  52 extern Lisp_Object Vunread_command_events;
  53 #endif
  54
  55 #if 0 /* FSFmacs */
  56 /* Command char event to be re-read, or -1 if none.
  57    Setting this is obsolete, but some things should still check it.  */
  58 extern int unread_command_char;
  59 #endif
  60
  61 /* Last command executed by the editor command loop, not counting
  62    commands that set the prefix argument.  */
  63
  64 extern Lisp_Object Vlast_command;
  65
  66 /* The command being executed by the command loop.
  67    Commands may set this, and the value set will be copied into
  68    Vlast_command instead of the actual command.  */
  69 extern Lisp_Object Vthis_command;
  70
  71 #if 0 /* FSFmacs */
  72 /* If not Qnil, this is a switch-frame event which we decided to put
  73    off until the end of a key sequence.  This should be read as the
  74    next command input, after any Vunread_command_events.
  75
  76    read_key_sequence uses this to delay switch-frame events until the
  77    end of the key sequence; Fread_char uses it to put off switch-frame
  78    events until a non-ASCII event is acceptable as input.  */
  79 extern Lisp_Object unread_switch_frame;
  80 #endif
  81
  82 #if 0 /* Local to event-stream.c */
  83 /* The value of point when the last command was executed.  */
  84 extern int last_point_position;
  85
  86 /* The buffer that was current when the last command was started.  */
  87 extern Lisp_Object last_point_position_buffer;
  88 #endif
  89
  90 /* This is so incredibly losing that it's been completely eliminated
  91    from the code.  Trust me, there are cleaner, safer ways of
  92    achieving the same functionality (e.g. use select()). */
  93 /* extern int immediate_quit;       Nonzero means ^G can quit instantly */
  94
  95 /* Nonzero if input is coming from the keyboard */
  96
  97 #define INTERACTIVE (NILP (Vexecuting_macro) && !noninteractive)
  98
  99 /* Set this nonzero to force reconsideration of modeline. */
 100
 101 extern int modeline_changed;
 102
 103 extern Lisp_Object recent_keys_ring;
 104 extern int recent_keys_ring_index;
 105
 106 /* #ifndef LISP_COMMAND_LOOP */
 107 extern Lisp_Object Vtop_level;
 108 /* #else */
 109 extern Lisp_Object Vcommand_loop;
 110 /* #endif */
 111 DECLARE_DOESNT_RETURN (initial_command_loop (Lisp_Object));
 112 Lisp_Object call_command_loop (Lisp_Object catch_errors);
 113 extern Fixnum command_loop_level;
 114
 115 extern Lisp_Object Vkeyboard_translate_table;
 116 extern Lisp_Object Vlast_input_time;
 117 extern Lisp_Object Vcurrent_mouse_event;
 118
 119 extern int zmacs_regions;
 120 extern int zmacs_region_active_p;
 121 extern int zmacs_region_stays;
 122 void zmacs_update_region (void);
 123 void zmacs_deactivate_region (void);
 124 Lisp_Object zmacs_region_buffer (void);
 125
 126 extern Lisp_Object Vthis_command_keys; /* event-stream.c */
 127
 128 #endif /* INCLUDED_commands_h_ */