|
239
|
1 /* Definitions needed by most editing commands.
|
|
75227
|
2 Copyright (C) 1985, 1994, 2001, 2002, 2003, 2004,
|
|
|
3 2005, 2006, 2007 Free Software Foundation, Inc.
|
|
239
|
4
|
|
|
5 This file is part of GNU Emacs.
|
|
|
6
|
|
|
7 GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
8 it under the terms of the GNU General Public License as published by
|
|
78260
|
9 the Free Software Foundation; either version 3, or (at your option)
|
|
239
|
10 any later version.
|
|
|
11
|
|
|
12 GNU Emacs is distributed in the hope that it will be useful,
|
|
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
15 GNU General Public License for more details.
|
|
|
16
|
|
|
17 You should have received a copy of the GNU General Public License
|
|
|
18 along with GNU Emacs; see the file COPYING. If not, write to
|
|
64084
|
19 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
|
20 Boston, MA 02110-1301, USA. */
|
|
239
|
21
|
|
|
22
|
|
|
23 #define Ctl(c) ((c)&037)
|
|
|
24
|
|
3886
|
25 /* Define the names of keymaps, just so people can refer to them in
|
|
|
26 calls to initial_define_key. These should *not* be used after
|
|
|
27 initialization; use-global-map doesn't affect these; it sets
|
|
|
28 current_global_map instead. */
|
|
239
|
29 extern Lisp_Object global_map;
|
|
|
30 extern Lisp_Object meta_map;
|
|
|
31 extern Lisp_Object control_x_map;
|
|
|
32
|
|
|
33 extern Lisp_Object Vminibuffer_local_map;
|
|
|
34
|
|
|
35 extern Lisp_Object Vminibuffer_local_ns_map;
|
|
|
36
|
|
|
37 /* keymap used for minibuffers when doing completion */
|
|
|
38 extern Lisp_Object Vminibuffer_local_completion_map;
|
|
|
39
|
67258
a68df09a8a34
(Vminibuffer_local_filename_completion_map): Declare a new keymap for
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
40 /* keymap used for minibuffers when doing completion in filenames*/
|
a68df09a8a34
(Vminibuffer_local_filename_completion_map): Declare a new keymap for
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
41 extern Lisp_Object Vminibuffer_local_filename_completion_map;
|
a68df09a8a34
(Vminibuffer_local_filename_completion_map): Declare a new keymap for
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
42
|
|
239
|
43 /* keymap used for minibuffers when doing completion and require a match */
|
|
|
44 extern Lisp_Object Vminibuffer_local_must_match_map;
|
|
|
45
|
67258
a68df09a8a34
(Vminibuffer_local_filename_completion_map): Declare a new keymap for
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
46 /* keymap used for minibuffers when doing completion in filenames
|
a68df09a8a34
(Vminibuffer_local_filename_completion_map): Declare a new keymap for
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
47 and require a match */
|
a68df09a8a34
(Vminibuffer_local_filename_completion_map): Declare a new keymap for
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
48 extern Lisp_Object Vminibuffer_local_must_match_filename_map;
|
a68df09a8a34
(Vminibuffer_local_filename_completion_map): Declare a new keymap for
Eli Zaretskii <eliz@gnu.org>
diff
changeset
|
49
|
|
239
|
50 /* Last character of last key sequence. */
|
|
|
51 extern Lisp_Object last_command_char;
|
|
|
52
|
|
1080
|
53 /* Last input character read as a command, not counting menus
|
|
|
54 reached by the mouse. */
|
|
|
55 extern Lisp_Object last_nonmenu_event;
|
|
|
56
|
|
1821
|
57 /* List of command events to be re-read, or Qnil. */
|
|
7171
|
58 extern Lisp_Object Vunread_command_events;
|
|
1587
|
59
|
|
8273
|
60 /* Command char event to be re-read, or -1 if none.
|
|
|
61 Setting this is obsolete, but some things should still check it. */
|
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
62 extern EMACS_INT unread_command_char;
|
|
8273
|
63
|
|
6536
|
64 /* The command being executed by the command loop.
|
|
12162
|
65 Commands may set this, and the value set will be copied into
|
|
|
66 current_kboard->Vlast_command instead of the actual command. */
|
|
22967
|
67 extern Lisp_Object Vthis_command;
|
|
6536
|
68
|
|
1587
|
69 /* If not Qnil, this is a switch-frame event which we decided to put
|
|
|
70 off until the end of a key sequence. This should be read as the
|
|
7171
|
71 next command input, after any Vunread_command_events.
|
|
1587
|
72
|
|
|
73 read_key_sequence uses this to delay switch-frame events until the
|
|
|
74 end of the key sequence; Fread_char uses it to put off switch-frame
|
|
|
75 events until a non-ASCII event is acceptable as input. */
|
|
|
76 extern Lisp_Object unread_switch_frame;
|
|
239
|
77
|
|
67831
|
78 /* The value of point when the last command was started. */
|
|
6179
|
79 extern int last_point_position;
|
|
|
80
|
|
7331
|
81 /* The buffer that was current when the last command was started. */
|
|
|
82 extern Lisp_Object last_point_position_buffer;
|
|
|
83
|
|
67831
|
84 /* The window that was selected when the last command was started. */
|
|
|
85 extern Lisp_Object last_point_position_window;
|
|
|
86
|
|
239
|
87 /* Nonzero means ^G can quit instantly */
|
|
|
88 extern int immediate_quit;
|
|
|
89
|
|
61981
|
90 extern Lisp_Object Vexecuting_kbd_macro;
|
|
239
|
91
|
|
|
92 /* Nonzero if input is coming from the keyboard */
|
|
|
93
|
|
61981
|
94 #define INTERACTIVE (NILP (Vexecuting_kbd_macro) && !noninteractive)
|
|
239
|
95
|
|
|
96 /* Set this nonzero to force reconsideration of mode line. */
|
|
|
97
|
|
|
98 extern int update_mode_lines;
|
|
|
99
|
|
|
100 /* Nonzero means reading single-character input with prompt
|
|
|
101 so put cursor on minibuffer after the prompt. */
|
|
|
102
|
|
|
103 extern int cursor_in_echo_area;
|
|
52401
|
104
|
|
|
105 /* arch-tag: 4f7ca0b7-6a56-4b20-8bf5-b67a99921d1d
|
|
|
106 (do not change this comment) */
|
