home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / src / commands.h < prev    next >
Encoding:
C/C++ Source or Header  |  1995-08-07  |  2.7 KB  |  79 lines
  1. /* Definitions needed by most editing commands.
  2.    Copyright (C) 1985-1993 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 the Free
  18. Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. /* Synched up with: Not synched with FSF. */
  21.  
  22. #ifndef _XEMACS_COMMANDS_H_
  23. #define _XEMACS_COMMANDS_H_
  24.  
  25. /* Previous command symbol found here for comparison */
  26. extern Lisp_Object last_command;
  27.  
  28. /* This is so incredibly losing that it's been completely eliminated
  29.    from the code.  Trust me, there are cleaner, safer ways of
  30.    achieving the same functionality (e.g. use select()). */
  31. /* extern int immediate_quit;        Nonzero means ^G can quit instantly */
  32.  
  33. extern Lisp_Object Vexecuting_macro;
  34.  
  35. extern Lisp_Object Qpre_command_hook, Qpost_command_hook;
  36.  
  37. extern Lisp_Object recent_keys_ring;
  38. extern int recent_keys_ring_index;
  39.   
  40. extern Lisp_Object Qpre_command_hook, Qpost_command_hook;
  41.  
  42. extern Lisp_Object recent_keys_ring;
  43. extern int recent_keys_ring_index;
  44.  
  45. /* Nonzero if input is coming from the keyboard */
  46. #define INTERACTIVE (NILP (Vexecuting_macro) && !noninteractive)
  47.  
  48. /* Set this nonzero to force reconsideration of modeline. */
  49. extern int modeline_changed;
  50.  
  51. extern Lisp_Object Fcommand_execute (Lisp_Object cmd, Lisp_Object record);
  52. extern Lisp_Object Fcommand_loop_1 (void);
  53. extern Lisp_Object call_command_loop (Lisp_Object catch_errors);
  54. /* #ifndef LISP_COMMAND_LOOP */
  55. extern Lisp_Object Vtop_level;
  56. /* #else */
  57. extern Lisp_Object Vcommand_loop;
  58. /* #endif */
  59. extern DOESNT_RETURN initial_command_loop (Lisp_Object);
  60.  
  61. extern Lisp_Object Vkeyboard_translate_table;
  62. extern Lisp_Object Vthis_command;
  63. extern Lisp_Object Vlast_command;
  64. extern Lisp_Object Vlast_command_event;
  65. extern Lisp_Object Vlast_input_event;
  66. /* These two for compatibility; they are V... because they can be nil. */
  67. extern Lisp_Object Vlast_command_char;
  68. extern Lisp_Object Vlast_input_char;
  69. extern Lisp_Object Vlast_input_time;
  70. extern Lisp_Object Vcurrent_mouse_event;
  71.  
  72. extern int zmacs_regions;
  73. extern int zmacs_region_active_p;
  74. extern int zmacs_region_stays;
  75. extern void zmacs_update_region (void);
  76. extern void zmacs_deactivate_region (void);
  77.  
  78. #endif /* _XEMACS_COMMANDS_H_ */
  79.