Mercurial > emacs
annotate src/keyboard.c @ 16652:eb3f3934a185
(normal-top-level, command-line, command-line-1):
User w32 instead of ms-windows for window-system symbol.
author | Geoff Voelker <voelker@cs.washington.edu> |
---|---|
date | Mon, 09 Dec 1996 23:38:03 +0000 |
parents | 45d75ca8dc40 |
children | 798ab643cba2 |
rev | line source |
---|---|
518 | 1 /* Keyboard and mouse input; editor command loop. |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2 Copyright (C) 1985,86,87,88,89,93,94,95,96 Free Software Foundation, Inc. |
518 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
518 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14079
diff
changeset
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14079
diff
changeset
|
19 Boston, MA 02111-1307, USA. */ |
518 | 20 |
21 /* Allow config.h to undefine symbols found here. */ | |
22 #include <signal.h> | |
23 | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4600
diff
changeset
|
24 #include <config.h> |
518 | 25 #include <stdio.h> |
26 #include "termchar.h" | |
27 #include "termopts.h" | |
28 #include "lisp.h" | |
29 #include "termhooks.h" | |
30 #include "macros.h" | |
765 | 31 #include "frame.h" |
518 | 32 #include "window.h" |
33 #include "commands.h" | |
34 #include "buffer.h" | |
35 #include "disptab.h" | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
36 #include "dispextern.h" |
518 | 37 #include "keyboard.h" |
2061 | 38 #include "intervals.h" |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
39 #include "blockinput.h" |
518 | 40 #include <setjmp.h> |
41 #include <errno.h> | |
42 | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
43 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
44 #include "msdos.h" |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
45 #include <time.h> |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
46 #else /* not MSDOS */ |
562 | 47 #ifndef VMS |
48 #include <sys/ioctl.h> | |
49 #endif | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
50 #endif /* not MSDOS */ |
562 | 51 |
52 #include "syssignal.h" | |
1046
d4b1e5db2b2a
* keyboard.c: Include "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1008
diff
changeset
|
53 #include "systty.h" |
518 | 54 |
7727
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
55 /* This is to get the definitions of the XK_ symbols. */ |
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
56 #ifdef HAVE_X_WINDOWS |
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
57 #include "xterm.h" |
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
58 #endif |
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
59 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
60 #ifdef HAVE_NTGUI |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
61 #include "w32term.h" |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
62 #endif /* HAVE_NTGUI */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
63 |
7807
cd93cee36101
(modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents:
7787
diff
changeset
|
64 /* Include systime.h after xterm.h to avoid double inclusion of time.h. */ |
cd93cee36101
(modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents:
7787
diff
changeset
|
65 #include "systime.h" |
cd93cee36101
(modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents:
7787
diff
changeset
|
66 |
518 | 67 extern int errno; |
68 | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
69 /* Variables for blockinput.h: */ |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
70 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
71 /* Non-zero if interrupt input is blocked right now. */ |
2481
a7a0f89c1f64
* keyboard.c (interrupt_input_blocked, interrupt_input_pending):
Jim Blandy <jimb@redhat.com>
parents:
2439
diff
changeset
|
72 int interrupt_input_blocked; |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
73 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
74 /* Nonzero means an input interrupt has arrived |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
75 during the current critical section. */ |
2481
a7a0f89c1f64
* keyboard.c (interrupt_input_blocked, interrupt_input_pending):
Jim Blandy <jimb@redhat.com>
parents:
2439
diff
changeset
|
76 int interrupt_input_pending; |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
77 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
78 |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
79 /* File descriptor to use for input. */ |
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
80 extern int input_fd; |
518 | 81 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
82 #ifdef HAVE_WINDOW_SYSTEM |
518 | 83 /* Make all keyboard buffers much bigger when using X windows. */ |
84 #define KBD_BUFFER_SIZE 4096 | |
85 #else /* No X-windows, character input */ | |
86 #define KBD_BUFFER_SIZE 256 | |
87 #endif /* No X-windows */ | |
88 | |
89 /* Following definition copied from eval.c */ | |
90 | |
91 struct backtrace | |
92 { | |
93 struct backtrace *next; | |
94 Lisp_Object *function; | |
95 Lisp_Object *args; /* Points to vector of args. */ | |
96 int nargs; /* length of vector. If nargs is UNEVALLED, | |
97 args points to slot holding list of | |
98 unevalled args */ | |
99 char evalargs; | |
100 }; | |
101 | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
102 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
103 KBOARD *initial_kboard; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
104 KBOARD *current_kboard; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
105 KBOARD *all_kboards; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
106 int single_kboard; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
107 #else |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
108 KBOARD the_only_kboard; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
109 #endif |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
110 |
518 | 111 /* Non-nil disable property on a command means |
112 do not execute it; call disabled-command-hook's value instead. */ | |
4094
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
113 Lisp_Object Qdisabled, Qdisabled_command_hook; |
518 | 114 |
115 #define NUM_RECENT_KEYS (100) | |
116 int recent_keys_index; /* Index for storing next element into recent_keys */ | |
117 int total_keys; /* Total number of elements stored into recent_keys */ | |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
118 Lisp_Object recent_keys; /* A vector, holding the last 100 keystrokes */ |
518 | 119 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
120 /* Vector holding the key sequence that invoked the current command. |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
121 It is reused for each command, and it may be longer than the current |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
122 sequence; this_command_key_count indicates how many elements |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
123 actually mean something. |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
124 It's easier to staticpro a single Lisp_Object than an array. */ |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
125 Lisp_Object this_command_keys; |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
126 int this_command_key_count; |
518 | 127 |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
128 /* Number of elements of this_command_keys |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
129 that precede this key sequence. */ |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
130 int this_single_command_key_start; |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
131 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
132 /* Record values of this_command_key_count and echo_length () |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
133 before this command was read. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
134 static int before_command_key_count; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
135 static int before_command_echo_length; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
136 /* Values of before_command_key_count and before_command_echo_length |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
137 saved by reset-this-command-lengths. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
138 static int before_command_key_count_1; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
139 static int before_command_echo_length_1; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
140 /* Flag set by reset-this-command-lengths, |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
141 saying to reset the lengths when add_command_key is called. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
142 static int before_command_restore_flag; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
143 |
518 | 144 extern int minbuf_level; |
145 | |
146 extern struct backtrace *backtrace_list; | |
147 | |
148 /* Nonzero means do menu prompting. */ | |
149 static int menu_prompting; | |
150 | |
151 /* Character to see next line of menu prompt. */ | |
152 static Lisp_Object menu_prompt_more_char; | |
153 | |
154 /* For longjmp to where kbd input is being done. */ | |
155 static jmp_buf getcjmp; | |
156 | |
157 /* True while doing kbd input. */ | |
158 int waiting_for_input; | |
159 | |
160 /* True while displaying for echoing. Delays C-g throwing. */ | |
161 static int echoing; | |
162 | |
13267
12d329dd9940
(read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents:
13246
diff
changeset
|
163 /* True means we can start echoing at the next input pause |
12d329dd9940
(read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents:
13246
diff
changeset
|
164 even though there is something in the echo area. */ |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
165 static char *ok_to_echo_at_next_pause; |
13267
12d329dd9940
(read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents:
13246
diff
changeset
|
166 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
167 /* Nonzero means disregard local maps for the menu bar. */ |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
168 static int inhibit_local_menu_bar_menus; |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
169 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
170 /* Nonzero means C-g should cause immediate error-signal. */ |
518 | 171 int immediate_quit; |
172 | |
173 /* Character to recognize as the help char. */ | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
174 Lisp_Object Vhelp_char; |
518 | 175 |
12144 | 176 /* List of other event types to recognize as meaning "help". */ |
177 Lisp_Object Vhelp_event_list; | |
178 | |
518 | 179 /* Form to execute when help char is typed. */ |
180 Lisp_Object Vhelp_form; | |
181 | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
182 /* Command to run when the help character follows a prefix key. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
183 Lisp_Object Vprefix_help_command; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
184 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
185 /* List of items that should move to the end of the menu bar. */ |
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
186 Lisp_Object Vmenu_bar_final_items; |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
187 |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
188 /* Non-nil means show the equivalent key-binding for |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
189 any M-x command that has one. |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
190 The value can be a length of time to show the message for. |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
191 If the value is non-nil and not a number, we wait 2 seconds. */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
192 Lisp_Object Vsuggest_key_bindings; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
193 |
518 | 194 /* Character that causes a quit. Normally C-g. |
195 | |
196 If we are running on an ordinary terminal, this must be an ordinary | |
197 ASCII char, since we want to make it our interrupt character. | |
198 | |
199 If we are not running on an ordinary terminal, it still needs to be | |
200 an ordinary ASCII char. This character needs to be recognized in | |
201 the input interrupt handler. At this point, the keystroke is | |
202 represented as a struct input_event, while the desired quit | |
203 character is specified as a lispy event. The mapping from struct | |
204 input_events to lispy events cannot run in an interrupt handler, | |
205 and the reverse mapping is difficult for anything but ASCII | |
206 keystrokes. | |
207 | |
208 FOR THESE ELABORATE AND UNSATISFYING REASONS, quit_char must be an | |
209 ASCII character. */ | |
210 int quit_char; | |
211 | |
212 extern Lisp_Object current_global_map; | |
213 extern int minibuf_level; | |
214 | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
215 /* If non-nil, this is a map that overrides all other local maps. */ |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
216 Lisp_Object Voverriding_local_map; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
217 |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
218 /* If non-nil, Voverriding_local_map applies to the menu bar. */ |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
219 Lisp_Object Voverriding_local_map_menu_flag; |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
220 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
221 /* Keymap that defines special misc events that should |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
222 be processed immediately at a low level. */ |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
223 Lisp_Object Vspecial_event_map; |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
224 |
518 | 225 /* Current depth in recursive edits. */ |
226 int command_loop_level; | |
227 | |
228 /* Total number of times command_loop has read a key sequence. */ | |
229 int num_input_keys; | |
230 | |
231 /* Last input character read as a command. */ | |
232 Lisp_Object last_command_char; | |
233 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
234 /* Last input character read as a command, not counting menus |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
235 reached by the mouse. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
236 Lisp_Object last_nonmenu_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
237 |
518 | 238 /* Last input character read for any purpose. */ |
239 Lisp_Object last_input_char; | |
240 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
241 /* If not Qnil, a list of objects to be read as subsequent command input. */ |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
242 Lisp_Object Vunread_command_events; |
518 | 243 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
244 /* If not -1, an event to be read as subsequent command input. */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
245 int unread_command_char; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
246 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
247 /* If not Qnil, this is a switch-frame event which we decided to put |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
248 off until the end of a key sequence. This should be read as the |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
249 next command input, after any unread_command_events. |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
250 |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
251 read_key_sequence uses this to delay switch-frame events until the |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
252 end of the key sequence; Fread_char uses it to put off switch-frame |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
253 events until a non-ASCII event is acceptable as input. */ |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
254 Lisp_Object unread_switch_frame; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
255 |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
256 /* A mask of extra modifier bits to put into every keyboard char. */ |
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
257 int extra_keyboard_modifiers; |
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
258 |
518 | 259 /* Char to use as prefix when a meta character is typed in. |
260 This is bound on entry to minibuffer in case ESC is changed there. */ | |
261 | |
262 Lisp_Object meta_prefix_char; | |
263 | |
264 /* Last size recorded for a current buffer which is not a minibuffer. */ | |
265 static int last_non_minibuf_size; | |
266 | |
687
e2b747dd6a6e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
682
diff
changeset
|
267 /* Number of idle seconds before an auto-save and garbage collection. */ |
518 | 268 static Lisp_Object Vauto_save_timeout; |
269 | |
270 /* Total number of times read_char has returned. */ | |
271 int num_input_chars; | |
272 | |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
273 /* Total number of times read_char has returned, outside of macros. */ |
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
274 int num_nonmacro_input_chars; |
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
275 |
518 | 276 /* Auto-save automatically when this many characters have been typed |
277 since the last time. */ | |
278 | |
279 static int auto_save_interval; | |
280 | |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
281 /* Value of num_nonmacro_input_chars as of last auto save. */ |
518 | 282 |
283 int last_auto_save; | |
284 | |
285 /* The command being executed by the command loop. | |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
286 Commands may set this, and the value set will be copied into |
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
287 current_kboard->Vlast_command instead of the actual command. */ |
518 | 288 Lisp_Object this_command; |
289 | |
6178
ad3864a4e0bc
(command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents:
6159
diff
changeset
|
290 /* The value of point when the last command was executed. */ |
ad3864a4e0bc
(command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents:
6159
diff
changeset
|
291 int last_point_position; |
ad3864a4e0bc
(command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents:
6159
diff
changeset
|
292 |
7345
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
293 /* The buffer that was current when the last command was started. */ |
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
294 Lisp_Object last_point_position_buffer; |
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
295 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
296 /* The frame in which the last input event occurred, or Qmacro if the |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
297 last event came from a macro. We use this to determine when to |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
298 generate switch-frame events. This may be cleared by functions |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
299 like Fselect_frame, to make sure that a switch-frame event is |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
300 generated by the next character. */ |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
301 Lisp_Object internal_last_event_frame; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
302 |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
303 /* A user-visible version of the above, intended to allow users to |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
304 figure out where the last event came from, if the event doesn't |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
305 carry that information itself (i.e. if it was a character). */ |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
306 Lisp_Object Vlast_event_frame; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
307 |
708 | 308 /* The timestamp of the last input event we received from the X server. |
309 X Windows wants this for selection ownership. */ | |
518 | 310 unsigned long last_event_timestamp; |
311 | |
312 Lisp_Object Qself_insert_command; | |
313 Lisp_Object Qforward_char; | |
314 Lisp_Object Qbackward_char; | |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
315 Lisp_Object Qundefined; |
518 | 316 |
317 /* read_key_sequence stores here the command definition of the | |
318 key sequence that it reads. */ | |
319 Lisp_Object read_key_sequence_cmd; | |
320 | |
321 /* Form to evaluate (if non-nil) when Emacs is started. */ | |
322 Lisp_Object Vtop_level; | |
323 | |
324 /* User-supplied string to translate input characters through. */ | |
325 Lisp_Object Vkeyboard_translate_table; | |
326 | |
327 /* Keymap mapping ASCII function key sequences onto their preferred forms. */ | |
328 extern Lisp_Object Vfunction_key_map; | |
329 | |
12712
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
330 /* Another keymap that maps key sequences into key sequences. |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
331 This one takes precedence over ordinary definitions. */ |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
332 extern Lisp_Object Vkey_translation_map; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
333 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
334 /* Non-nil means deactivate the mark at end of this command. */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
335 Lisp_Object Vdeactivate_mark; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
336 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
337 /* Menu bar specified in Lucid Emacs fashion. */ |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
338 |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
339 Lisp_Object Vlucid_menu_bar_dirty_flag; |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
340 Lisp_Object Qrecompute_lucid_menubar, Qactivate_menubar_hook; |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
341 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
342 /* Hooks to run before and after each command. */ |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
343 Lisp_Object Qpre_command_hook, Vpre_command_hook; |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
344 Lisp_Object Qpost_command_hook, Vpost_command_hook; |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
345 Lisp_Object Qcommand_hook_internal, Vcommand_hook_internal; |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
346 /* Hook run after a command if there's no more input soon. */ |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
347 Lisp_Object Qpost_command_idle_hook, Vpost_command_idle_hook; |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
348 |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
349 /* Delay time in microseconds before running post-command-idle-hook. */ |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
350 int post_command_idle_delay; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
351 |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
352 /* List of deferred actions to be performed at a later time. |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
353 The precise format isn't relevant here; we just check whether it is nil. */ |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
354 Lisp_Object Vdeferred_action_list; |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
355 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
356 /* Function to call to handle deferred actions, when there are any. */ |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
357 Lisp_Object Vdeferred_action_function; |
10070
def41008c136
(command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents:
10060
diff
changeset
|
358 Lisp_Object Qdeferred_action_function; |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
359 |
518 | 360 /* File in which we write all commands we read. */ |
361 FILE *dribble; | |
362 | |
363 /* Nonzero if input is available. */ | |
364 int input_pending; | |
365 | |
2690
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
366 /* 1 if should obey 0200 bit in input chars as "Meta", 2 if should |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
367 keep 0200 bit in input chars. 0 to ignore the 0200 bit. */ |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
368 |
518 | 369 int meta_key; |
370 | |
371 extern char *pending_malloc_warning; | |
372 | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
373 /* Circular buffer for pre-read keyboard input. */ |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
374 static struct input_event kbd_buffer[KBD_BUFFER_SIZE]; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
375 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
376 /* Vector to GCPRO the frames and windows mentioned in kbd_buffer. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
377 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
378 The interrupt-level event handlers will never enqueue an event on a |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
379 frame which is not in Vframe_list, and once an event is dequeued, |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
380 internal_last_event_frame or the event itself points to the frame. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
381 So that's all fine. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
382 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
383 But while the event is sitting in the queue, it's completely |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
384 unprotected. Suppose the user types one command which will run for |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
385 a while and then delete a frame, and then types another event at |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
386 the frame that will be deleted, before the command gets around to |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
387 it. Suppose there are no references to this frame elsewhere in |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
388 Emacs, and a GC occurs before the second event is dequeued. Now we |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
389 have an event referring to a freed frame, which will crash Emacs |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
390 when it is dequeued. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
391 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
392 Similar things happen when an event on a scroll bar is enqueued; the |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
393 window may be deleted while the event is in the queue. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
394 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
395 So, we use this vector to protect the frame_or_window field in the |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
396 event queue. That way, they'll be dequeued as dead frames or |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
397 windows, but still valid lisp objects. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
398 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
399 If kbd_buffer[i].kind != no_event, then |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
400 (XVECTOR (kbd_buffer_frame_or_window)->contents[i] |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
401 == kbd_buffer[i].frame_or_window. */ |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
402 static Lisp_Object kbd_buffer_frame_or_window; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
403 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
404 /* Pointer to next available character in kbd_buffer. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
405 If kbd_fetch_ptr == kbd_store_ptr, the buffer is empty. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
406 This may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the the |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
407 next available char is in kbd_buffer[0]. */ |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
408 static struct input_event *kbd_fetch_ptr; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
409 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
410 /* Pointer to next place to store character in kbd_buffer. This |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
411 may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the next |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
412 character should go in kbd_buffer[0]. */ |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
413 static volatile struct input_event *kbd_store_ptr; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
414 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
415 /* The above pair of variables forms a "queue empty" flag. When we |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
416 enqueue a non-hook event, we increment kbd_store_ptr. When we |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
417 dequeue a non-hook event, we increment kbd_fetch_ptr. We say that |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
418 there is input available iff the two pointers are not equal. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
419 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
420 Why not just have a flag set and cleared by the enqueuing and |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
421 dequeuing functions? Such a flag could be screwed up by interrupts |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
422 at inopportune times. */ |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
423 |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
424 /* If this flag is non-nil, we check mouse_moved to see when the |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
425 mouse moves, and motion events will appear in the input stream. |
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
426 Otherwise, mouse motion is ignored. */ |
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
427 static Lisp_Object do_mouse_tracking; |
518 | 428 |
429 /* Symbols to head events. */ | |
430 Lisp_Object Qmouse_movement; | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
431 Lisp_Object Qscroll_bar_movement; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
432 Lisp_Object Qswitch_frame; |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
433 Lisp_Object Qdelete_frame; |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
434 Lisp_Object Qiconify_frame; |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
435 Lisp_Object Qmake_frame_visible; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
436 |
518 | 437 /* Symbols to denote kinds of events. */ |
438 Lisp_Object Qfunction_key; | |
439 Lisp_Object Qmouse_click; | |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
440 Lisp_Object Qtimer_event; |
518 | 441 /* Lisp_Object Qmouse_movement; - also an event header */ |
442 | |
443 /* Properties of event headers. */ | |
444 Lisp_Object Qevent_kind; | |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
445 Lisp_Object Qevent_symbol_elements; |
518 | 446 |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
447 Lisp_Object Qmenu_enable; |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
448 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
449 /* An event header symbol HEAD may have a property named |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
450 Qevent_symbol_element_mask, which is of the form (BASE MODIFIERS); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
451 BASE is the base, unmodified version of HEAD, and MODIFIERS is the |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
452 mask of modifiers applied to it. If present, this is used to help |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
453 speed up parse_modifiers. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
454 Lisp_Object Qevent_symbol_element_mask; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
455 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
456 /* An unmodified event header BASE may have a property named |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
457 Qmodifier_cache, which is an alist mapping modifier masks onto |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
458 modified versions of BASE. If present, this helps speed up |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
459 apply_modifiers. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
460 Lisp_Object Qmodifier_cache; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
461 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
462 /* Symbols to use for parts of windows. */ |
518 | 463 Lisp_Object Qmode_line; |
732 | 464 Lisp_Object Qvertical_line; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
465 Lisp_Object Qvertical_scroll_bar; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
466 Lisp_Object Qmenu_bar; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
467 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
468 extern Lisp_Object Qmenu_enable; |
518 | 469 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
470 Lisp_Object recursive_edit_unwind (), command_loop (); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
471 Lisp_Object Fthis_command_keys (); |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
472 Lisp_Object Qextended_command_history; |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
473 EMACS_TIME timer_check (); |
518 | 474 |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
475 extern char *x_get_keysym_name (); |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
476 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
477 Lisp_Object Qpolling_period; |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
478 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
479 /* List of absolute timers. Appears in order of next scheduled event. */ |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
480 Lisp_Object Vtimer_list; |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
481 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
482 /* List of idle time timers. Appears in order of next scheduled event. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
483 Lisp_Object Vtimer_idle_list; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
484 |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
485 /* Incremented whenever a timer is run. */ |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
486 int timers_run; |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
487 |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
488 extern Lisp_Object Vprint_level, Vprint_length; |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
489 |
648 | 490 /* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt |
491 happens. */ | |
492 EMACS_TIME *input_available_clear_time; | |
518 | 493 |
494 /* Nonzero means use SIGIO interrupts; zero means use CBREAK mode. | |
495 Default is 1 if INTERRUPT_INPUT is defined. */ | |
496 int interrupt_input; | |
497 | |
498 /* Nonzero while interrupts are temporarily deferred during redisplay. */ | |
499 int interrupts_deferred; | |
500 | |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
501 /* Nonzero means use ^S/^Q for flow control. */ |
518 | 502 int flow_control; |
503 | |
504 /* Allow m- file to inhibit use of FIONREAD. */ | |
505 #ifdef BROKEN_FIONREAD | |
506 #undef FIONREAD | |
507 #endif | |
508 | |
509 /* We are unable to use interrupts if FIONREAD is not available, | |
510 so flush SIGIO so we won't try. */ | |
511 #ifndef FIONREAD | |
512 #ifdef SIGIO | |
513 #undef SIGIO | |
514 #endif | |
515 #endif | |
516 | |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
517 /* If we support a window system, turn on the code to poll periodically |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
518 to detect C-g. It isn't actually used when doing interrupt input. */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
519 #ifdef HAVE_WINDOW_SYSTEM |
518 | 520 #define POLL_FOR_INPUT |
521 #endif | |
522 | |
523 /* Global variable declarations. */ | |
524 | |
525 /* Function for init_keyboard to call with no args (if nonzero). */ | |
526 void (*keyboard_init_hook) (); | |
527 | |
528 static int read_avail_input (); | |
529 static void get_input_pending (); | |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
530 static int readable_events (); |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
531 static Lisp_Object read_char_x_menu_prompt (); |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
532 static Lisp_Object read_char_minibuf_menu_prompt (); |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
533 static Lisp_Object make_lispy_event (); |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
534 #ifdef HAVE_MOUSE |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
535 static Lisp_Object make_lispy_movement (); |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
536 #endif |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
537 static Lisp_Object modify_event_symbol (); |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
538 static Lisp_Object make_lispy_switch_frame (); |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
539 static int parse_solitary_modifier (); |
518 | 540 |
541 /* > 0 if we are to echo keystrokes. */ | |
542 static int echo_keystrokes; | |
543 | |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
544 /* Nonzero means don't try to suspend even if the operating system seems |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
545 to support it. */ |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
546 static int cannot_suspend; |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
547 |
518 | 548 #define min(a,b) ((a)<(b)?(a):(b)) |
549 #define max(a,b) ((a)>(b)?(a):(b)) | |
550 | |
551 /* Install the string STR as the beginning of the string of echoing, | |
552 so that it serves as a prompt for the next character. | |
553 Also start echoing. */ | |
554 | |
555 echo_prompt (str) | |
556 char *str; | |
557 { | |
558 int len = strlen (str); | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
559 |
10579
a7796a68f001
* keyboard.c (kbd_buffer_frame_or_window): Delete; now in perdisplay.
Karl Heuer <kwzh@gnu.org>
parents:
10551
diff
changeset
|
560 if (len > ECHOBUFSIZE - 4) |
a7796a68f001
* keyboard.c (kbd_buffer_frame_or_window): Delete; now in perdisplay.
Karl Heuer <kwzh@gnu.org>
parents:
10551
diff
changeset
|
561 len = ECHOBUFSIZE - 4; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
562 bcopy (str, current_kboard->echobuf, len); |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
563 current_kboard->echoptr = current_kboard->echobuf + len; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
564 *current_kboard->echoptr = '\0'; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
565 |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
566 current_kboard->echo_after_prompt = len; |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
567 |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
568 echo_now (); |
518 | 569 } |
570 | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
571 /* Add C to the echo string, if echoing is going on. |
518 | 572 C can be a character, which is printed prettily ("M-C-x" and all that |
573 jazz), or a symbol, whose name is printed. */ | |
574 | |
575 echo_char (c) | |
576 Lisp_Object c; | |
577 { | |
578 extern char *push_key_description (); | |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
579 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
580 if (current_kboard->immediate_echo) |
518 | 581 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
582 char *ptr = current_kboard->echoptr; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
583 |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
584 if (ptr != current_kboard->echobuf) |
518 | 585 *ptr++ = ' '; |
586 | |
587 /* If someone has passed us a composite event, use its head symbol. */ | |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
588 c = EVENT_HEAD (c); |
518 | 589 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
590 if (INTEGERP (c)) |
518 | 591 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
592 if (ptr - current_kboard->echobuf > ECHOBUFSIZE - 6) |
518 | 593 return; |
594 | |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
595 ptr = push_key_description (XINT (c), ptr); |
518 | 596 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
597 else if (SYMBOLP (c)) |
518 | 598 { |
599 struct Lisp_String *name = XSYMBOL (c)->name; | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
600 if ((ptr - current_kboard->echobuf) + name->size + 4 > ECHOBUFSIZE) |
518 | 601 return; |
602 bcopy (name->data, ptr, name->size); | |
603 ptr += name->size; | |
604 } | |
605 | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
606 if (current_kboard->echoptr == current_kboard->echobuf |
12144 | 607 && help_char_p (c)) |
518 | 608 { |
609 strcpy (ptr, " (Type ? for further options)"); | |
610 ptr += strlen (ptr); | |
611 } | |
612 | |
613 *ptr = 0; | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
614 current_kboard->echoptr = ptr; |
518 | 615 |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
616 echo_now (); |
518 | 617 } |
618 } | |
619 | |
620 /* Temporarily add a dash to the end of the echo string if it's not | |
621 empty, so that it serves as a mini-prompt for the very next character. */ | |
622 | |
623 echo_dash () | |
624 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
625 if (!current_kboard->immediate_echo |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
626 && current_kboard->echoptr == current_kboard->echobuf) |
518 | 627 return; |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
628 /* Do nothing if we just printed a prompt. */ |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
629 if (current_kboard->echo_after_prompt |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
630 == current_kboard->echoptr - current_kboard->echobuf) |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
631 return; |
2505
c0a13d078f68
* keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents:
2482
diff
changeset
|
632 /* Do nothing if not echoing at all. */ |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
633 if (current_kboard->echoptr == 0) |
2505
c0a13d078f68
* keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents:
2482
diff
changeset
|
634 return; |
518 | 635 |
636 /* Put a dash at the end of the buffer temporarily, | |
637 but make it go away when the next character is added. */ | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
638 current_kboard->echoptr[0] = '-'; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
639 current_kboard->echoptr[1] = 0; |
518 | 640 |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
641 echo_now (); |
518 | 642 } |
643 | |
644 /* Display the current echo string, and begin echoing if not already | |
645 doing so. */ | |
646 | |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
647 echo_now () |
518 | 648 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
649 if (!current_kboard->immediate_echo) |
518 | 650 { |
651 int i; | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
652 current_kboard->immediate_echo = 1; |
518 | 653 |
654 for (i = 0; i < this_command_key_count; i++) | |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
655 { |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
656 Lisp_Object c; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
657 c = XVECTOR (this_command_keys)->contents[i]; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
658 if (! (EVENT_HAS_PARAMETERS (c) |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
659 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement))) |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
660 echo_char (c); |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
661 } |
518 | 662 echo_dash (); |
663 } | |
664 | |
665 echoing = 1; | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
666 message1_nolog (current_kboard->echobuf); |
518 | 667 echoing = 0; |
668 | |
669 if (waiting_for_input && !NILP (Vquit_flag)) | |
670 quit_throw_to_read_char (); | |
671 } | |
672 | |
673 /* Turn off echoing, for the start of a new command. */ | |
674 | |
675 cancel_echoing () | |
676 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
677 current_kboard->immediate_echo = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
678 current_kboard->echoptr = current_kboard->echobuf; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
679 current_kboard->echo_after_prompt = -1; |
13267
12d329dd9940
(read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents:
13246
diff
changeset
|
680 ok_to_echo_at_next_pause = 0; |
518 | 681 } |
682 | |
683 /* Return the length of the current echo string. */ | |
684 | |
685 static int | |
686 echo_length () | |
687 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
688 return current_kboard->echoptr - current_kboard->echobuf; |
518 | 689 } |
690 | |
691 /* Truncate the current echo message to its first LEN chars. | |
692 This and echo_char get used by read_key_sequence when the user | |
765 | 693 switches frames while entering a key sequence. */ |
518 | 694 |
695 static void | |
696 echo_truncate (len) | |
697 int len; | |
698 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
699 current_kboard->echobuf[len] = '\0'; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
700 current_kboard->echoptr = current_kboard->echobuf + len; |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
701 truncate_echo_area (len); |
518 | 702 } |
703 | |
704 | |
705 /* Functions for manipulating this_command_keys. */ | |
706 static void | |
707 add_command_key (key) | |
708 Lisp_Object key; | |
709 { | |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
710 int size = XVECTOR (this_command_keys)->size; |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
711 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
712 /* If reset-this-command-length was called recently, obey it now. |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
713 See the doc string of that function for an explanation of why. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
714 if (before_command_restore_flag) |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
715 { |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
716 this_command_key_count = before_command_key_count_1; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
717 if (this_command_key_count < this_single_command_key_start) |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
718 this_single_command_key_start = this_command_key_count; |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
719 echo_truncate (before_command_echo_length_1); |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
720 before_command_restore_flag = 0; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
721 } |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
722 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
723 if (this_command_key_count >= size) |
518 | 724 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
725 Lisp_Object new_keys; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
726 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
727 new_keys = Fmake_vector (make_number (size * 2), Qnil); |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
728 bcopy (XVECTOR (this_command_keys)->contents, |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
729 XVECTOR (new_keys)->contents, |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
730 size * sizeof (Lisp_Object)); |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
731 |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
732 this_command_keys = new_keys; |
518 | 733 } |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
734 |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
735 XVECTOR (this_command_keys)->contents[this_command_key_count++] = key; |
518 | 736 } |
737 | |
738 Lisp_Object | |
739 recursive_edit_1 () | |
740 { | |
741 int count = specpdl_ptr - specpdl; | |
742 Lisp_Object val; | |
743 | |
744 if (command_loop_level > 0) | |
745 { | |
746 specbind (Qstandard_output, Qt); | |
747 specbind (Qstandard_input, Qt); | |
748 } | |
749 | |
750 val = command_loop (); | |
751 if (EQ (val, Qt)) | |
752 Fsignal (Qquit, Qnil); | |
16181
de4b3d40218f
(recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents:
16166
diff
changeset
|
753 /* Handle throw from read_minibuf when using minibuffer |
de4b3d40218f
(recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents:
16166
diff
changeset
|
754 while it's active but we're in another window. */ |
de4b3d40218f
(recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents:
16166
diff
changeset
|
755 if (STRINGP (val)) |
de4b3d40218f
(recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents:
16166
diff
changeset
|
756 Fsignal (Qerror, Fcons (val, Qnil)); |
518 | 757 |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
758 return unbind_to (count, Qnil); |
518 | 759 } |
760 | |
761 /* When an auto-save happens, record the "time", and don't do again soon. */ | |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
762 |
518 | 763 record_auto_save () |
764 { | |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
765 last_auto_save = num_nonmacro_input_chars; |
518 | 766 } |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
767 |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
768 /* Make an auto save happen as soon as possible at command level. */ |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
769 |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
770 force_auto_save_soon () |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
771 { |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
772 last_auto_save = - auto_save_interval - 1; |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
773 |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
774 record_asynch_buffer_change (); |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
775 } |
518 | 776 |
777 DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "", | |
778 "Invoke the editor command loop recursively.\n\ | |
779 To get out of the recursive edit, a command can do `(throw 'exit nil)';\n\ | |
780 that tells this function to return.\n\ | |
781 Alternately, `(throw 'exit t)' makes this function signal an error.\n\ | |
782 This function is called by the editor initialization to begin editing.") | |
783 () | |
784 { | |
785 int count = specpdl_ptr - specpdl; | |
786 Lisp_Object val; | |
787 | |
788 command_loop_level++; | |
789 update_mode_lines = 1; | |
790 | |
791 record_unwind_protect (recursive_edit_unwind, | |
792 (command_loop_level | |
793 && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer)) | |
794 ? Fcurrent_buffer () | |
795 : Qnil); | |
796 recursive_edit_1 (); | |
797 return unbind_to (count, Qnil); | |
798 } | |
799 | |
800 Lisp_Object | |
801 recursive_edit_unwind (buffer) | |
802 Lisp_Object buffer; | |
803 { | |
804 if (!NILP (buffer)) | |
805 Fset_buffer (buffer); | |
806 | |
807 command_loop_level--; | |
808 update_mode_lines = 1; | |
809 return Qnil; | |
810 } | |
811 | |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
812 static void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
813 any_kboard_state () |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
814 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
815 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
816 #if 0 /* Theory: if there's anything in Vunread_command_events, |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
817 it will right away be read by read_key_sequence, |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
818 and then if we do switch KBOARDS, it will go into the side |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
819 queue then. So we don't need to do anything special here -- rms. */ |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
820 if (CONSP (Vunread_command_events)) |
10945
dbf1aab47502
(unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents:
10939
diff
changeset
|
821 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
822 current_kboard->kbd_queue |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
823 = nconc2 (Vunread_command_events, current_kboard->kbd_queue); |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
824 current_kboard->kbd_queue_has_data = 1; |
10945
dbf1aab47502
(unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents:
10939
diff
changeset
|
825 } |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
826 Vunread_command_events = Qnil; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
827 #endif |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
828 single_kboard = 0; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
829 #endif |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
830 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
831 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
832 /* Switch to the single-kboard state, making current_kboard |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
833 the only KBOARD from which further input is accepted. */ |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
834 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
835 void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
836 single_kboard_state () |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
837 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
838 #ifdef MULTI_KBOARD |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
839 single_kboard = 1; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
840 #endif |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
841 } |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
842 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
843 /* Maintain a stack of kboards, so other parts of Emacs |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
844 can switch temporarily to the kboard of a given frame |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
845 and then revert to the previous status. */ |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
846 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
847 struct kboard_stack |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
848 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
849 KBOARD *kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
850 struct kboard_stack *next; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
851 }; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
852 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
853 static struct kboard_stack *kboard_stack; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
854 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
855 void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
856 push_frame_kboard (f) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
857 FRAME_PTR f; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
858 { |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
859 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
860 struct kboard_stack *p |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
861 = (struct kboard_stack *) xmalloc (sizeof (struct kboard_stack)); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
862 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
863 p->next = kboard_stack; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
864 p->kboard = current_kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
865 kboard_stack = p; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
866 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
867 current_kboard = FRAME_KBOARD (f); |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
868 #endif |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
869 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
870 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
871 void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
872 pop_frame_kboard () |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
873 { |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
874 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
875 struct kboard_stack *p = kboard_stack; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
876 current_kboard = p->kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
877 kboard_stack = p->next; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
878 xfree (p); |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
879 #endif |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
880 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
881 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
882 /* Handle errors that are not handled at inner levels |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
883 by printing an error message and returning to the editor command loop. */ |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
884 |
518 | 885 Lisp_Object |
886 cmd_error (data) | |
887 Lisp_Object data; | |
888 { | |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
889 Lisp_Object old_level, old_length; |
15969
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
890 char macroerror[50]; |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
891 |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
892 if (!NILP (executing_macro)) |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
893 { |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
894 if (executing_macro_iterations == 1) |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
895 sprintf (macroerror, "After 1 kbd macro iteration: "); |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
896 else |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
897 sprintf (macroerror, "After %d kbd macro iterations: ", |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
898 executing_macro_iterations); |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
899 } |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
900 else |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
901 *macroerror = 0; |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
902 |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
903 Vstandard_output = Qt; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
904 Vstandard_input = Qt; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
905 Vexecuting_macro = Qnil; |
15982
6654a42f95e9
(cmd_error): Clear executing_macro.
Richard M. Stallman <rms@gnu.org>
parents:
15969
diff
changeset
|
906 executing_macro = Qnil; |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
907 current_kboard->Vprefix_arg = Qnil; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
908 cancel_echoing (); |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
909 |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
910 /* Avoid unquittable loop if data contains a circular list. */ |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
911 old_level = Vprint_level; |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
912 old_length = Vprint_length; |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
913 XSETFASTINT (Vprint_level, 10); |
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
914 XSETFASTINT (Vprint_length, 10); |
15969
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
915 cmd_error_internal (data, macroerror); |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
916 Vprint_level = old_level; |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
917 Vprint_length = old_length; |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
918 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
919 Vquit_flag = Qnil; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
920 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
921 Vinhibit_quit = Qnil; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
922 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
923 any_kboard_state (); |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
924 #endif |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
925 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
926 return make_number (0); |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
927 } |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
928 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
929 cmd_error_internal (data, context) |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
930 Lisp_Object data; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
931 char *context; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
932 { |
518 | 933 Lisp_Object stream; |
934 | |
935 Vquit_flag = Qnil; | |
936 Vinhibit_quit = Qt; | |
937 echo_area_glyphs = 0; | |
938 | |
765 | 939 /* If the window system or terminal frame hasn't been initialized |
518 | 940 yet, or we're not interactive, it's best to dump this message out |
941 to stderr and exit. */ | |
765 | 942 if (! FRAME_MESSAGE_BUF (selected_frame) |
518 | 943 || noninteractive) |
944 stream = Qexternal_debugging_output; | |
945 else | |
946 { | |
947 Fdiscard_input (); | |
948 bitch_at_user (); | |
949 stream = Qt; | |
950 } | |
951 | |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
952 if (context != 0) |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
953 write_string_1 (context, -1, stream); |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
954 |
13770
197ada595605
(Fcommand_execute): Allow function + args list as cmd.
Karl Heuer <kwzh@gnu.org>
parents:
13638
diff
changeset
|
955 print_error_message (data, stream); |
518 | 956 |
765 | 957 /* If the window system or terminal frame hasn't been initialized |
518 | 958 yet, or we're in -batch mode, this error should cause Emacs to exit. */ |
765 | 959 if (! FRAME_MESSAGE_BUF (selected_frame) |
518 | 960 || noninteractive) |
961 { | |
962 Fterpri (stream); | |
963 Fkill_emacs (make_number (-1)); | |
964 } | |
965 } | |
966 | |
967 Lisp_Object command_loop_1 (); | |
968 Lisp_Object command_loop_2 (); | |
969 Lisp_Object top_level_1 (); | |
970 | |
971 /* Entry to editor-command-loop. | |
972 This level has the catches for exiting/returning to editor command loop. | |
973 It returns nil to exit recursive edit, t to abort it. */ | |
974 | |
975 Lisp_Object | |
976 command_loop () | |
977 { | |
978 if (command_loop_level > 0 || minibuf_level > 0) | |
979 { | |
980 return internal_catch (Qexit, command_loop_2, Qnil); | |
981 } | |
982 else | |
983 while (1) | |
984 { | |
985 internal_catch (Qtop_level, top_level_1, Qnil); | |
986 internal_catch (Qtop_level, command_loop_2, Qnil); | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
987 |
518 | 988 /* End of file in -batch run causes exit here. */ |
989 if (noninteractive) | |
990 Fkill_emacs (Qt); | |
991 } | |
992 } | |
993 | |
994 /* Here we catch errors in execution of commands within the | |
995 editing loop, and reenter the editing loop. | |
996 When there is an error, cmd_error runs and returns a non-nil | |
997 value to us. A value of nil means that cmd_loop_1 itself | |
998 returned due to end of file (or end of kbd macro). */ | |
999 | |
1000 Lisp_Object | |
1001 command_loop_2 () | |
1002 { | |
1003 register Lisp_Object val; | |
1004 | |
1005 do | |
1006 val = internal_condition_case (command_loop_1, Qerror, cmd_error); | |
1007 while (!NILP (val)); | |
1008 | |
1009 return Qnil; | |
1010 } | |
1011 | |
1012 Lisp_Object | |
1013 top_level_2 () | |
1014 { | |
1015 return Feval (Vtop_level); | |
1016 } | |
1017 | |
1018 Lisp_Object | |
1019 top_level_1 () | |
1020 { | |
1021 /* On entry to the outer level, run the startup file */ | |
1022 if (!NILP (Vtop_level)) | |
1023 internal_condition_case (top_level_2, Qerror, cmd_error); | |
1024 else if (!NILP (Vpurify_flag)) | |
1025 message ("Bare impure Emacs (standard Lisp code not loaded)"); | |
1026 else | |
1027 message ("Bare Emacs (standard Lisp code not loaded)"); | |
1028 return Qnil; | |
1029 } | |
1030 | |
1031 DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "", | |
1032 "Exit all recursive editing levels.") | |
1033 () | |
1034 { | |
1035 Fthrow (Qtop_level, Qnil); | |
1036 } | |
1037 | |
1038 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "", | |
1039 "Exit from the innermost recursive edit or minibuffer.") | |
1040 () | |
1041 { | |
1042 if (command_loop_level > 0 || minibuf_level > 0) | |
1043 Fthrow (Qexit, Qnil); | |
1044 | |
1045 error ("No recursive edit is in progress"); | |
1046 } | |
1047 | |
1048 DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0, 0, "", | |
1049 "Abort the command that requested this recursive edit or minibuffer input.") | |
1050 () | |
1051 { | |
1052 if (command_loop_level > 0 || minibuf_level > 0) | |
1053 Fthrow (Qexit, Qt); | |
1054 | |
1055 error ("No recursive edit is in progress"); | |
1056 } | |
1057 | |
1058 /* This is the actual command reading loop, | |
1059 sans error-handling encapsulation. */ | |
1060 | |
1061 Lisp_Object Fcommand_execute (); | |
1062 static int read_key_sequence (); | |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
1063 void safe_run_hooks (); |
518 | 1064 |
1065 Lisp_Object | |
1066 command_loop_1 () | |
1067 { | |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1068 Lisp_Object cmd, tem; |
518 | 1069 int lose; |
1070 int nonundocount; | |
1071 Lisp_Object keybuf[30]; | |
1072 int i; | |
1073 int no_redisplay; | |
1074 int no_direct; | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1075 int prev_modiff; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1076 struct buffer *prev_buffer; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1077 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1078 int was_locked = single_kboard; |
10820
5bef43a53c01
(display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents:
10800
diff
changeset
|
1079 #endif |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1080 |
12227
24328f2358a1
(command_loop_1): Clear prefix arg (undo Feb 1 change).
Karl Heuer <kwzh@gnu.org>
parents:
12185
diff
changeset
|
1081 current_kboard->Vprefix_arg = Qnil; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1082 Vdeactivate_mark = Qnil; |
518 | 1083 waiting_for_input = 0; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1084 cancel_echoing (); |
518 | 1085 |
1086 nonundocount = 0; | |
1087 no_redisplay = 0; | |
1088 this_command_key_count = 0; | |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
1089 this_single_command_key_start = 0; |
518 | 1090 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1091 /* Make sure this hook runs after commands that get errors and |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1092 throw to top level. */ |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1093 /* Note that the value cell will never directly contain nil |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1094 if the symbol is a local variable. */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
1095 if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks)) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1096 safe_run_hooks (Qpost_command_hook); |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1097 |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
1098 if (!NILP (Vdeferred_action_list)) |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
1099 call0 (Vdeferred_action_function); |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
1100 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
1101 if (!NILP (Vpost_command_idle_hook) && !NILP (Vrun_hooks)) |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1102 { |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1103 if (NILP (Vunread_command_events) |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1104 && NILP (Vexecuting_macro) |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1105 && !NILP (sit_for (0, post_command_idle_delay, 0, 1))) |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1106 safe_run_hooks (Qpost_command_idle_hook); |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1107 } |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1108 |
6290
6ecf8ea4bd8d
(command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents:
6208
diff
changeset
|
1109 /* Do this after running Vpost_command_hook, for consistency. */ |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
1110 current_kboard->Vlast_command = this_command; |
6290
6ecf8ea4bd8d
(command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents:
6208
diff
changeset
|
1111 |
518 | 1112 while (1) |
1113 { | |
1114 /* Make sure the current window's buffer is selected. */ | |
1115 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer) | |
1116 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer)); | |
1117 | |
1118 /* Display any malloc warning that just came out. Use while because | |
1119 displaying one warning can cause another. */ | |
1120 | |
1121 while (pending_malloc_warning) | |
1122 display_malloc_warning (); | |
1123 | |
1124 no_direct = 0; | |
1125 | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1126 Vdeactivate_mark = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1127 |
518 | 1128 /* If minibuffer on and echo area in use, |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3538
diff
changeset
|
1129 wait 2 sec and redraw minibuffer. */ |
518 | 1130 |
12628
397f6d4852ff
(command_loop_1): Clear echo area after 2 sec
Richard M. Stallman <rms@gnu.org>
parents:
12571
diff
changeset
|
1131 if (minibuf_level && echo_area_glyphs |
397f6d4852ff
(command_loop_1): Clear echo area after 2 sec
Richard M. Stallman <rms@gnu.org>
parents:
12571
diff
changeset
|
1132 && EQ (minibuf_window, echo_area_window)) |
518 | 1133 { |
1097
d9efc1c88574
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents:
1083
diff
changeset
|
1134 /* Bind inhibit-quit to t so that C-g gets read in |
d9efc1c88574
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents:
1083
diff
changeset
|
1135 rather than quitting back to the minibuffer. */ |
d9efc1c88574
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents:
1083
diff
changeset
|
1136 int count = specpdl_ptr - specpdl; |
d9efc1c88574
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents:
1083
diff
changeset
|
1137 specbind (Qinhibit_quit, Qt); |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
1138 |
518 | 1139 Fsit_for (make_number (2), Qnil, Qnil); |
14666
4edbb03c523b
(command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents:
14612
diff
changeset
|
1140 /* Clear the echo area. */ |
4edbb03c523b
(command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents:
14612
diff
changeset
|
1141 message2 (0); |
4edbb03c523b
(command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents:
14612
diff
changeset
|
1142 |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
1143 unbind_to (count, Qnil); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
1144 |
14666
4edbb03c523b
(command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents:
14612
diff
changeset
|
1145 /* If a C-g came in before, treat it as input now. */ |
518 | 1146 if (!NILP (Vquit_flag)) |
1147 { | |
1148 Vquit_flag = Qnil; | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1149 Vunread_command_events = Fcons (make_number (quit_char), Qnil); |
518 | 1150 } |
1151 } | |
1152 | |
1153 #ifdef C_ALLOCA | |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1154 alloca (0); /* Cause a garbage collection now */ |
518 | 1155 /* Since we can free the most stuff here. */ |
1156 #endif /* C_ALLOCA */ | |
1157 | |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1158 #if 0 |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1159 /* Select the frame that the last event came from. Usually, |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1160 switch-frame events will take care of this, but if some lisp |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1161 code swallows a switch-frame event, we'll fix things up here. |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1162 Is this a good idea? */ |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1163 if (FRAMEP (internal_last_event_frame) |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1164 && XFRAME (internal_last_event_frame) != selected_frame) |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1165 Fselect_frame (internal_last_event_frame, Qnil); |
518 | 1166 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1167 /* If it has changed current-menubar from previous value, |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1168 really recompute the menubar from the value. */ |
4315
9c6571823ab8
(command_loop_1): Call Qrecompute_lucid_menubar only if defined.
Richard M. Stallman <rms@gnu.org>
parents:
4282
diff
changeset
|
1169 if (! NILP (Vlucid_menu_bar_dirty_flag) |
9c6571823ab8
(command_loop_1): Call Qrecompute_lucid_menubar only if defined.
Richard M. Stallman <rms@gnu.org>
parents:
4282
diff
changeset
|
1170 && !NILP (Ffboundp (Qrecompute_lucid_menubar))) |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1171 call0 (Qrecompute_lucid_menubar); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1172 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1173 before_command_key_count = this_command_key_count; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1174 before_command_echo_length = echo_length (); |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1175 |
13014
077bb437f649
(command_loop_1): Set this_command to nil before reading a command.
Richard M. Stallman <rms@gnu.org>
parents:
12979
diff
changeset
|
1176 this_command = Qnil; |
077bb437f649
(command_loop_1): Set this_command to nil before reading a command.
Richard M. Stallman <rms@gnu.org>
parents:
12979
diff
changeset
|
1177 |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1178 /* Read next key sequence; i gets its length. */ |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
1179 i = read_key_sequence (keybuf, sizeof keybuf / sizeof keybuf[0], |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
1180 Qnil, 0, 1); |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1181 |
16504
76d22a4f6959
(command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents:
16325
diff
changeset
|
1182 /* A filter may have run while we were reading the input. */ |
76d22a4f6959
(command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents:
16325
diff
changeset
|
1183 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer) |
76d22a4f6959
(command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents:
16325
diff
changeset
|
1184 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer)); |
76d22a4f6959
(command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents:
16325
diff
changeset
|
1185 |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1186 ++num_input_keys; |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1187 |
518 | 1188 /* Now we have read a key sequence of length I, |
1189 or else I is 0 and we found end of file. */ | |
1190 | |
1191 if (i == 0) /* End of file -- happens only in */ | |
1192 return Qnil; /* a kbd macro, at the end. */ | |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1193 /* -1 means read_key_sequence got a menu that was rejected. |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1194 Just loop around and read another command. */ |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1195 if (i == -1) |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1196 { |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1197 cancel_echoing (); |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1198 this_command_key_count = 0; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
1199 this_single_command_key_start = 0; |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1200 goto finalize; |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1201 } |
518 | 1202 |
1203 last_command_char = keybuf[i - 1]; | |
1204 | |
2406
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1205 /* If the previous command tried to force a specific window-start, |
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1206 forget about that, in case this command moves point far away |
11174
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1207 from that position. But also throw away beg_unchanged and |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1208 end_unchanged information in that case, so that redisplay will |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1209 update the whole window properly. */ |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1210 if (!NILP (XWINDOW (selected_window)->force_start)) |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1211 { |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1212 XWINDOW (selected_window)->force_start = Qnil; |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1213 beg_unchanged = end_unchanged = 0; |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1214 } |
2406
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1215 |
518 | 1216 cmd = read_key_sequence_cmd; |
1217 if (!NILP (Vexecuting_macro)) | |
1218 { | |
1219 if (!NILP (Vquit_flag)) | |
1220 { | |
1221 Vexecuting_macro = Qt; | |
1222 QUIT; /* Make some noise. */ | |
1223 /* Will return since macro now empty. */ | |
1224 } | |
1225 } | |
1226 | |
1227 /* Do redisplay processing after this command except in special | |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
1228 cases identified below that set no_redisplay to 1. |
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
1229 (actually, there's currently no way to prevent the redisplay, |
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
1230 and no_redisplay is ignored. |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
1231 Perhaps someday we will really implement it.) */ |
518 | 1232 no_redisplay = 0; |
1233 | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1234 prev_buffer = current_buffer; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1235 prev_modiff = MODIFF; |
6204
ba6268a3dee9
(command_loop_1): Fix misplaced assignment of last_point_position.
Karl Heuer <kwzh@gnu.org>
parents:
6178
diff
changeset
|
1236 last_point_position = PT; |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
1237 XSETBUFFER (last_point_position_buffer, prev_buffer); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1238 |
518 | 1239 /* Execute the command. */ |
1240 | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1241 this_command = cmd; |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1242 /* Note that the value cell will never directly contain nil |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1243 if the symbol is a local variable. */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
1244 if (!NILP (Vpre_command_hook) && !NILP (Vrun_hooks)) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1245 safe_run_hooks (Qpre_command_hook); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1246 |
2924
6e233798a3f7
(read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents:
2898
diff
changeset
|
1247 if (NILP (this_command)) |
518 | 1248 { |
1249 /* nil means key is undefined. */ | |
1250 bitch_at_user (); | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1251 current_kboard->defining_kbd_macro = Qnil; |
518 | 1252 update_mode_lines = 1; |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1253 current_kboard->Vprefix_arg = Qnil; |
518 | 1254 } |
1255 else | |
1256 { | |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1257 if (NILP (current_kboard->Vprefix_arg) && ! no_direct) |
518 | 1258 { |
1259 /* Recognize some common commands in common situations and | |
1260 do them directly. */ | |
7427 | 1261 if (EQ (this_command, Qforward_char) && PT < ZV) |
518 | 1262 { |
13189
104d1e97803c
(command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents:
13108
diff
changeset
|
1263 struct Lisp_Char_Table *dp |
518 | 1264 = window_display_table (XWINDOW (selected_window)); |
7427 | 1265 lose = FETCH_CHAR (PT); |
1266 SET_PT (PT + 1); | |
2097
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1267 if ((dp |
5352
6b91471d9f0f
(command_loop_1): Test of whether disp tab elt
Richard M. Stallman <rms@gnu.org>
parents:
5225
diff
changeset
|
1268 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose)) |
8238
3b4a76dcecf6
(command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents:
8169
diff
changeset
|
1269 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1 |
3b4a76dcecf6
(command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents:
8169
diff
changeset
|
1270 : (NILP (DISP_CHAR_VECTOR (dp, lose)) |
3b4a76dcecf6
(command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents:
8169
diff
changeset
|
1271 && (lose >= 0x20 && lose < 0x7f))) |
2097
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1272 : (lose >= 0x20 && lose < 0x7f)) |
518 | 1273 && (XFASTINT (XWINDOW (selected_window)->last_modified) |
1274 >= MODIFF) | |
16196
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1275 && (XFASTINT (XWINDOW (selected_window)->last_overlay_modified) |
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1276 >= OVERLAY_MODIFF) |
518 | 1277 && (XFASTINT (XWINDOW (selected_window)->last_point) |
7427 | 1278 == PT - 1) |
518 | 1279 && !windows_or_buffers_changed |
1280 && EQ (current_buffer->selective_display, Qnil) | |
1281 && !detect_input_pending () | |
15921
11f4f96a71d2
(command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents:
15716
diff
changeset
|
1282 && NILP (XWINDOW (selected_window)->column_number_displayed) |
518 | 1283 && NILP (Vexecuting_macro)) |
1284 no_redisplay = direct_output_forward_char (1); | |
1285 goto directly_done; | |
1286 } | |
7427 | 1287 else if (EQ (this_command, Qbackward_char) && PT > BEGV) |
518 | 1288 { |
13189
104d1e97803c
(command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents:
13108
diff
changeset
|
1289 struct Lisp_Char_Table *dp |
518 | 1290 = window_display_table (XWINDOW (selected_window)); |
7427 | 1291 SET_PT (PT - 1); |
1292 lose = FETCH_CHAR (PT); | |
2097
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1293 if ((dp |
7532
996928472982
(command_loop_1): Fix test for valid display table entry,
Richard M. Stallman <rms@gnu.org>
parents:
7502
diff
changeset
|
1294 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose)) |
8238
3b4a76dcecf6
(command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents:
8169
diff
changeset
|
1295 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1 |
3b4a76dcecf6
(command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents:
8169
diff
changeset
|
1296 : (NILP (DISP_CHAR_VECTOR (dp, lose)) |
3b4a76dcecf6
(command_loop_1): Do direct output for cursor motion
Richard M. Stallman <rms@gnu.org>
parents:
8169
diff
changeset
|
1297 && (lose >= 0x20 && lose < 0x7f))) |
2097
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1298 : (lose >= 0x20 && lose < 0x7f)) |
518 | 1299 && (XFASTINT (XWINDOW (selected_window)->last_modified) |
1300 >= MODIFF) | |
16196
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1301 && (XFASTINT (XWINDOW (selected_window)->last_overlay_modified) |
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1302 >= OVERLAY_MODIFF) |
518 | 1303 && (XFASTINT (XWINDOW (selected_window)->last_point) |
7427 | 1304 == PT + 1) |
518 | 1305 && !windows_or_buffers_changed |
1306 && EQ (current_buffer->selective_display, Qnil) | |
1307 && !detect_input_pending () | |
15921
11f4f96a71d2
(command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents:
15716
diff
changeset
|
1308 && NILP (XWINDOW (selected_window)->column_number_displayed) |
518 | 1309 && NILP (Vexecuting_macro)) |
1310 no_redisplay = direct_output_forward_char (-1); | |
1311 goto directly_done; | |
1312 } | |
2924
6e233798a3f7
(read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents:
2898
diff
changeset
|
1313 else if (EQ (this_command, Qself_insert_command) |
518 | 1314 /* Try this optimization only on ascii keystrokes. */ |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1315 && INTEGERP (last_command_char)) |
518 | 1316 { |
1317 unsigned char c = XINT (last_command_char); | |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1318 int value; |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1319 |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1320 if (NILP (Vexecuting_macro) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1321 && !EQ (minibuf_window, selected_window)) |
518 | 1322 { |
1323 if (!nonundocount || nonundocount >= 20) | |
1324 { | |
1325 Fundo_boundary (); | |
1326 nonundocount = 0; | |
1327 } | |
1328 nonundocount++; | |
1329 } | |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1330 lose = ((XFASTINT (XWINDOW (selected_window)->last_modified) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1331 < MODIFF) |
16196
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1332 || (XFASTINT (XWINDOW (selected_window)->last_overlay_modified) |
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1333 < OVERLAY_MODIFF) |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1334 || (XFASTINT (XWINDOW (selected_window)->last_point) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1335 != PT) |
10309
fe2243b3186b
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10275
diff
changeset
|
1336 || MODIFF <= SAVE_MODIFF |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1337 || windows_or_buffers_changed |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1338 || !EQ (current_buffer->selective_display, Qnil) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1339 || detect_input_pending () |
15921
11f4f96a71d2
(command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents:
15716
diff
changeset
|
1340 || !NILP (XWINDOW (selected_window)->column_number_displayed) |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1341 || !NILP (Vexecuting_macro)); |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1342 value = internal_self_insert (c, 0); |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1343 if (value) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1344 lose = 1; |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1345 if (value == 2) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1346 nonundocount = 0; |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1347 |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1348 if (!lose |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1349 && (PT == ZV || FETCH_CHAR (PT) == '\n')) |
518 | 1350 { |
13189
104d1e97803c
(command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents:
13108
diff
changeset
|
1351 struct Lisp_Char_Table *dp |
518 | 1352 = window_display_table (XWINDOW (selected_window)); |
3677
597bde558c91
(read_char): Set c properly as a Lisp int.
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
1353 int lose = c; |
2097
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1354 |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1355 if (dp) |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1356 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
1357 Lisp_Object obj; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
1358 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
1359 obj = DISP_CHAR_VECTOR (dp, lose); |
7787
add6e866d6a2
(command_loop_1): Properly handle nil in display table.
Richard M. Stallman <rms@gnu.org>
parents:
7758
diff
changeset
|
1360 if (NILP (obj)) |
7828
cfe470ebd714
(command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents:
7807
diff
changeset
|
1361 { |
cfe470ebd714
(command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents:
7807
diff
changeset
|
1362 /* Do it only for char codes |
cfe470ebd714
(command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents:
7807
diff
changeset
|
1363 that by default display as themselves. */ |
cfe470ebd714
(command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents:
7807
diff
changeset
|
1364 if (lose >= 0x20 && lose <= 0x7e) |
cfe470ebd714
(command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents:
7807
diff
changeset
|
1365 no_redisplay = direct_output_for_insert (lose); |
cfe470ebd714
(command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents:
7807
diff
changeset
|
1366 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1367 else if (VECTORP (obj) |
7787
add6e866d6a2
(command_loop_1): Properly handle nil in display table.
Richard M. Stallman <rms@gnu.org>
parents:
7758
diff
changeset
|
1368 && XVECTOR (obj)->size == 1 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1369 && (obj = XVECTOR (obj)->contents[0], |
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1370 INTEGERP (obj)) |
7787
add6e866d6a2
(command_loop_1): Properly handle nil in display table.
Richard M. Stallman <rms@gnu.org>
parents:
7758
diff
changeset
|
1371 /* Insist face not specified in glyph. */ |
add6e866d6a2
(command_loop_1): Properly handle nil in display table.
Richard M. Stallman <rms@gnu.org>
parents:
7758
diff
changeset
|
1372 && (XINT (obj) & ((-1) << 8)) == 0) |
7758
ce538d63b1e9
(command_loop_1): Allow direct output for insert
Richard M. Stallman <rms@gnu.org>
parents:
7727
diff
changeset
|
1373 no_redisplay |
ce538d63b1e9
(command_loop_1): Allow direct output for insert
Richard M. Stallman <rms@gnu.org>
parents:
7727
diff
changeset
|
1374 = direct_output_for_insert (XINT (obj)); |
2097
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1375 } |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1376 else |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1377 { |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1378 if (lose >= 0x20 && lose <= 0x7e) |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1379 no_redisplay = direct_output_for_insert (lose); |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1380 } |
518 | 1381 } |
1382 goto directly_done; | |
1383 } | |
1384 } | |
1385 | |
1386 /* Here for a command that isn't executed directly */ | |
1387 | |
1388 nonundocount = 0; | |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1389 if (NILP (current_kboard->Vprefix_arg)) |
518 | 1390 Fundo_boundary (); |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
1391 Fcommand_execute (this_command, Qnil, Qnil, Qnil); |
518 | 1392 |
1393 } | |
547 | 1394 directly_done: ; |
518 | 1395 |
1396 /* If there is a prefix argument, | |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
1397 1) We don't want Vlast_command to be ``universal-argument'' |
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
1398 (that would be dumb), so don't set Vlast_command, |
518 | 1399 2) we want to leave echoing on so that the prefix will be |
1400 echoed as part of this key sequence, so don't call | |
1401 cancel_echoing, and | |
1402 3) we want to leave this_command_key_count non-zero, so that | |
1403 read_char will realize that it is re-reading a character, and | |
12264 | 1404 not echo it a second time. |
1405 | |
1406 If the command didn't actually create a prefix arg, | |
1407 but is merely a frame event that is transparent to prefix args, | |
1408 then the above doesn't apply. */ | |
1409 if (NILP (current_kboard->Vprefix_arg) || CONSP (last_command_char)) | |
518 | 1410 { |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
1411 current_kboard->Vlast_command = this_command; |
518 | 1412 cancel_echoing (); |
1413 this_command_key_count = 0; | |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
1414 this_single_command_key_start = 0; |
518 | 1415 } |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1416 |
15946
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1417 /* Note that the value cell will never directly contain nil |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1418 if the symbol is a local variable. */ |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1419 if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks)) |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1420 safe_run_hooks (Qpost_command_hook); |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1421 |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1422 if (!NILP (Vdeferred_action_list)) |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1423 safe_run_hooks (Qdeferred_action_function); |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1424 |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1425 if (!NILP (Vpost_command_idle_hook) && !NILP (Vrun_hooks)) |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1426 { |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1427 if (NILP (Vunread_command_events) |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1428 && NILP (Vexecuting_macro) |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1429 && !NILP (sit_for (0, post_command_idle_delay, 0, 1))) |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1430 safe_run_hooks (Qpost_command_idle_hook); |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1431 } |
966efa980335
(command_loop_1): Cancel echoing etc.
Richard M. Stallman <rms@gnu.org>
parents:
15921
diff
changeset
|
1432 |
6208
db4139d43f8a
(command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents:
6204
diff
changeset
|
1433 if (!NILP (current_buffer->mark_active) && !NILP (Vrun_hooks)) |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1434 { |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1435 if (!NILP (Vdeactivate_mark) && !NILP (Vtransient_mark_mode)) |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1436 { |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1437 current_buffer->mark_active = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1438 call1 (Vrun_hooks, intern ("deactivate-mark-hook")); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1439 } |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1440 else if (current_buffer != prev_buffer || MODIFF != prev_modiff) |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1441 call1 (Vrun_hooks, intern ("activate-mark-hook")); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1442 } |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1443 |
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1444 finalize: |
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1445 /* Install chars successfully executed in kbd macro. */ |
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1446 |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1447 if (!NILP (current_kboard->defining_kbd_macro) |
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1448 && NILP (current_kboard->Vprefix_arg)) |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1449 finalize_kbd_macro_chars (); |
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1450 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1451 #ifdef MULTI_KBOARD |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
1452 if (!was_locked) |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1453 any_kboard_state (); |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1454 #endif |
518 | 1455 } |
1456 } | |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1457 |
11540
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1458 /* Subroutine for safe_run_hooks: run the hook HOOK. */ |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1459 |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1460 static Lisp_Object |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1461 safe_run_hooks_1 (hook) |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1462 Lisp_Object hook; |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1463 { |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1464 return call1 (Vrun_hooks, Vinhibit_quit); |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1465 } |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1466 |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1467 /* Subroutine for safe_run_hooks: handle an error by clearing out the hook. */ |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1468 |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1469 static Lisp_Object |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1470 safe_run_hooks_error (data) |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1471 Lisp_Object data; |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1472 { |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1473 Fset (Vinhibit_quit, Qnil); |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1474 } |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1475 |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1476 /* If we get an error while running the hook, cause the hook variable |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1477 to be nil. Also inhibit quits, so that C-g won't cause the hook |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1478 to mysteriously evaporate. */ |
11540
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1479 |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
1480 void |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1481 safe_run_hooks (hook) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1482 Lisp_Object hook; |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1483 { |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
1484 Lisp_Object value; |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1485 int count = specpdl_ptr - specpdl; |
11540
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1486 specbind (Qinhibit_quit, hook); |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1487 |
14219
22324381ef74
(safe_run_hooks): Use Qt, not Qerror, to avoid running the debugger.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
1488 internal_condition_case (safe_run_hooks_1, Qt, safe_run_hooks_error); |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1489 |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1490 unbind_to (count, Qnil); |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1491 } |
518 | 1492 |
1493 /* Number of seconds between polling for input. */ | |
1494 int polling_period; | |
1495 | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3538
diff
changeset
|
1496 /* Nonzero means polling for input is temporarily suppressed. */ |
518 | 1497 int poll_suppress_count; |
1498 | |
8653
07cc798f5cab
(polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
8589
diff
changeset
|
1499 /* Nonzero if polling_for_input is actually being used. */ |
07cc798f5cab
(polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
8589
diff
changeset
|
1500 int polling_for_input; |
07cc798f5cab
(polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
8589
diff
changeset
|
1501 |
518 | 1502 #ifdef POLL_FOR_INPUT |
1503 | |
1504 /* Handle an alarm once each second and read pending input | |
1505 so as to handle a C-g if it comces in. */ | |
1506 | |
1507 SIGTYPE | |
10746
ea87e4d9c8ea
(input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents:
10701
diff
changeset
|
1508 input_poll_signal (signalnum) /* If we don't have an argument, */ |
ea87e4d9c8ea
(input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents:
10701
diff
changeset
|
1509 int signalnum; /* some compilers complain in signal calls. */ |
518 | 1510 { |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
1511 /* This causes the call to start_polling at the end |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
1512 to do its job. It also arranges for a quit or error |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
1513 from within read_avail_input to resume polling. */ |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
1514 poll_suppress_count++; |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
1515 if (interrupt_input_blocked == 0 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
1516 && !waiting_for_input) |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
1517 read_avail_input (0); |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
1518 /* Turn on the SIGALRM handler and request another alarm. */ |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
1519 start_polling (); |
518 | 1520 } |
1521 | |
1522 #endif | |
1523 | |
1524 /* Begin signals to poll for input, if they are appropriate. | |
1525 This function is called unconditionally from various places. */ | |
1526 | |
1527 start_polling () | |
1528 { | |
1529 #ifdef POLL_FOR_INPUT | |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
1530 if (read_socket_hook && !interrupt_input) |
518 | 1531 { |
1532 poll_suppress_count--; | |
1533 if (poll_suppress_count == 0) | |
1534 { | |
1535 signal (SIGALRM, input_poll_signal); | |
1536 polling_for_input = 1; | |
1537 alarm (polling_period); | |
1538 } | |
1539 } | |
1540 #endif | |
1541 } | |
1542 | |
8673
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1543 /* Nonzero if we are using polling to handle input asynchronously. */ |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1544 |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1545 int |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1546 input_polling_used () |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1547 { |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1548 #ifdef POLL_FOR_INPUT |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1549 return read_socket_hook && !interrupt_input; |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1550 #else |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1551 return 0; |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1552 #endif |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1553 } |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1554 |
518 | 1555 /* Turn off polling. */ |
1556 | |
1557 stop_polling () | |
1558 { | |
1559 #ifdef POLL_FOR_INPUT | |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
1560 if (read_socket_hook && !interrupt_input) |
518 | 1561 { |
1562 if (poll_suppress_count == 0) | |
1563 { | |
1564 polling_for_input = 0; | |
1565 alarm (0); | |
1566 } | |
1567 poll_suppress_count++; | |
1568 } | |
1569 #endif | |
1570 } | |
4475
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1571 |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1572 /* Set the value of poll_suppress_count to COUNT |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1573 and start or stop polling accordingly. */ |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1574 |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1575 void |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1576 set_poll_suppress_count (count) |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1577 int count; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1578 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1579 #ifdef POLL_FOR_INPUT |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1580 if (count == 0 && poll_suppress_count != 0) |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1581 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1582 poll_suppress_count = 1; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1583 start_polling (); |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1584 } |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1585 else if (count != 0 && poll_suppress_count == 0) |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1586 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1587 stop_polling (); |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1588 } |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1589 poll_suppress_count = count; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1590 #endif |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1591 } |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1592 |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1593 /* Bind polling_period to a value at least N. |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1594 But don't decrease it. */ |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1595 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1596 bind_polling_period (n) |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1597 int n; |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1598 { |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1599 #ifdef POLL_FOR_INPUT |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1600 int new = polling_period; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1601 |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1602 if (n > new) |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1603 new = n; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1604 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1605 stop_polling (); |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1606 specbind (Qpolling_period, make_number (new)); |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1607 /* Start a new alarm with the new period. */ |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1608 start_polling (); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1609 #endif |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1610 } |
518 | 1611 |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
1612 /* Apply the control modifier to CHARACTER. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
1613 |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1614 int |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1615 make_ctrl_char (c) |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1616 int c; |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1617 { |
2954
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1618 /* Save the upper bits here. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1619 int upper = c & ~0177; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1620 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1621 c &= 0177; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1622 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1623 /* Everything in the columns containing the upper-case letters |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1624 denotes a control character. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1625 if (c >= 0100 && c < 0140) |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1626 { |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1627 int oc = c; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1628 c &= ~0140; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1629 /* Set the shift modifier for a control char |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1630 made from a shifted letter. But only for letters! */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1631 if (oc >= 'A' && oc <= 'Z') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1632 c |= shift_modifier; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1633 } |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1634 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1635 /* The lower-case letters denote control characters too. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1636 else if (c >= 'a' && c <= 'z') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1637 c &= ~0140; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1638 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1639 /* Include the bits for control and shift |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1640 only if the basic ASCII code can't indicate them. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1641 else if (c >= ' ') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1642 c |= ctrl_modifier; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1643 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1644 /* Replace the high bits. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1645 c |= (upper & ~ctrl_modifier); |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1646 |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1647 return c; |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1648 } |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1649 |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1650 |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1651 |
518 | 1652 /* Input of single characters from keyboard */ |
1653 | |
1654 Lisp_Object print_help (); | |
1655 static Lisp_Object kbd_buffer_get_event (); | |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
1656 static void record_char (); |
518 | 1657 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1658 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1659 static jmp_buf wrong_kboard_jmpbuf; |
10820
5bef43a53c01
(display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents:
10800
diff
changeset
|
1660 #endif |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
1661 |
518 | 1662 /* read a character from the keyboard; call the redisplay if needed */ |
1663 /* commandflag 0 means do not do auto-saving, but do do redisplay. | |
1664 -1 means do not do redisplay, but do do autosaving. | |
1665 1 means do both. */ | |
1666 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1667 /* The arguments MAPS and NMAPS are for menu prompting. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1668 MAPS is an array of keymaps; NMAPS is the length of MAPS. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1669 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1670 PREV_EVENT is the previous input event, or nil if we are reading |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1671 the first event of a key sequence. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1672 |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
1673 If USED_MOUSE_MENU is non-null, then we set *USED_MOUSE_MENU to 1 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
1674 if we used a mouse menu to read the input, or zero otherwise. If |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
1675 USED_MOUSE_MENU is null, we don't dereference it. |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1676 |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1677 Value is t if we showed a menu and the user rejected it. */ |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1678 |
518 | 1679 Lisp_Object |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1680 read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu) |
518 | 1681 int commandflag; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1682 int nmaps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1683 Lisp_Object *maps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1684 Lisp_Object prev_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1685 int *used_mouse_menu; |
518 | 1686 { |
1687 register Lisp_Object c; | |
1688 int count; | |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1689 jmp_buf local_getcjmp; |
518 | 1690 jmp_buf save_jump; |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1691 int key_already_recorded = 0; |
12476
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
1692 Lisp_Object tem, save; |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
1693 Lisp_Object also_record; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
1694 also_record = Qnil; |
518 | 1695 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1696 before_command_key_count = this_command_key_count; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1697 before_command_echo_length = echo_length (); |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1698 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
1699 retry: |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
1700 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1701 if (CONSP (Vunread_command_events)) |
518 | 1702 { |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1703 c = XCONS (Vunread_command_events)->car; |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1704 Vunread_command_events = XCONS (Vunread_command_events)->cdr; |
518 | 1705 |
13638
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
1706 /* Undo what read_char_x_menu_prompt did when it unread |
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
1707 additional keys returned by Fx_popup_menu. */ |
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
1708 if (CONSP (c) |
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
1709 && (SYMBOLP (XCONS (c)->car) || INTEGERP (XCONS (c)->car)) |
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
1710 && NILP (XCONS (c)->cdr)) |
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
1711 c = XCONS (c)->car; |
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
1712 |
518 | 1713 if (this_command_key_count == 0) |
1714 goto reread_first; | |
1715 else | |
1716 goto reread; | |
1717 } | |
1718 | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1719 if (unread_command_char != -1) |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1720 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
1721 XSETINT (c, unread_command_char); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1722 unread_command_char = -1; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1723 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1724 if (this_command_key_count == 0) |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1725 goto reread_first; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1726 else |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1727 goto reread; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1728 } |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1729 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1730 /* If there is no function key translated before |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1731 reset-this-command-lengths takes effect, forget about it. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1732 before_command_restore_flag = 0; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1733 |
518 | 1734 if (!NILP (Vexecuting_macro)) |
1735 { | |
1239
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
1736 /* We set this to Qmacro; since that's not a frame, nobody will |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
1737 try to switch frames on us, and the selected window will |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
1738 remain unchanged. |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
1739 |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
1740 Since this event came from a macro, it would be misleading to |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3538
diff
changeset
|
1741 leave internal_last_event_frame set to wherever the last |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1742 real event came from. Normally, a switch-frame event selects |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1743 internal_last_event_frame after each command is read, but |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1744 events read from a macro should never cause a new frame to be |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1745 selected. */ |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
1746 Vlast_event_frame = internal_last_event_frame = Qmacro; |
1239
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
1747 |
2719
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
1748 /* Exit the macro if we are at the end. |
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
1749 Also, some things replace the macro with t |
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
1750 to force an early exit. */ |
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
1751 if (EQ (Vexecuting_macro, Qt) |
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
1752 || executing_macro_index >= XFASTINT (Flength (Vexecuting_macro))) |
518 | 1753 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
1754 XSETINT (c, -1); |
518 | 1755 return c; |
1756 } | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1757 |
518 | 1758 c = Faref (Vexecuting_macro, make_number (executing_macro_index)); |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1759 if (STRINGP (Vexecuting_macro) |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1760 && (XINT (c) & 0x80)) |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
1761 XSETFASTINT (c, CHAR_META | (XINT (c) & ~0x80)); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1762 |
518 | 1763 executing_macro_index++; |
1764 | |
1765 goto from_macro; | |
1766 } | |
1767 | |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1768 if (!NILP (unread_switch_frame)) |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1769 { |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1770 c = unread_switch_frame; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1771 unread_switch_frame = Qnil; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1772 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1773 /* This event should make it into this_command_keys, and get echoed |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
1774 again, so we go to reread_first, rather than reread. */ |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
1775 goto reread_first; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1776 } |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1777 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
1778 if (commandflag >= 0 && !input_pending |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
1779 && !detect_input_pending_run_timers (0)) |
518 | 1780 redisplay (); |
1781 | |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1782 /* Message turns off echoing unless more keystrokes turn it on again. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1783 if (echo_area_glyphs && *echo_area_glyphs |
13267
12d329dd9940
(read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents:
13246
diff
changeset
|
1784 && echo_area_glyphs != current_kboard->echobuf |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
1785 && ok_to_echo_at_next_pause != echo_area_glyphs) |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1786 cancel_echoing (); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1787 else |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1788 /* If already echoing, continue. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1789 echo_dash (); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1790 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1791 /* Try reading a character via menu prompting in the minibuf. |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1792 Try this before the sit-for, because the sit-for |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1793 would do the wrong thing if we are supposed to do |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1794 menu prompting. If EVENT_HAS_PARAMETERS then we are reading |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1795 after a mouse event so don't try a minibuf menu. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1796 c = Qnil; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1797 if (nmaps > 0 && INTERACTIVE |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1798 && !NILP (prev_event) && ! EVENT_HAS_PARAMETERS (prev_event) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1799 /* Don't bring up a menu if we already have another event. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1800 && NILP (Vunread_command_events) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1801 && unread_command_char < 0 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
1802 && !detect_input_pending_run_timers (0)) |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1803 { |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1804 c = read_char_minibuf_menu_prompt (commandflag, nmaps, maps); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1805 if (! NILP (c)) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1806 { |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1807 key_already_recorded = 1; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1808 goto non_reread_1; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1809 } |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1810 } |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1811 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1812 /* Make a longjmp point for quits to use, but don't alter getcjmp just yet. |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1813 We will do that below, temporarily for short sections of code, |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1814 when appropriate. local_getcjmp must be in effect |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1815 around any call to sit_for or kbd_buffer_get_event; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1816 it *must not* be in effect when we call redisplay. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1817 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1818 if (_setjmp (local_getcjmp)) |
518 | 1819 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
1820 XSETINT (c, quit_char); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
1821 XSETFRAME (internal_last_event_frame, selected_frame); |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
1822 Vlast_event_frame = internal_last_event_frame; |
2434
39c696510c64
(read_char): Clear Vquit_flag when we return C-g for it.
Richard M. Stallman <rms@gnu.org>
parents:
2406
diff
changeset
|
1823 /* If we report the quit char as an event, |
39c696510c64
(read_char): Clear Vquit_flag when we return C-g for it.
Richard M. Stallman <rms@gnu.org>
parents:
2406
diff
changeset
|
1824 don't do so more than once. */ |
39c696510c64
(read_char): Clear Vquit_flag when we return C-g for it.
Richard M. Stallman <rms@gnu.org>
parents:
2406
diff
changeset
|
1825 if (!NILP (Vinhibit_quit)) |
39c696510c64
(read_char): Clear Vquit_flag when we return C-g for it.
Richard M. Stallman <rms@gnu.org>
parents:
2406
diff
changeset
|
1826 Vquit_flag = Qnil; |
518 | 1827 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1828 #ifdef MULTI_KBOARD |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1829 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1830 KBOARD *kb = FRAME_KBOARD (selected_frame); |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1831 if (kb != current_kboard) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1832 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1833 Lisp_Object *tailp = &kb->kbd_queue; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1834 /* We shouldn't get here if we were in single-kboard mode! */ |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1835 if (single_kboard) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1836 abort (); |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1837 while (CONSP (*tailp)) |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1838 tailp = &XCONS (*tailp)->cdr; |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1839 if (!NILP (*tailp)) |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1840 abort (); |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1841 *tailp = Fcons (c, Qnil); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1842 kb->kbd_queue_has_data = 1; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1843 current_kboard = kb; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1844 longjmp (wrong_kboard_jmpbuf, 1); |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1845 } |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1846 } |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1847 #endif |
518 | 1848 goto non_reread; |
1849 } | |
1850 | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
1851 timer_start_idle (); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
1852 |
518 | 1853 /* If in middle of key sequence and minibuffer not active, |
1854 start echoing if enough time elapses. */ | |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1855 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1856 if (minibuf_level == 0 && !current_kboard->immediate_echo |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
1857 && this_command_key_count > 0 |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
1858 && ! noninteractive |
518 | 1859 && echo_keystrokes > 0 |
13267
12d329dd9940
(read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents:
13246
diff
changeset
|
1860 && (echo_area_glyphs == 0 || *echo_area_glyphs == 0 |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
1861 || ok_to_echo_at_next_pause == echo_area_glyphs)) |
518 | 1862 { |
1863 Lisp_Object tem0; | |
1864 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1865 /* After a mouse event, start echoing right away. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1866 This is because we are probably about to display a menu, |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1867 and we don't want to delay before doing so. */ |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
1868 if (EVENT_HAS_PARAMETERS (prev_event)) |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
1869 echo_now (); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1870 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1871 { |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1872 save_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1873 restore_getcjmp (local_getcjmp); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1874 tem0 = sit_for (echo_keystrokes, 0, 1, 1); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1875 restore_getcjmp (save_jump); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1876 if (EQ (tem0, Qt)) |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
1877 echo_now (); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1878 } |
518 | 1879 } |
1880 | |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1881 /* Maybe auto save due to number of keystrokes. */ |
518 | 1882 |
1883 if (commandflag != 0 | |
1884 && auto_save_interval > 0 | |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
1885 && num_nonmacro_input_chars - last_auto_save > max (auto_save_interval, 20) |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
1886 && !detect_input_pending_run_timers (0)) |
518 | 1887 { |
1888 Fdo_auto_save (Qnil, Qnil); | |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
1889 /* Hooks can actually change some buffers in auto save. */ |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
1890 redisplay (); |
518 | 1891 } |
1892 | |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1893 /* Try reading using an X menu. |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1894 This is never confused with reading using the minibuf |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1895 because the recursive call of read_char in read_char_minibuf_menu_prompt |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1896 does not pass on any keymaps. */ |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1897 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1898 if (nmaps > 0 && INTERACTIVE |
11613
c4ef6460a9c9
(read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents:
11543
diff
changeset
|
1899 && !NILP (prev_event) |
c4ef6460a9c9
(read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents:
11543
diff
changeset
|
1900 && EVENT_HAS_PARAMETERS (prev_event) |
c4ef6460a9c9
(read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents:
11543
diff
changeset
|
1901 && !EQ (XCONS (prev_event)->car, Qmenu_bar) |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1902 /* Don't bring up a menu if we already have another event. */ |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1903 && NILP (Vunread_command_events) |
7396
3774d6d8a5ee
(read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents:
7351
diff
changeset
|
1904 && unread_command_char < 0) |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1905 c = read_char_x_menu_prompt (nmaps, maps, prev_event, used_mouse_menu); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1906 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1907 /* Maybe autosave and/or garbage collect due to idleness. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1908 |
3920
81d29cf5b232
* keyboard.c (read_char): Don't do idle autosaves if we're not
Jim Blandy <jimb@redhat.com>
parents:
3887
diff
changeset
|
1909 if (INTERACTIVE && NILP (c)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1910 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1911 int delay_level, buffer_size; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1912 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1913 /* Slow down auto saves logarithmically in size of current buffer, |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1914 and garbage collect while we're at it. */ |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1915 if (! MINI_WINDOW_P (XWINDOW (selected_window))) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1916 last_non_minibuf_size = Z - BEG; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1917 buffer_size = (last_non_minibuf_size >> 8) + 1; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1918 delay_level = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1919 while (buffer_size > 64) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1920 delay_level++, buffer_size -= buffer_size >> 2; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1921 if (delay_level < 4) delay_level = 4; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1922 /* delay_level is 4 for files under around 50k, 7 at 100k, |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1923 9 at 200k, 11 at 300k, and 12 at 500k. It is 15 at 1 meg. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1924 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1925 /* Auto save if enough time goes by without input. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1926 if (commandflag != 0 |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
1927 && num_nonmacro_input_chars > last_auto_save |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1928 && INTEGERP (Vauto_save_timeout) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1929 && XINT (Vauto_save_timeout) > 0) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1930 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1931 Lisp_Object tem0; |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1932 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1933 save_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1934 restore_getcjmp (local_getcjmp); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
1935 tem0 = sit_for (delay_level * XFASTINT (Vauto_save_timeout) / 4, |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
1936 0, 1, 1); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1937 restore_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1938 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1939 if (EQ (tem0, Qt)) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1940 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1941 Fdo_auto_save (Qnil, Qnil); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1942 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1943 /* If we have auto-saved and there is still no input |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1944 available, garbage collect if there has been enough |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1945 consing going on to make it worthwhile. */ |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
1946 if (!detect_input_pending_run_timers (0) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1947 && consing_since_gc > gc_cons_threshold / 2) |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
1948 Fgarbage_collect (); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1949 |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
1950 redisplay (); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1951 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1952 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1953 } |
518 | 1954 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1955 /* Read something from current KBOARD's side queue, if possible. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1956 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
1957 if (NILP (c)) |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
1958 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1959 if (current_kboard->kbd_queue_has_data) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
1960 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1961 if (!CONSP (current_kboard->kbd_queue)) |
10945
dbf1aab47502
(unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents:
10939
diff
changeset
|
1962 abort (); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1963 c = XCONS (current_kboard->kbd_queue)->car; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1964 current_kboard->kbd_queue |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1965 = XCONS (current_kboard->kbd_queue)->cdr; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1966 if (NILP (current_kboard->kbd_queue)) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1967 current_kboard->kbd_queue_has_data = 0; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
1968 input_pending = readable_events (0); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
1969 if (EVENT_HAS_PARAMETERS (c) |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
1970 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qswitch_frame)) |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
1971 internal_last_event_frame = XCONS (XCONS (c)->cdr)->car; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
1972 Vlast_event_frame = internal_last_event_frame; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
1973 } |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1974 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1975 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1976 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1977 /* If current_kboard's side queue is empty check the other kboards. |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1978 If one of them has data that we have not yet seen here, |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1979 switch to it and process the data waiting for it. |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1980 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1981 Note: if the events queued up for another kboard |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1982 have already been seen here, and therefore are not a complete command, |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1983 the kbd_queue_has_data field is 0, so we skip that kboard here. |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1984 That's to avoid an infinite loop switching between kboards here. */ |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1985 if (NILP (c) && !single_kboard) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1986 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1987 KBOARD *kb; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1988 for (kb = all_kboards; kb; kb = kb->next_kboard) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1989 if (kb->kbd_queue_has_data) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1990 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1991 current_kboard = kb; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1992 longjmp (wrong_kboard_jmpbuf, 1); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1993 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1994 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1995 #endif |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1996 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1997 wrong_kboard: |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1998 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
1999 stop_polling (); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2000 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2001 /* Finally, we read from the main queue, |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2002 and if that gives us something we can't use yet, we put it on the |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2003 appropriate side queue and try again. */ |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2004 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2005 if (NILP (c)) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2006 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2007 KBOARD *kb; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2008 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2009 /* Actually read a character, waiting if necessary. */ |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2010 save_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2011 restore_getcjmp (local_getcjmp); |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2012 c = kbd_buffer_get_event (&kb, used_mouse_menu); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2013 restore_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2014 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2015 #ifdef MULTI_KBOARD |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2016 if (! NILP (c) && (kb != current_kboard)) |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2017 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2018 Lisp_Object *tailp = &kb->kbd_queue; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2019 while (CONSP (*tailp)) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2020 tailp = &XCONS (*tailp)->cdr; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2021 if (!NILP (*tailp)) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2022 abort (); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2023 *tailp = Fcons (c, Qnil); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2024 kb->kbd_queue_has_data = 1; |
11763
fc2a3a312e98
[MULTI_KBOARD] (read_char): If the character was for
Karl Heuer <kwzh@gnu.org>
parents:
11755
diff
changeset
|
2025 c = Qnil; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2026 if (single_kboard) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2027 goto wrong_kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2028 current_kboard = kb; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2029 longjmp (wrong_kboard_jmpbuf, 1); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2030 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2031 #endif |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2032 } |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2033 |
518 | 2034 /* Terminate Emacs in batch mode if at eof. */ |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2035 if (noninteractive && INTEGERP (c) && XINT (c) < 0) |
518 | 2036 Fkill_emacs (make_number (1)); |
2037 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2038 if (INTEGERP (c)) |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2039 { |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2040 /* Add in any extra modifiers, where appropriate. */ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2041 if ((extra_keyboard_modifiers & CHAR_CTL) |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2042 || ((extra_keyboard_modifiers & 0177) < ' ' |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2043 && (extra_keyboard_modifiers & 0177) != 0)) |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2044 XSETINT (c, make_ctrl_char (XINT (c))); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2045 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2046 /* Transfer any other modifier bits directly from |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2047 extra_keyboard_modifiers to c. Ignore the actual character code |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2048 in the low 16 bits of extra_keyboard_modifiers. */ |
3677
597bde558c91
(read_char): Set c properly as a Lisp int.
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
2049 XSETINT (c, XINT (c) | (extra_keyboard_modifiers & ~0xff7f & ~CHAR_CTL)); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2050 } |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
2051 |
518 | 2052 non_reread: |
2053 | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2054 /* Now that we have read an event, Emacs is not idle-- |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2055 unless the event was a timer event (not used now). */ |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2056 if (! (CONSP (c) && EQ (XCONS (c)->car, Qtimer_event))) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2057 timer_stop_idle (); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2058 |
518 | 2059 start_polling (); |
2060 | |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2061 if (NILP (c)) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2062 { |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2063 if (commandflag >= 0 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2064 && !input_pending && !detect_input_pending_run_timers (0)) |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2065 redisplay (); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2066 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2067 goto wrong_kboard; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2068 } |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2069 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2070 non_reread_1: |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2071 |
8569
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2072 /* Buffer switch events are only for internal wakeups |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2073 so don't show them to the user. */ |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2074 if (BUFFERP (c)) |
8569
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2075 return c; |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2076 |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
2077 if (key_already_recorded) |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
2078 return c; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
2079 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2080 /* Process special events within read_char |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2081 and loop around to read another event. */ |
12476
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
2082 save = Vquit_flag; |
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
2083 Vquit_flag = Qnil; |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2084 tem = get_keyelt (access_keymap (get_keymap_1 (Vspecial_event_map, 0, 0), |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2085 c, 0, 0), 1); |
12476
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
2086 Vquit_flag = save; |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2087 |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2088 if (!NILP (tem)) |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2089 { |
14537
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2090 int was_locked = single_kboard; |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2091 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2092 last_input_char = c; |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
2093 Fcommand_execute (tem, Qnil, Fvector (1, &last_input_char), Qt); |
14537
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2094 |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2095 /* Resume allowing input from any kboard, if that was true before. */ |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2096 if (!was_locked) |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2097 any_kboard_state (); |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2098 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2099 goto retry; |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2100 } |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2101 |
8569
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2102 /* Wipe the echo area. */ |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2103 echo_area_glyphs = 0; |
518 | 2104 |
2105 /* Handle things that only apply to characters. */ | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2106 if (INTEGERP (c)) |
518 | 2107 { |
2108 /* If kbd_buffer_get_event gave us an EOF, return that. */ | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2109 if (XINT (c) == -1) |
518 | 2110 return c; |
2111 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2112 if (STRINGP (Vkeyboard_translate_table) |
15412
7824cf167226
(read_char): Use unsigned to compare against
Richard M. Stallman <rms@gnu.org>
parents:
15284
diff
changeset
|
2113 && XSTRING (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c)) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
2114 XSETINT (c, XSTRING (Vkeyboard_translate_table)->data[XFASTINT (c)]); |
13246
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2115 else if ((VECTORP (Vkeyboard_translate_table) |
15412
7824cf167226
(read_char): Use unsigned to compare against
Richard M. Stallman <rms@gnu.org>
parents:
15284
diff
changeset
|
2116 && XVECTOR (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c)) |
7824cf167226
(read_char): Use unsigned to compare against
Richard M. Stallman <rms@gnu.org>
parents:
15284
diff
changeset
|
2117 || (CHAR_TABLE_P (Vkeyboard_translate_table) |
7824cf167226
(read_char): Use unsigned to compare against
Richard M. Stallman <rms@gnu.org>
parents:
15284
diff
changeset
|
2118 && CHAR_TABLE_ORDINARY_SLOTS > (unsigned) XFASTINT (c))) |
13246
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2119 { |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2120 Lisp_Object d; |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2121 d = Faref (Vkeyboard_translate_table, c); |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2122 /* nil in keyboard-translate-table means no translation. */ |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2123 if (!NILP (d)) |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2124 c = d; |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2125 } |
518 | 2126 } |
2127 | |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2128 /* If this event is a mouse click in the menu bar, |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2129 return just menu-bar for now. Modify the mouse click event |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2130 so we won't do this twice, then queue it up. */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2131 if (EVENT_HAS_PARAMETERS (c) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2132 && CONSP (XCONS (c)->cdr) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2133 && CONSP (EVENT_START (c)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2134 && CONSP (XCONS (EVENT_START (c))->cdr)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2135 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2136 Lisp_Object posn; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2137 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2138 posn = POSN_BUFFER_POSN (EVENT_START (c)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2139 /* Handle menu-bar events: |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2140 insert the dummy prefix event `menu-bar'. */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2141 if (EQ (posn, Qmenu_bar)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2142 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2143 /* Change menu-bar to (menu-bar) as the event "position". */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2144 POSN_BUFFER_POSN (EVENT_START (c)) = Fcons (posn, Qnil); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2145 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2146 also_record = c; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2147 Vunread_command_events = Fcons (c, Vunread_command_events); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2148 c = posn; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2149 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2150 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2151 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2152 record_char (c); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2153 if (! NILP (also_record)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2154 record_char (also_record); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2155 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2156 from_macro: |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2157 reread_first: |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
2158 before_command_key_count = this_command_key_count; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
2159 before_command_echo_length = echo_length (); |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2160 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2161 /* Don't echo mouse motion events. */ |
10233
100a10bb4d47
(read_char): Don't echo keys when echo_keystrokes is 0.
Richard M. Stallman <rms@gnu.org>
parents:
10147
diff
changeset
|
2162 if (echo_keystrokes |
100a10bb4d47
(read_char): Don't echo keys when echo_keystrokes is 0.
Richard M. Stallman <rms@gnu.org>
parents:
10147
diff
changeset
|
2163 && ! (EVENT_HAS_PARAMETERS (c) |
100a10bb4d47
(read_char): Don't echo keys when echo_keystrokes is 0.
Richard M. Stallman <rms@gnu.org>
parents:
10147
diff
changeset
|
2164 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement))) |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2165 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2166 echo_char (c); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2167 if (! NILP (also_record)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2168 echo_char (also_record); |
13267
12d329dd9940
(read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents:
13246
diff
changeset
|
2169 /* Once we reread a character, echoing can happen |
12d329dd9940
(read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents:
13246
diff
changeset
|
2170 the next time we pause to read a new one. */ |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
2171 ok_to_echo_at_next_pause = echo_area_glyphs; |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2172 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2173 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2174 /* Record this character as part of the current key. */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2175 add_command_key (c); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2176 if (! NILP (also_record)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2177 add_command_key (also_record); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2178 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2179 /* Re-reading in the middle of a command */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2180 reread: |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2181 last_input_char = c; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2182 num_input_chars++; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2183 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2184 /* Process the help character specially if enabled */ |
12144 | 2185 if (!NILP (Vhelp_form) && help_char_p (c)) |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2186 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2187 Lisp_Object tem0; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2188 count = specpdl_ptr - specpdl; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2189 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2190 record_unwind_protect (Fset_window_configuration, |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2191 Fcurrent_window_configuration (Qnil)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2192 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2193 tem0 = Feval (Vhelp_form); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2194 if (STRINGP (tem0)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2195 internal_with_output_to_temp_buffer ("*Help*", print_help, tem0); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2196 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2197 cancel_echoing (); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2198 do |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2199 c = read_char (0, 0, 0, Qnil, 0); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2200 while (BUFFERP (c)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2201 /* Remove the help from the frame */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2202 unbind_to (count, Qnil); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2203 |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2204 redisplay (); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2205 if (EQ (c, make_number (040))) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2206 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2207 cancel_echoing (); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2208 do |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2209 c = read_char (0, 0, 0, Qnil, 0); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2210 while (BUFFERP (c)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2211 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2212 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2213 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2214 return c; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2215 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2216 |
12144 | 2217 /* Return 1 if should recognize C as "the help character". */ |
2218 | |
2219 int | |
2220 help_char_p (c) | |
2221 Lisp_Object c; | |
2222 { | |
2223 Lisp_Object tail; | |
2224 | |
2225 if (EQ (c, Vhelp_char)) | |
2226 return 1; | |
2227 for (tail = Vhelp_event_list; CONSP (tail); tail = XCONS (tail)->cdr) | |
2228 if (EQ (c, XCONS (tail)->car)) | |
2229 return 1; | |
2230 return 0; | |
2231 } | |
2232 | |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2233 /* Record the input event C in various ways. */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2234 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2235 static void |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2236 record_char (c) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2237 Lisp_Object c; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2238 { |
518 | 2239 total_keys++; |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
2240 XVECTOR (recent_keys)->contents[recent_keys_index] = c; |
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
2241 if (++recent_keys_index >= NUM_RECENT_KEYS) |
518 | 2242 recent_keys_index = 0; |
2243 | |
2244 /* Write c to the dribble file. If c is a lispy event, write | |
2245 the event's symbol to the dribble file, in <brackets>. Bleaugh. | |
2246 If you, dear reader, have a better idea, you've got the source. :-) */ | |
2247 if (dribble) | |
2248 { | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2249 if (INTEGERP (c)) |
8569
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2250 { |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2251 if (XUINT (c) < 0x100) |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2252 putc (XINT (c), dribble); |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2253 else |
12087
3bbf71f1cf30
(cmd_error): Use NULL, not 0, as arg to cmd_error_internal.
Karl Heuer <kwzh@gnu.org>
parents:
12007
diff
changeset
|
2254 fprintf (dribble, " 0x%x", (int) XUINT (c)); |
8569
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2255 } |
518 | 2256 else |
2257 { | |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2258 Lisp_Object dribblee; |
518 | 2259 |
2260 /* If it's a structured event, take the event header. */ | |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2261 dribblee = EVENT_HEAD (c); |
518 | 2262 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2263 if (SYMBOLP (dribblee)) |
518 | 2264 { |
2265 putc ('<', dribble); | |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
2266 fwrite (XSYMBOL (dribblee)->name->data, sizeof (char), |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
2267 XSYMBOL (dribblee)->name->size, |
518 | 2268 dribble); |
2269 putc ('>', dribble); | |
2270 } | |
2271 } | |
2272 | |
2273 fflush (dribble); | |
2274 } | |
2275 | |
2276 store_kbd_macro_char (c); | |
2277 | |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
2278 num_nonmacro_input_chars++; |
518 | 2279 } |
2280 | |
2281 Lisp_Object | |
2282 print_help (object) | |
2283 Lisp_Object object; | |
2284 { | |
9864
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
2285 struct buffer *old = current_buffer; |
518 | 2286 Fprinc (object, Qnil); |
9864
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
2287 set_buffer_internal (XBUFFER (Vstandard_output)); |
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
2288 call0 (intern ("help-mode")); |
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
2289 set_buffer_internal (old); |
518 | 2290 return Qnil; |
2291 } | |
2292 | |
2293 /* Copy out or in the info on where C-g should throw to. | |
2294 This is used when running Lisp code from within get_char, | |
2295 in case get_char is called recursively. | |
2296 See read_process_output. */ | |
2297 | |
2298 save_getcjmp (temp) | |
2299 jmp_buf temp; | |
2300 { | |
2301 bcopy (getcjmp, temp, sizeof getcjmp); | |
2302 } | |
2303 | |
2304 restore_getcjmp (temp) | |
2305 jmp_buf temp; | |
2306 { | |
2307 bcopy (temp, getcjmp, sizeof getcjmp); | |
2308 } | |
2309 | |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
2310 #ifdef HAVE_MOUSE |
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
2311 |
518 | 2312 /* Restore mouse tracking enablement. See Ftrack_mouse for the only use |
2313 of this function. */ | |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
2314 |
518 | 2315 static Lisp_Object |
2316 tracking_off (old_value) | |
2317 Lisp_Object old_value; | |
2318 { | |
9881
02cd4dde69e1
(tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents:
9864
diff
changeset
|
2319 do_mouse_tracking = old_value; |
02cd4dde69e1
(tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents:
9864
diff
changeset
|
2320 if (NILP (old_value)) |
518 | 2321 { |
2322 /* Redisplay may have been preempted because there was input | |
2323 available, and it assumes it will be called again after the | |
2324 input has been processed. If the only input available was | |
2325 the sort that we have just disabled, then we need to call | |
2326 redisplay. */ | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2327 if (!readable_events (1)) |
518 | 2328 { |
2329 redisplay_preserve_echo_area (); | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2330 get_input_pending (&input_pending, 1); |
518 | 2331 } |
2332 } | |
2333 } | |
2334 | |
2335 DEFUN ("track-mouse", Ftrack_mouse, Strack_mouse, 0, UNEVALLED, 0, | |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2336 "Evaluate BODY with mouse movement events enabled.\n\ |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2337 Within a `track-mouse' form, mouse motion generates input events that\n\ |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2338 you can read with `read-event'.\n\ |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2339 Normally, mouse motion is ignored.") |
518 | 2340 (args) |
2341 Lisp_Object args; | |
2342 { | |
2343 int count = specpdl_ptr - specpdl; | |
2344 Lisp_Object val; | |
2345 | |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
2346 record_unwind_protect (tracking_off, do_mouse_tracking); |
518 | 2347 |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2348 do_mouse_tracking = Qt; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2349 |
518 | 2350 val = Fprogn (args); |
2351 return unbind_to (count, val); | |
2352 } | |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
2353 |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2354 /* If mouse has moved on some frame, return one of those frames. |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2355 Return 0 otherwise. */ |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2356 |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2357 static FRAME_PTR |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2358 some_mouse_moved () |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2359 { |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2360 Lisp_Object tail, frame; |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2361 |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2362 FOR_EACH_FRAME (tail, frame) |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2363 { |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2364 if (XFRAME (frame)->mouse_moved) |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2365 return XFRAME (frame); |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2366 } |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2367 |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2368 return 0; |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2369 } |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2370 |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
2371 #endif /* HAVE_MOUSE */ |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2372 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2373 /* Low level keyboard/mouse input. |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2374 kbd_buffer_store_event places events in kbd_buffer, and |
13324 | 2375 kbd_buffer_get_event retrieves them. */ |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2376 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2377 /* Return true iff there are any events in the queue that read-char |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2378 would return. If this returns false, a read-char would block. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2379 static int |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2380 readable_events (do_timers_now) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2381 int do_timers_now; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2382 { |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2383 if (do_timers_now) |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2384 timer_check (do_timers_now); |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2385 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2386 if (kbd_fetch_ptr != kbd_store_ptr) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2387 return 1; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2388 #ifdef HAVE_MOUSE |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2389 if (!NILP (do_mouse_tracking) && some_mouse_moved ()) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2390 return 1; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2391 #endif |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2392 if (single_kboard) |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2393 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2394 if (current_kboard->kbd_queue_has_data) |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2395 return 1; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2396 } |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2397 else |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2398 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2399 KBOARD *kb; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2400 for (kb = all_kboards; kb; kb = kb->next_kboard) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2401 if (kb->kbd_queue_has_data) |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2402 return 1; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2403 } |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2404 return 0; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2405 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2406 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2407 /* Set this for debugging, to have a way to get out */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2408 int stop_character; |
518 | 2409 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2410 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2411 static KBOARD * |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2412 event_to_kboard (event) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2413 struct input_event *event; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2414 { |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2415 Lisp_Object frame; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2416 frame = event->frame_or_window; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2417 if (CONSP (frame)) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2418 frame = XCONS (frame)->car; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2419 else if (WINDOWP (frame)) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2420 frame = WINDOW_FRAME (XWINDOW (frame)); |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2421 |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2422 /* There are still some events that don't set this field. |
11167
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
2423 For now, just ignore the problem. |
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
2424 Also ignore dead frames here. */ |
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
2425 if (!FRAMEP (frame) || !FRAME_LIVE_P (XFRAME (frame))) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2426 return 0; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2427 else |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2428 return FRAME_KBOARD (XFRAME (frame)); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2429 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2430 #endif |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2431 |
518 | 2432 /* Store an event obtained at interrupt level into kbd_buffer, fifo */ |
2433 | |
2434 void | |
2435 kbd_buffer_store_event (event) | |
2436 register struct input_event *event; | |
2437 { | |
2438 if (event->kind == no_event) | |
2439 abort (); | |
2440 | |
2441 if (event->kind == ascii_keystroke) | |
2442 { | |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2443 register int c = event->code & 0377; |
518 | 2444 |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2445 if (event->modifiers & ctrl_modifier) |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2446 c = make_ctrl_char (c); |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2447 |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
2448 c |= (event->modifiers |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
2449 & (meta_modifier | alt_modifier |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
2450 | hyper_modifier | super_modifier)); |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
2451 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2452 if (c == quit_char) |
518 | 2453 { |
985
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
2454 extern SIGTYPE interrupt_signal (); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2455 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2456 KBOARD *kb; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2457 struct input_event *sp; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2458 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2459 if (single_kboard |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2460 && (kb = FRAME_KBOARD (XFRAME (event->frame_or_window)), |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2461 kb != current_kboard)) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2462 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2463 kb->kbd_queue |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2464 = Fcons (make_lispy_switch_frame (event->frame_or_window), |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2465 Fcons (make_number (c), Qnil)); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2466 kb->kbd_queue_has_data = 1; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2467 for (sp = kbd_fetch_ptr; sp != kbd_store_ptr; sp++) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2468 { |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2469 if (sp == kbd_buffer + KBD_BUFFER_SIZE) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2470 sp = kbd_buffer; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2471 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2472 if (event_to_kboard (sp) == kb) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2473 { |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2474 sp->kind = no_event; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2475 sp->frame_or_window = Qnil; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2476 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2477 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2478 return; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2479 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2480 #endif |
985
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
2481 |
518 | 2482 /* If this results in a quit_char being returned to Emacs as |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2483 input, set Vlast_event_frame properly. If this doesn't |
518 | 2484 get returned to Emacs as an event, the next event read |
765 | 2485 will set Vlast_event_frame again, so this is safe to do. */ |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2486 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2487 Lisp_Object focus; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2488 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2489 focus = FRAME_FOCUS_FRAME (XFRAME (event->frame_or_window)); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2490 if (NILP (focus)) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2491 focus = event->frame_or_window; |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2492 internal_last_event_frame = focus; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2493 Vlast_event_frame = focus; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2494 } |
985
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
2495 |
648 | 2496 last_event_timestamp = event->timestamp; |
518 | 2497 interrupt_signal (); |
2498 return; | |
2499 } | |
2500 | |
2501 if (c && c == stop_character) | |
2502 { | |
2503 sys_suspend (); | |
2504 return; | |
2505 } | |
2506 } | |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
2507 /* Don't insert two buffer_switch_event's in a row. |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
2508 Just ignore the second one. */ |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
2509 else if (event->kind == buffer_switch_event |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
2510 && kbd_fetch_ptr != kbd_store_ptr |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
2511 && kbd_store_ptr->kind == buffer_switch_event) |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
2512 return; |
518 | 2513 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2514 if (kbd_store_ptr - kbd_buffer == KBD_BUFFER_SIZE) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2515 kbd_store_ptr = kbd_buffer; |
518 | 2516 |
2517 /* Don't let the very last slot in the buffer become full, | |
2518 since that would make the two pointers equal, | |
2519 and that is indistinguishable from an empty buffer. | |
2520 Discard the event if it would fill the last slot. */ | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2521 if (kbd_fetch_ptr - 1 != kbd_store_ptr) |
518 | 2522 { |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2523 volatile struct input_event *sp = kbd_store_ptr; |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
2524 sp->kind = event->kind; |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2525 if (event->kind == selection_request_event) |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2526 { |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2527 /* We must not use the ordinary copying code for this case, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2528 since `part' is an enum and copying it might not copy enough |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2529 in this case. */ |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
2530 bcopy (event, (char *) sp, sizeof (*event)); |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2531 } |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2532 else |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2533 { |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
2534 sp->code = event->code; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
2535 sp->part = event->part; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
2536 sp->frame_or_window = event->frame_or_window; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
2537 sp->modifiers = event->modifiers; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
2538 sp->x = event->x; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
2539 sp->y = event->y; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
2540 sp->timestamp = event->timestamp; |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2541 } |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2542 (XVECTOR (kbd_buffer_frame_or_window)->contents[kbd_store_ptr |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2543 - kbd_buffer] |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2544 = event->frame_or_window); |
518 | 2545 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2546 kbd_store_ptr++; |
518 | 2547 } |
2548 } | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2549 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2550 /* Read one event from the event buffer, waiting if necessary. |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2551 The value is a Lisp object representing the event. |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2552 The value is nil for an event that should be ignored, |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2553 or that was handled here. |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2554 We always read and discard one event. */ |
518 | 2555 |
2556 static Lisp_Object | |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2557 kbd_buffer_get_event (kbp, used_mouse_menu) |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2558 KBOARD **kbp; |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2559 int *used_mouse_menu; |
518 | 2560 { |
2561 register int c; | |
2562 Lisp_Object obj; | |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2563 EMACS_TIME next_timer_delay; |
518 | 2564 |
2565 if (noninteractive) | |
2566 { | |
2567 c = getchar (); | |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2568 XSETINT (obj, c); |
11167
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
2569 *kbp = current_kboard; |
518 | 2570 return obj; |
2571 } | |
2572 | |
2573 /* Wait until there is input available. */ | |
2574 for (;;) | |
2575 { | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2576 if (kbd_fetch_ptr != kbd_store_ptr) |
518 | 2577 break; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2578 #ifdef HAVE_MOUSE |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2579 if (!NILP (do_mouse_tracking) && some_mouse_moved ()) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2580 break; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2581 #endif |
518 | 2582 |
2583 /* If the quit flag is set, then read_char will return | |
2584 quit_char, so that counts as "available input." */ | |
2585 if (!NILP (Vquit_flag)) | |
2586 quit_throw_to_read_char (); | |
2587 | |
2588 /* One way or another, wait until input is available; then, if | |
2589 interrupt handlers have not read it, read it now. */ | |
2590 | |
2591 #ifdef OLDVMS | |
2592 wait_for_kbd_input (); | |
2593 #else | |
2594 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
2595 #ifdef SIGIO | |
2596 gobble_input (0); | |
2597 #endif /* SIGIO */ | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2598 if (kbd_fetch_ptr != kbd_store_ptr) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2599 break; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2600 #ifdef HAVE_MOUSE |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2601 if (!NILP (do_mouse_tracking) && some_mouse_moved ()) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2602 break; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2603 #endif |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2604 { |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2605 Lisp_Object minus_one; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2606 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2607 XSETINT (minus_one, -1); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2608 wait_reading_process_input (0, 0, minus_one, 1); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2609 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2610 if (!interrupt_input && kbd_fetch_ptr == kbd_store_ptr) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2611 /* Pass 1 for EXPECT since we just waited to have input. */ |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2612 read_avail_input (1); |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2613 } |
518 | 2614 #endif /* not VMS */ |
2615 } | |
2616 | |
2617 /* At this point, we know that there is a readable event available | |
2618 somewhere. If the event queue is empty, then there must be a | |
2619 mouse movement enabled and available. */ | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2620 if (kbd_fetch_ptr != kbd_store_ptr) |
518 | 2621 { |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2622 struct input_event *event; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2623 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2624 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2625 ? kbd_fetch_ptr |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2626 : kbd_buffer); |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2627 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2628 last_event_timestamp = event->timestamp; |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
2629 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2630 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2631 *kbp = event_to_kboard (event); |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2632 if (*kbp == 0) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2633 *kbp = current_kboard; /* Better than returning null ptr? */ |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2634 #else |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2635 *kbp = &the_only_kboard; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2636 #endif |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2637 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2638 obj = Qnil; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2639 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2640 /* These two kinds of events get special handling |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2641 and don't actually appear to the command loop. |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2642 We return nil for them. */ |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2643 if (event->kind == selection_request_event) |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2644 { |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2645 #ifdef HAVE_X11 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2646 struct input_event copy; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2647 |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
2648 /* Remove it from the buffer before processing it, |
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
2649 since otherwise swallow_events will see it |
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
2650 and process it again. */ |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2651 copy = *event; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2652 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2653 input_pending = readable_events (0); |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
2654 x_handle_selection_request (©); |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2655 #else |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2656 /* We're getting selection request events, but we don't have |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2657 a window system. */ |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2658 abort (); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2659 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2660 } |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2661 |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2662 else if (event->kind == selection_clear_event) |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2663 { |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2664 #ifdef HAVE_X11 |
12712
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2665 struct input_event copy; |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2666 |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2667 /* Remove it from the buffer before processing it. */ |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2668 copy = *event; |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2669 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2670 input_pending = readable_events (0); |
12729
21110e58640c
(kbd_buffer_get_event, swallow_events): Fix prev change.
Richard M. Stallman <rms@gnu.org>
parents:
12712
diff
changeset
|
2671 x_handle_selection_clear (©); |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2672 #else |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2673 /* We're getting selection request events, but we don't have |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2674 a window system. */ |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2675 abort (); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2676 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2677 } |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
2678 #if defined (HAVE_X11) || defined (HAVE_NTGUI) |
5133
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
2679 else if (event->kind == delete_window_event) |
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
2680 { |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
2681 /* Make an event (delete-frame (FRAME)). */ |
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
2682 obj = Fcons (event->frame_or_window, Qnil); |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2683 obj = Fcons (Qdelete_frame, Fcons (obj, Qnil)); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2684 kbd_fetch_ptr = event + 1; |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2685 } |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2686 else if (event->kind == iconify_event) |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2687 { |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2688 /* Make an event (iconify-frame (FRAME)). */ |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2689 obj = Fcons (event->frame_or_window, Qnil); |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2690 obj = Fcons (Qiconify_frame, Fcons (obj, Qnil)); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2691 kbd_fetch_ptr = event + 1; |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2692 } |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2693 else if (event->kind == deiconify_event) |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2694 { |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2695 /* Make an event (make-frame-visible (FRAME)). */ |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2696 obj = Fcons (event->frame_or_window, Qnil); |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
2697 obj = Fcons (Qmake_frame_visible, Fcons (obj, Qnil)); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2698 kbd_fetch_ptr = event + 1; |
5133
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
2699 } |
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
2700 #endif |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
2701 else if (event->kind == buffer_switch_event) |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
2702 { |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
2703 /* The value doesn't matter here; only the type is tested. */ |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2704 XSETBUFFER (obj, current_buffer); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2705 kbd_fetch_ptr = event + 1; |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
2706 } |
12659
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
2707 #ifdef USE_X_TOOLKIT |
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
2708 else if (event->kind == menu_bar_activate_event) |
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
2709 { |
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
2710 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2711 input_pending = readable_events (0); |
15474
0b4fc263d4f2
(kbd_buffer_get_event): Don't call x_activate_menubar for a deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
15412
diff
changeset
|
2712 if (FRAME_LIVE_P (XFRAME (event->frame_or_window))) |
0b4fc263d4f2
(kbd_buffer_get_event): Don't call x_activate_menubar for a deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
15412
diff
changeset
|
2713 x_activate_menubar (XFRAME (event->frame_or_window)); |
12659
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
2714 } |
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
2715 #endif |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2716 /* Just discard these, by returning nil. |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2717 With MULTI_KBOARD, these events are used as placeholders |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2718 when we need to randomly delete events from the queue. |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2719 (They shouldn't otherwise be found in the buffer, |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
2720 but on some machines it appears they do show up |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2721 even without MULTI_KBOARD.) */ |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2722 else if (event->kind == no_event) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2723 kbd_fetch_ptr = event + 1; |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2724 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2725 /* If this event is on a different frame, return a switch-frame this |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2726 time, and leave the event in the queue for next time. */ |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2727 else |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2728 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2729 Lisp_Object frame; |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2730 Lisp_Object focus; |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2731 |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2732 frame = event->frame_or_window; |
11285
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
2733 if (CONSP (frame)) |
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
2734 frame = XCONS (frame)->car; |
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
2735 else if (WINDOWP (frame)) |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2736 frame = WINDOW_FRAME (XWINDOW (frame)); |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2737 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2738 focus = FRAME_FOCUS_FRAME (XFRAME (frame)); |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2739 if (! NILP (focus)) |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2740 frame = focus; |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2741 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2742 if (! EQ (frame, internal_last_event_frame) |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2743 && XFRAME (frame) != selected_frame) |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2744 obj = make_lispy_switch_frame (frame); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2745 internal_last_event_frame = frame; |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2746 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2747 /* If we didn't decide to make a switch-frame event, go ahead |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2748 and build a real event from the queue entry. */ |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2749 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2750 if (NILP (obj)) |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2751 { |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2752 obj = make_lispy_event (event); |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
2753 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2754 /* If this was a menu selection, then set the flag to inhibit |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2755 writing to last_nonmenu_event. Don't do this if the event |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2756 we're returning is (menu-bar), though; that indicates the |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2757 beginning of the menu sequence, and we might as well leave |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2758 that as the `event with parameters' for this selection. */ |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2759 if (event->kind == menu_bar_event |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2760 && !(CONSP (obj) && EQ (XCONS (obj)->car, Qmenu_bar)) |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2761 && used_mouse_menu) |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2762 *used_mouse_menu = 1; |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2763 #endif |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2764 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2765 /* Wipe out this event, to catch bugs. */ |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2766 event->kind = no_event; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2767 XVECTOR (kbd_buffer_frame_or_window)->contents[event - kbd_buffer] = Qnil; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2768 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2769 kbd_fetch_ptr = event + 1; |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2770 } |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2771 } |
518 | 2772 } |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
2773 #ifdef HAVE_MOUSE |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2774 /* Try generating a mouse motion event. */ |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2775 else if (!NILP (do_mouse_tracking) && some_mouse_moved ()) |
518 | 2776 { |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2777 FRAME_PTR f = some_mouse_moved (); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2778 Lisp_Object bar_window; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2779 enum scroll_bar_part part; |
732 | 2780 Lisp_Object x, y; |
2781 unsigned long time; | |
518 | 2782 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2783 *kbp = current_kboard; |
9668
38a4e4386aed
(kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents:
9652
diff
changeset
|
2784 /* Note that this uses F to determine which display to look at. |
38a4e4386aed
(kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents:
9652
diff
changeset
|
2785 If there is no valid info, it does not store anything |
38a4e4386aed
(kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents:
9652
diff
changeset
|
2786 so x remains nil. */ |
38a4e4386aed
(kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents:
9652
diff
changeset
|
2787 x = Qnil; |
11127
53e4f014e31c
(kbd_buffer_get_event): Pass 0 for `insist' arg.
Richard M. Stallman <rms@gnu.org>
parents:
11026
diff
changeset
|
2788 (*mouse_position_hook) (&f, 0, &bar_window, &part, &x, &y, &time); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2789 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2790 obj = Qnil; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2791 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2792 /* Decide if we should generate a switch-frame event. Don't |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2793 generate switch-frame events for motion outside of all Emacs |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2794 frames. */ |
9668
38a4e4386aed
(kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents:
9652
diff
changeset
|
2795 if (!NILP (x) && f) |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2796 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2797 Lisp_Object frame; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2798 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2799 frame = FRAME_FOCUS_FRAME (f); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2800 if (NILP (frame)) |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2801 XSETFRAME (frame, f); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2802 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2803 if (! EQ (frame, internal_last_event_frame) |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2804 && XFRAME (frame) != selected_frame) |
3929
d620db2bc420
* keyboard.c (kbd_buffer_get_event): Correctly generate
Jim Blandy <jimb@redhat.com>
parents:
3920
diff
changeset
|
2805 obj = make_lispy_switch_frame (frame); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2806 internal_last_event_frame = frame; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2807 } |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2808 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2809 /* If we didn't decide to make a switch-frame event, go ahead and |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2810 return a mouse-motion event. */ |
9668
38a4e4386aed
(kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents:
9652
diff
changeset
|
2811 if (!NILP (x) && NILP (obj)) |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2812 obj = make_lispy_movement (f, bar_window, part, x, y, time); |
6805
8310b2eb6b06
(make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents:
6749
diff
changeset
|
2813 } |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
2814 #endif /* HAVE_MOUSE */ |
518 | 2815 else |
2816 /* We were promised by the above while loop that there was | |
2817 something for us to read! */ | |
2818 abort (); | |
2819 | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2820 input_pending = readable_events (0); |
518 | 2821 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2822 Vlast_event_frame = internal_last_event_frame; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2823 |
518 | 2824 return (obj); |
2825 } | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2826 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2827 /* Process any events that are not user-visible, |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2828 then return, without reading any user-visible events. */ |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2829 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2830 void |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2831 swallow_events (do_display) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2832 int do_display; |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2833 { |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
2834 int old_timers_run; |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
2835 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2836 while (kbd_fetch_ptr != kbd_store_ptr) |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2837 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2838 struct input_event *event; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2839 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2840 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2841 ? kbd_fetch_ptr |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2842 : kbd_buffer); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2843 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2844 last_event_timestamp = event->timestamp; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2845 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2846 /* These two kinds of events get special handling |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2847 and don't actually appear to the command loop. */ |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2848 if (event->kind == selection_request_event) |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2849 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2850 #ifdef HAVE_X11 |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
2851 struct input_event copy; |
12712
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2852 |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2853 /* Remove it from the buffer before processing it, |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2854 since otherwise swallow_events called recursively could see it |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2855 and process it again. */ |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
2856 copy = *event; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2857 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2858 input_pending = readable_events (0); |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
2859 x_handle_selection_request (©); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2860 #else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2861 /* We're getting selection request events, but we don't have |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2862 a window system. */ |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2863 abort (); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2864 #endif |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2865 } |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2866 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2867 else if (event->kind == selection_clear_event) |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2868 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2869 #ifdef HAVE_X11 |
12712
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2870 struct input_event copy; |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2871 |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2872 /* Remove it from the buffer before processing it, */ |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2873 copy = *event; |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2874 |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
2875 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2876 input_pending = readable_events (0); |
12729
21110e58640c
(kbd_buffer_get_event, swallow_events): Fix prev change.
Richard M. Stallman <rms@gnu.org>
parents:
12712
diff
changeset
|
2877 x_handle_selection_clear (©); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2878 #else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2879 /* We're getting selection request events, but we don't have |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2880 a window system. */ |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2881 abort (); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2882 #endif |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2883 } |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2884 /* Note that timer_event is currently never used. */ |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2885 else if (event->kind == timer_event) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2886 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2887 Lisp_Object tem, lisp_event; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2888 int was_locked = single_kboard; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2889 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2890 tem = get_keymap_1 (Vspecial_event_map, 0, 0); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2891 tem = get_keyelt (access_keymap (tem, Qtimer_event, 0, 0), |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2892 1); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2893 lisp_event = Fcons (Qtimer_event, |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2894 Fcons (Fcdr (event->frame_or_window), Qnil)); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2895 kbd_fetch_ptr = event + 1; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2896 if (kbd_fetch_ptr == kbd_store_ptr) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2897 input_pending = 0; |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
2898 Fcommand_execute (tem, Qnil, Fvector (1, &lisp_event), Qt); |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
2899 timers_run++; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2900 if (do_display) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2901 redisplay_preserve_echo_area (); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2902 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2903 /* Resume allowing input from any kboard, if that was true before. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2904 if (!was_locked) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2905 any_kboard_state (); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2906 } |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2907 else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2908 break; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2909 } |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2910 |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
2911 old_timers_run = timers_run; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2912 get_input_pending (&input_pending, 1); |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
2913 |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
2914 if (timers_run != old_timers_run && do_display) |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
2915 redisplay_preserve_echo_area (); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2916 } |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2917 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2918 static EMACS_TIME timer_idleness_start_time; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2919 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2920 /* Record the start of when Emacs is idle, |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2921 for the sake of running idle-time timers. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2922 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2923 timer_start_idle () |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2924 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2925 Lisp_Object timers; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2926 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2927 /* If we are already in the idle state, do nothing. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2928 if (! EMACS_TIME_NEG_P (timer_idleness_start_time)) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2929 return; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2930 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2931 EMACS_GET_TIME (timer_idleness_start_time); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2932 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2933 /* Mark all idle-time timers as once again candidates for running. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2934 for (timers = Vtimer_idle_list; CONSP (timers); timers = XCONS (timers)->cdr) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2935 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2936 Lisp_Object timer; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2937 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2938 timer = XCONS (timers)->car; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2939 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2940 if (!VECTORP (timer) || XVECTOR (timer)->size != 8) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2941 continue; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2942 XVECTOR (timer)->contents[0] = Qnil; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2943 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2944 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2945 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2946 /* Record that Emacs is no longer idle, so stop running idle-time timers. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2947 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2948 timer_stop_idle () |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2949 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2950 EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2951 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2952 |
14904
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
2953 /* This is only for debugging. */ |
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
2954 struct input_event last_timer_event; |
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
2955 |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2956 /* Check whether a timer has fired. To prevent larger problems we simply |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2957 disregard elements that are not proper timers. Do not make a circular |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2958 timer list for the time being. |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2959 |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2960 Returns the number of seconds to wait until the next timer fires. If a |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2961 timer is triggering now, return zero seconds. |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2962 If no timer is active, return -1 seconds. |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2963 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2964 If a timer is ripe, we run it, with quitting turned off. |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2965 |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2966 DO_IT_NOW is now ignored. It used to mean that we should |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2967 run the timer directly instead of queueing a timer-event. |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2968 Now we always run timers directly. */ |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2969 |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2970 EMACS_TIME |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2971 timer_check (do_it_now) |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2972 int do_it_now; |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2973 { |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2974 EMACS_TIME nexttime; |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2975 EMACS_TIME now, idleness_now; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2976 Lisp_Object timers, idle_timers, chosen_timer; |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
2977 /* Nonzero if we generate some events. */ |
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
2978 int events_generated = 0; |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2979 struct gcpro gcpro1, gcpro2, gcpro3; |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
2980 |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2981 EMACS_SET_SECS (nexttime, -1); |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2982 EMACS_SET_USECS (nexttime, -1); |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2983 |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2984 /* Always consider the ordinary timers. */ |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
2985 timers = Vtimer_list; |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2986 /* Consider the idle timers only if Emacs is idle. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2987 if (! EMACS_TIME_NEG_P (timer_idleness_start_time)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2988 idle_timers = Vtimer_idle_list; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2989 else |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2990 idle_timers = Qnil; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2991 chosen_timer = Qnil; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2992 GCPRO3 (timers, idle_timers, chosen_timer); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2993 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2994 if (CONSP (timers) || CONSP (idle_timers)) |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
2995 { |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2996 EMACS_GET_TIME (now); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2997 if (! EMACS_TIME_NEG_P (timer_idleness_start_time)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2998 EMACS_SUB_TIME (idleness_now, now, timer_idleness_start_time); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
2999 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3000 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3001 while (CONSP (timers) || CONSP (idle_timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3002 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3003 int triggertime = EMACS_SECS (now); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3004 Lisp_Object *vector; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3005 Lisp_Object timer, idle_timer; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3006 EMACS_TIME timer_time, idle_timer_time; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3007 EMACS_TIME difference, timer_difference, idle_timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3008 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3009 /* Skip past invalid timers and timers already handled. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3010 if (!NILP (timers)) |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3011 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3012 timer = XCONS (timers)->car; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3013 if (!VECTORP (timer) || XVECTOR (timer)->size != 8) |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3014 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3015 timers = XCONS (timers)->cdr; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3016 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3017 } |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3018 vector = XVECTOR (timer)->contents; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3019 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3020 if (!INTEGERP (vector[1]) || !INTEGERP (vector[2]) |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3021 || !INTEGERP (vector[3]) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3022 || ! NILP (vector[0])) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3023 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3024 timers = XCONS (timers)->cdr; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3025 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3026 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3027 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3028 if (!NILP (idle_timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3029 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3030 timer = XCONS (idle_timers)->car; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3031 if (!VECTORP (timer) || XVECTOR (timer)->size != 8) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3032 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3033 idle_timers = XCONS (idle_timers)->cdr; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3034 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3035 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3036 vector = XVECTOR (timer)->contents; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3037 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3038 if (!INTEGERP (vector[1]) || !INTEGERP (vector[2]) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3039 || !INTEGERP (vector[3]) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3040 || ! NILP (vector[0])) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3041 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3042 idle_timers = XCONS (idle_timers)->cdr; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3043 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3044 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3045 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3046 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3047 /* Set TIMER, TIMER_TIME and TIMER_DIFFERENCE |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3048 based on the next ordinary timer. |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3049 TIMER_DIFFERENCE is the distance in time from NOW to when |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3050 this timer becomes ripe (negative if it's already ripe). */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3051 if (!NILP (timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3052 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3053 timer = XCONS (timers)->car; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3054 vector = XVECTOR (timer)->contents; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3055 EMACS_SET_SECS (timer_time, |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3056 (XINT (vector[1]) << 16) | (XINT (vector[2]))); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3057 EMACS_SET_USECS (timer_time, XINT (vector[3])); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3058 EMACS_SUB_TIME (timer_difference, timer_time, now); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3059 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3060 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3061 /* Set IDLE_TIMER, IDLE_TIMER_TIME and IDLE_TIMER_DIFFERENCE |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3062 based on the next idle timer. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3063 if (!NILP (idle_timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3064 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3065 idle_timer = XCONS (idle_timers)->car; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3066 vector = XVECTOR (idle_timer)->contents; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3067 EMACS_SET_SECS (idle_timer_time, |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3068 (XINT (vector[1]) << 16) | (XINT (vector[2]))); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3069 EMACS_SET_USECS (idle_timer_time, XINT (vector[3])); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3070 EMACS_SUB_TIME (idle_timer_difference, idle_timer_time, idleness_now); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3071 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3072 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3073 /* Decide which timer is the next timer, |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3074 and set CHOSEN_TIMER, VECTOR and DIFFERENCE accordingly. |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3075 Also step down the list where we found that timer. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3076 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3077 if (! NILP (timers) && ! NILP (idle_timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3078 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3079 EMACS_TIME temp; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3080 EMACS_SUB_TIME (temp, timer_difference, idle_timer_difference); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3081 if (EMACS_TIME_NEG_P (temp)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3082 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3083 chosen_timer = timer; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3084 timers = XCONS (timers)->cdr; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3085 difference = timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3086 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3087 else |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3088 { |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3089 chosen_timer = idle_timer; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3090 idle_timers = XCONS (idle_timers)->cdr; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3091 difference = idle_timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3092 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3093 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3094 else if (! NILP (timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3095 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3096 chosen_timer = timer; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3097 timers = XCONS (timers)->cdr; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3098 difference = timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3099 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3100 else |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3101 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3102 chosen_timer = idle_timer; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3103 idle_timers = XCONS (idle_timers)->cdr; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3104 difference = idle_timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3105 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3106 vector = XVECTOR (chosen_timer)->contents; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3107 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3108 /* If timer is rupe, run it if it hasn't been run. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3109 if (EMACS_TIME_NEG_P (difference) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3110 || (EMACS_SECS (difference) == 0 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3111 && EMACS_USECS (difference) == 0)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3112 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3113 if (NILP (vector[0])) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3114 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3115 /* Mark the timer as triggered to prevent problems if the lisp |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3116 code fails to reschedule it right. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3117 vector[0] = Qt; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3118 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3119 /* Run the timer or queue a timer event. */ |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3120 if (1) |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3121 { |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3122 Lisp_Object tem, event; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3123 int was_locked = single_kboard; |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3124 int count = specpdl_ptr - specpdl; |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3125 |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3126 specbind (Qinhibit_quit, Qt); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3127 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3128 tem = get_keymap_1 (Vspecial_event_map, 0, 0); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3129 tem = get_keyelt (access_keymap (tem, Qtimer_event, 0, 0), |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3130 1); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3131 event = Fcons (Qtimer_event, Fcons (chosen_timer, Qnil)); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3132 Fcommand_execute (tem, Qnil, Fvector (1, &event), Qt); |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3133 timers_run++; |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3134 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3135 unbind_to (count, Qnil); |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3136 |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3137 /* Resume allowing input from any kboard, if that was true before. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3138 if (!was_locked) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3139 any_kboard_state (); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3140 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3141 /* Since we have handled the event, |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3142 we don't need to tell the caller to wake up and do it. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3143 } |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3144 #if 0 |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3145 else |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3146 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3147 /* Generate a timer event so the caller will handle it. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3148 struct input_event event; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3149 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3150 event.kind = timer_event; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3151 event.modifiers = 0; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3152 event.x = event.y = Qnil; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3153 event.timestamp = triggertime; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3154 /* Store the timer in the frame slot. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3155 event.frame_or_window |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3156 = Fcons (Fselected_frame (), chosen_timer); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3157 kbd_buffer_store_event (&event); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3158 |
14904
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
3159 last_timer_event = event; |
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
3160 |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3161 /* Tell caller to handle this event right away. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3162 events_generated = 1; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3163 EMACS_SET_SECS (nexttime, 0); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3164 EMACS_SET_USECS (nexttime, 0); |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3165 |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3166 /* Don't queue more than one event at once. |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3167 When Emacs is ready for another, it will |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3168 queue the next one. */ |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3169 UNGCPRO; |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3170 return nexttime; |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3171 } |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3172 #endif /* 0 */ |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3173 } |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3174 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3175 else |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3176 /* When we encounter a timer that is still waiting, |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3177 return the amount of time to wait before it is ripe. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3178 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3179 UNGCPRO; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3180 /* But if we generated an event, |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3181 tell the caller to handle it now. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3182 if (events_generated) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3183 return nexttime; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3184 return difference; |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3185 } |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3186 } |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3187 |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3188 /* No timers are pending in the future. */ |
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3189 /* Return 0 if we generated an event, and -1 if not. */ |
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3190 UNGCPRO; |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3191 return nexttime; |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3192 } |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3193 |
518 | 3194 /* Caches for modify_event_symbol. */ |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3195 static Lisp_Object accent_key_syms; |
518 | 3196 static Lisp_Object func_key_syms; |
3197 static Lisp_Object mouse_syms; | |
3198 | |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3199 /* This is a list of keysym codes for special "accent" characters. |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3200 It parallels lispy_accent_keys. */ |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3201 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3202 static int lispy_accent_codes[] = |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3203 { |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3204 #ifdef XK_dead_circumflex |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3205 XK_dead_circumflex, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3206 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3207 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3208 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3209 #ifdef XK_dead_grave |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3210 XK_dead_grave, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3211 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3212 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3213 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3214 #ifdef XK_dead_tilde |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3215 XK_dead_tilde, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3216 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3217 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3218 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3219 #ifdef XK_dead_diaeresis |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3220 XK_dead_diaeresis, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3221 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3222 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3223 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3224 #ifdef XK_dead_macron |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3225 XK_dead_macron, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3226 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3227 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3228 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3229 #ifdef XK_dead_degree |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3230 XK_dead_degree, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3231 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3232 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3233 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3234 #ifdef XK_dead_acute |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3235 XK_dead_acute, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3236 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3237 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3238 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3239 #ifdef XK_dead_cedilla |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3240 XK_dead_cedilla, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3241 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3242 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3243 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3244 #ifdef XK_dead_breve |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3245 XK_dead_breve, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3246 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3247 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3248 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3249 #ifdef XK_dead_ogonek |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3250 XK_dead_ogonek, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3251 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3252 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3253 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3254 #ifdef XK_dead_caron |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3255 XK_dead_caron, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3256 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3257 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3258 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3259 #ifdef XK_dead_doubleacute |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3260 XK_dead_doubleacute, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3261 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3262 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3263 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3264 #ifdef XK_dead_abovedot |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3265 XK_dead_abovedot, |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3266 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3267 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3268 #endif |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3269 }; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3270 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3271 /* This is a list of Lisp names for special "accent" characters. |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3272 It parallels lispy_accent_codes. */ |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3273 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3274 static char *lispy_accent_keys[] = |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3275 { |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3276 "dead-circumflex", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3277 "dead-grave", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3278 "dead-tilde", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3279 "dead-diaeresis", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3280 "dead-macron", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3281 "dead-degree", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3282 "dead-acute", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3283 "dead-cedilla", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3284 "dead-breve", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3285 "dead-ogonek", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3286 "dead-caron", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3287 "dead-doubleacute", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3288 "dead-abovedot", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3289 }; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3290 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3291 #ifdef HAVE_NTGUI |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3292 #define FUNCTION_KEY_OFFSET 0x0 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3293 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3294 char *lispy_function_keys[] = |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3295 { |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3296 0, /* 0 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3297 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3298 0, /* VK_LBUTTON 0x01 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3299 0, /* VK_RBUTTON 0x02 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3300 "cancel", /* VK_CANCEL 0x03 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3301 0, /* VK_MBUTTON 0x04 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3302 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3303 0, 0, 0, /* 0x05 .. 0x07 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3304 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3305 "backspace", /* VK_BACK 0x08 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3306 "tab", /* VK_TAB 0x09 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3307 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3308 0, 0, /* 0x0A .. 0x0B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3309 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3310 "clear", /* VK_CLEAR 0x0C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3311 "return", /* VK_RETURN 0x0D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3312 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3313 0, 0, /* 0x0E .. 0x0F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3314 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3315 "shift", /* VK_SHIFT 0x10 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3316 "control", /* VK_CONTROL 0x11 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3317 "menu", /* VK_MENU 0x12 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3318 "pause", /* VK_PAUSE 0x13 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3319 "capital", /* VK_CAPITAL 0x14 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3320 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3321 0, 0, 0, 0, 0, 0, /* 0x15 .. 0x1A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3322 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3323 0, /* VK_ESCAPE 0x1B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3324 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3325 0, 0, 0, 0, /* 0x1C .. 0x1F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3326 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3327 0, /* VK_SPACE 0x20 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3328 "prior", /* VK_PRIOR 0x21 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3329 "next", /* VK_NEXT 0x22 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3330 "end", /* VK_END 0x23 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3331 "home", /* VK_HOME 0x24 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3332 "left", /* VK_LEFT 0x25 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3333 "up", /* VK_UP 0x26 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3334 "right", /* VK_RIGHT 0x27 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3335 "down", /* VK_DOWN 0x28 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3336 "select", /* VK_SELECT 0x29 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3337 "print", /* VK_PRINT 0x2A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3338 "execute", /* VK_EXECUTE 0x2B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3339 "snapshot", /* VK_SNAPSHOT 0x2C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3340 "insert", /* VK_INSERT 0x2D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3341 "delete", /* VK_DELETE 0x2E */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3342 "help", /* VK_HELP 0x2F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3343 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3344 /* VK_0 thru VK_9 are the same as ASCII '0' thru '9' (0x30 - 0x39) */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3345 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3346 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3347 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3348 0, 0, 0, 0, 0, 0, 0, /* 0x3A .. 0x40 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3349 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3350 /* VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' (0x41 - 0x5A) */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3351 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3352 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3353 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3354 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3355 |
14550
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3356 "lwindow", /* VK_LWIN 0x5B */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3357 "rwindow", /* VK_RWIN 0x5C */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3358 "apps", /* VK_APPS 0x5D */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3359 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3360 0, 0, /* 0x5E .. 0x5F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3361 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3362 "kp-0", /* VK_NUMPAD0 0x60 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3363 "kp-1", /* VK_NUMPAD1 0x61 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3364 "kp-2", /* VK_NUMPAD2 0x62 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3365 "kp-3", /* VK_NUMPAD3 0x63 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3366 "kp-4", /* VK_NUMPAD4 0x64 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3367 "kp-5", /* VK_NUMPAD5 0x65 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3368 "kp-6", /* VK_NUMPAD6 0x66 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3369 "kp-7", /* VK_NUMPAD7 0x67 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3370 "kp-8", /* VK_NUMPAD8 0x68 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3371 "kp-9", /* VK_NUMPAD9 0x69 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3372 "kp-multiply", /* VK_MULTIPLY 0x6A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3373 "kp-add", /* VK_ADD 0x6B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3374 "kp-separator", /* VK_SEPARATOR 0x6C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3375 "kp-subtract", /* VK_SUBTRACT 0x6D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3376 "kp-decimal", /* VK_DECIMAL 0x6E */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3377 "kp-divide", /* VK_DIVIDE 0x6F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3378 "f1", /* VK_F1 0x70 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3379 "f2", /* VK_F2 0x71 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3380 "f3", /* VK_F3 0x72 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3381 "f4", /* VK_F4 0x73 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3382 "f5", /* VK_F5 0x74 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3383 "f6", /* VK_F6 0x75 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3384 "f7", /* VK_F7 0x76 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3385 "f8", /* VK_F8 0x77 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3386 "f9", /* VK_F9 0x78 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3387 "f10", /* VK_F10 0x79 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3388 "f11", /* VK_F11 0x7A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3389 "f12", /* VK_F12 0x7B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3390 "f13", /* VK_F13 0x7C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3391 "f14", /* VK_F14 0x7D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3392 "f15", /* VK_F15 0x7E */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3393 "f16", /* VK_F16 0x7F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3394 "f17", /* VK_F17 0x80 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3395 "f18", /* VK_F18 0x81 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3396 "f19", /* VK_F19 0x82 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3397 "f20", /* VK_F20 0x83 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3398 "f21", /* VK_F21 0x84 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3399 "f22", /* VK_F22 0x85 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3400 "f23", /* VK_F23 0x86 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3401 "f24", /* VK_F24 0x87 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3402 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3403 0, 0, 0, 0, /* 0x88 .. 0x8B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3404 0, 0, 0, 0, /* 0x8C .. 0x8F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3405 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3406 "kp-numlock", /* VK_NUMLOCK 0x90 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3407 "scroll", /* VK_SCROLL 0x91 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3408 |
14550
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3409 "kp-space", /* VK_NUMPAD_CLEAR 0x92 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3410 "kp-enter", /* VK_NUMPAD_ENTER 0x93 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3411 "kp-prior", /* VK_NUMPAD_PRIOR 0x94 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3412 "kp-next", /* VK_NUMPAD_NEXT 0x95 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3413 "kp-end", /* VK_NUMPAD_END 0x96 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3414 "kp-home", /* VK_NUMPAD_HOME 0x97 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3415 "kp-left", /* VK_NUMPAD_LEFT 0x98 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3416 "kp-up", /* VK_NUMPAD_UP 0x99 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3417 "kp-right", /* VK_NUMPAD_RIGHT 0x9A */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3418 "kp-down", /* VK_NUMPAD_DOWN 0x9B */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3419 "kp-insert", /* VK_NUMPAD_INSERT 0x9C */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3420 "kp-delete", /* VK_NUMPAD_DELETE 0x9D */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3421 |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3422 0, 0, /* 0x9E .. 0x9F */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
3423 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3424 /* |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3425 * VK_L* & VK_R* - left and right Alt, Ctrl and Shift virtual keys. |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3426 * Used only as parameters to GetAsyncKeyState() and GetKeyState(). |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3427 * No other API or message will distinguish left and right keys this way. |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3428 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3429 /* 0xA0 .. 0xEF */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3430 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3431 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3432 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3433 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3434 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3435 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3436 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3437 /* 0xF0 .. 0xF5 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3438 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3439 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3440 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3441 "attn", /* VK_ATTN 0xF6 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3442 "crsel", /* VK_CRSEL 0xF7 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3443 "exsel", /* VK_EXSEL 0xF8 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3444 "ereof", /* VK_EREOF 0xF9 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3445 "play", /* VK_PLAY 0xFA */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3446 "zoom", /* VK_ZOOM 0xFB */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3447 "noname", /* VK_NONAME 0xFC */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3448 "pa1", /* VK_PA1 0xFD */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3449 "oem_clear", /* VK_OEM_CLEAR 0xFE */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3450 }; |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3451 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3452 #else |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3453 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3454 #define FUNCTION_KEY_OFFSET 0xff00 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3455 |
518 | 3456 /* You'll notice that this table is arranged to be conveniently |
3457 indexed by X Windows keysym values. */ | |
3458 static char *lispy_function_keys[] = | |
3459 { | |
3460 /* X Keysym value */ | |
3461 | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3462 0, 0, 0, 0, 0, 0, 0, 0, /* 0xff00 */ |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3463 "backspace", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3464 "tab", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3465 "linefeed", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3466 "clear", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3467 0, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3468 "return", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3469 0, 0, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3470 0, 0, 0, /* 0xff10 */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3471 "pause", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3472 0, 0, 0, 0, 0, 0, 0, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3473 "escape", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3474 0, 0, 0, 0, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3475 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xff20...2f */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3476 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xff30...3f */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3477 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xff40...4f */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3478 |
518 | 3479 "home", /* 0xff50 */ /* IsCursorKey */ |
3480 "left", | |
3481 "up", | |
3482 "right", | |
3483 "down", | |
3484 "prior", | |
3485 "next", | |
3486 "end", | |
3487 "begin", | |
3488 0, /* 0xff59 */ | |
3489 0, 0, 0, 0, 0, 0, | |
3490 "select", /* 0xff60 */ /* IsMiscFunctionKey */ | |
3491 "print", | |
3492 "execute", | |
3493 "insert", | |
3494 0, /* 0xff64 */ | |
3495 "undo", | |
3496 "redo", | |
3497 "menu", | |
3498 "find", | |
3499 "cancel", | |
3500 "help", | |
3501 "break", /* 0xff6b */ | |
3502 | |
7587
efaee8861ad4
(read_char_minibuf_menu_prompt): Don't forget to initialize nobindings.
Richard M. Stallman <rms@gnu.org>
parents:
7547
diff
changeset
|
3503 0, 0, 0, 0, 0, 0, 0, 0, "backtab", 0, |
518 | 3504 0, /* 0xff76 */ |
3054
57814bb76b37
(lispy_function_keys): Add kp-numlock. Fix kp-backspace.
Richard M. Stallman <rms@gnu.org>
parents:
3042
diff
changeset
|
3505 0, 0, 0, 0, 0, 0, 0, 0, "kp-numlock", /* 0xff7f */ |
518 | 3506 "kp-space", /* 0xff80 */ /* IsKeypadKey */ |
3507 0, 0, 0, 0, 0, 0, 0, 0, | |
3508 "kp-tab", /* 0xff89 */ | |
3509 0, 0, 0, | |
3510 "kp-enter", /* 0xff8d */ | |
3511 0, 0, 0, | |
3512 "kp-f1", /* 0xff91 */ | |
3513 "kp-f2", | |
3514 "kp-f3", | |
3515 "kp-f4", | |
7547
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3516 "kp-home", /* 0xff95 */ |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3517 "kp-left", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3518 "kp-up", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3519 "kp-right", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3520 "kp-down", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3521 "kp-prior", /* kp-page-up */ |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3522 "kp-next", /* kp-page-down */ |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3523 "kp-end", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3524 "kp-begin", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3525 "kp-insert", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3526 "kp-delete", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3527 0, /* 0xffa0 */ |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
3528 0, 0, 0, 0, 0, 0, 0, 0, 0, |
518 | 3529 "kp-multiply", /* 0xffaa */ |
3530 "kp-add", | |
3531 "kp-separator", | |
3532 "kp-subtract", | |
3533 "kp-decimal", | |
3534 "kp-divide", /* 0xffaf */ | |
3535 "kp-0", /* 0xffb0 */ | |
3536 "kp-1", "kp-2", "kp-3", "kp-4", "kp-5", "kp-6", "kp-7", "kp-8", "kp-9", | |
3537 0, /* 0xffba */ | |
3538 0, 0, | |
3539 "kp-equal", /* 0xffbd */ | |
3540 "f1", /* 0xffbe */ /* IsFunctionKey */ | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3541 "f2", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3542 "f3", "f4", "f5", "f6", "f7", "f8", "f9", "f10", /* 0xffc0 */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3543 "f11", "f12", "f13", "f14", "f15", "f16", "f17", "f18", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3544 "f19", "f20", "f21", "f22", "f23", "f24", "f25", "f26", /* 0xffd0 */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3545 "f27", "f28", "f29", "f30", "f31", "f32", "f33", "f34", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3546 "f35", 0, 0, 0, 0, 0, 0, 0, /* 0xffe0 */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3547 0, 0, 0, 0, 0, 0, 0, 0, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3548 0, 0, 0, 0, 0, 0, 0, 0, /* 0xfff0 */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3549 0, 0, 0, 0, 0, 0, 0, "delete" |
518 | 3550 }; |
3551 | |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3552 #endif /* HAVE_NTGUI */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3553 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
3554 static char *lispy_mouse_names[] = |
518 | 3555 { |
3556 "mouse-1", "mouse-2", "mouse-3", "mouse-4", "mouse-5" | |
3557 }; | |
3558 | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
3559 /* Scroll bar parts. */ |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3560 Lisp_Object Qabove_handle, Qhandle, Qbelow_handle; |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3561 Lisp_Object Qup, Qdown; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3562 |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
3563 /* An array of scroll bar parts, indexed by an enum scroll_bar_part value. */ |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
3564 Lisp_Object *scroll_bar_parts[] = { |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3565 &Qabove_handle, &Qhandle, &Qbelow_handle, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3566 &Qup, &Qdown, |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3567 }; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3568 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3569 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3570 /* A vector, indexed by button number, giving the down-going location |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
3571 of currently depressed buttons, both scroll bar and non-scroll bar. |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3572 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3573 The elements have the form |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3574 (BUTTON-NUMBER MODIFIER-MASK . REST) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3575 where REST is the cdr of a position as it would be reported in the event. |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3576 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3577 The make_lispy_event function stores positions here to tell the |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3578 difference between click and drag events, and to store the starting |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3579 location to be included in drag events. */ |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3580 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3581 static Lisp_Object button_down_location; |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3582 |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3583 /* Information about the most recent up-going button event: Which |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3584 button, what location, and what time. */ |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3585 |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3586 static int last_mouse_button; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3587 static int last_mouse_x; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3588 static int last_mouse_y; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3589 static unsigned long button_down_time; |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3590 |
3993
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
3591 /* The maximum time between clicks to make a double-click, |
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
3592 or Qnil to disable double-click detection, |
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
3593 or Qt for no time limit. */ |
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
3594 Lisp_Object Vdouble_click_time; |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3595 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3596 /* The number of clicks in this multiple-click. */ |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3597 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3598 int double_click_count; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3599 |
518 | 3600 /* Given a struct input_event, build the lisp event which represents |
3601 it. If EVENT is 0, build a mouse movement event from the mouse | |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3602 movement buffer, which should have a movement event in it. |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3603 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3604 Note that events must be passed to this function in the order they |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3605 are received; this function stores the location of button presses |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3606 in order to build drag events when the button is released. */ |
518 | 3607 |
3608 static Lisp_Object | |
3609 make_lispy_event (event) | |
3610 struct input_event *event; | |
3611 { | |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3612 int i; |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3613 |
10457
2ab3bd0288a9
Change all occurences of SWITCH_ENUM_BUG to use SWITCH_ENUM_CAST instead.
Karl Heuer <kwzh@gnu.org>
parents:
10433
diff
changeset
|
3614 switch (SWITCH_ENUM_CAST (event->kind)) |
518 | 3615 { |
3616 /* A simple keystroke. */ | |
3617 case ascii_keystroke: | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3618 { |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
3619 Lisp_Object lispy_c; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3620 int c = event->code & 0377; |
2867
5b72eb2483e7
* xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents:
2789
diff
changeset
|
3621 /* Turn ASCII characters into control characters |
5b72eb2483e7
* xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents:
2789
diff
changeset
|
3622 when proper. */ |
5b72eb2483e7
* xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents:
2789
diff
changeset
|
3623 if (event->modifiers & ctrl_modifier) |
2954
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
3624 c = make_ctrl_char (c); |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
3625 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
3626 /* Add in the other modifier bits. We took care of ctrl_modifier |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
3627 just above, and the shift key was taken care of by the X code, |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
3628 and applied to control characters by make_ctrl_char. */ |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3629 c |= (event->modifiers |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3630 & (meta_modifier | alt_modifier |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3631 | hyper_modifier | super_modifier)); |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3632 button_down_time = 0; |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
3633 XSETFASTINT (lispy_c, c); |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
3634 return lispy_c; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3635 } |
518 | 3636 |
3637 /* A function key. The symbol may need to have modifier prefixes | |
3638 tacked onto it. */ | |
3639 case non_ascii_keystroke: | |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3640 button_down_time = 0; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3641 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3642 for (i = 0; i < sizeof (lispy_accent_codes) / sizeof (int); i++) |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3643 if (event->code == lispy_accent_codes[i]) |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3644 return modify_event_symbol (i, |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3645 event->modifiers, |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3646 Qfunction_key, Qnil, |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3647 lispy_accent_keys, &accent_key_syms, |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3648 (sizeof (lispy_accent_keys) |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3649 / sizeof (lispy_accent_keys[0]))); |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3650 |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
3651 /* Handle system-specific keysyms. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3652 if (event->code & (1 << 28)) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3653 { |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3654 /* We need to use an alist rather than a vector as the cache |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3655 since we can't make a vector long enuf. */ |
12176
3e14d94320f2
(system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12173
diff
changeset
|
3656 if (NILP (current_kboard->system_key_syms)) |
3e14d94320f2
(system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12173
diff
changeset
|
3657 current_kboard->system_key_syms = Fcons (Qnil, Qnil); |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
3658 return modify_event_symbol (event->code, |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3659 event->modifiers, |
11543
317e5825008b
(Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents:
11540
diff
changeset
|
3660 Qfunction_key, |
317e5825008b
(Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents:
11540
diff
changeset
|
3661 current_kboard->Vsystem_key_alist, |
12176
3e14d94320f2
(system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12173
diff
changeset
|
3662 0, ¤t_kboard->system_key_syms, |
3e14d94320f2
(system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12173
diff
changeset
|
3663 (unsigned)-1); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3664 } |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3665 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3666 return modify_event_symbol (event->code - FUNCTION_KEY_OFFSET, |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3667 event->modifiers, |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3668 Qfunction_key, Qnil, |
518 | 3669 lispy_function_keys, &func_key_syms, |
3670 (sizeof (lispy_function_keys) | |
3671 / sizeof (lispy_function_keys[0]))); | |
3672 break; | |
3673 | |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3674 /* Note that timer_event is currently never used. */ |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3675 case timer_event: |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3676 return Fcons (Qtimer_event, Fcons (Fcdr (event->frame_or_window), Qnil)); |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3677 |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
3678 #ifdef HAVE_MOUSE |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
3679 /* A mouse click. Figure out where it is, decide whether it's |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3680 a press, click or drag, and build the appropriate structure. */ |
518 | 3681 case mouse_click: |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
3682 case scroll_bar_click: |
518 | 3683 { |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3684 int button = event->code; |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3685 int is_double; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3686 Lisp_Object position; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3687 Lisp_Object *start_pos_ptr; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3688 Lisp_Object start_pos; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3689 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3690 if (button < 0 || button >= NUM_MOUSE_BUTTONS) |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3691 abort (); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3692 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3693 /* Build the position as appropriate for this mouse click. */ |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3694 if (event->kind == mouse_click) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3695 { |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3696 int part; |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3697 FRAME_PTR f = XFRAME (event->frame_or_window); |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
3698 Lisp_Object window; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3699 Lisp_Object posn; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3700 int row, column; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3701 |
7351
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
3702 /* Ignore mouse events that were made on frame that |
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
3703 have been deleted. */ |
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
3704 if (! FRAME_LIVE_P (f)) |
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
3705 return Qnil; |
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
3706 |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3707 pixel_to_glyph_coords (f, XINT (event->x), XINT (event->y), |
12007
4179378fa410
(make_lispy_event, make_lispy_movement):
Karl Heuer <kwzh@gnu.org>
parents:
11993
diff
changeset
|
3708 &column, &row, NULL, 1); |
10275
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
3709 |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
3710 #ifndef USE_X_TOOLKIT |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
3711 /* In the non-toolkit version, clicks on the menu bar |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
3712 are ordinary button events in the event buffer. |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
3713 Distinguish them, and invoke the menu. |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
3714 |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
3715 (In the toolkit version, the toolkit handles the menu bar |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
3716 and Emacs doesn't know about it until after the user |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
3717 makes a selection.) */ |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
3718 if (row >= 0 && row < FRAME_MENU_BAR_LINES (f) |
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
3719 && (event->modifiers & down_modifier)) |
5684
6479e0eabb27
* keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5674
diff
changeset
|
3720 { |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3721 Lisp_Object items, item; |
8169
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
3722 int hpos; |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
3723 int i; |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
3724 |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
3725 #if 0 |
8169
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
3726 /* Activate the menu bar on the down event. If the |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
3727 up event comes in before the menu code can deal with it, |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
3728 just ignore it. */ |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
3729 if (! (event->modifiers & down_modifier)) |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
3730 return Qnil; |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
3731 #endif |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
3732 |
6812
ba2176fd811c
(make_lispy_event): Initialize item.
Karl Heuer <kwzh@gnu.org>
parents:
6805
diff
changeset
|
3733 item = Qnil; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3734 items = FRAME_MENU_BAR_ITEMS (f); |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
3735 for (i = 0; i < XVECTOR (items)->size; i += 4) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3736 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3737 Lisp_Object pos, string; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3738 string = XVECTOR (items)->contents[i + 1]; |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
3739 pos = XVECTOR (items)->contents[i + 3]; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3740 if (NILP (string)) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3741 break; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3742 if (column >= XINT (pos) |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3743 && column < XINT (pos) + XSTRING (string)->size) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3744 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3745 item = XVECTOR (items)->contents[i]; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3746 break; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3747 } |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3748 } |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3749 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3750 position |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3751 = Fcons (event->frame_or_window, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3752 Fcons (Qmenu_bar, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3753 Fcons (Fcons (event->x, event->y), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3754 Fcons (make_number (event->timestamp), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3755 Qnil)))); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3756 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3757 return Fcons (item, Fcons (position, Qnil)); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3758 } |
10275
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
3759 #endif /* not USE_X_TOOLKIT */ |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
3760 |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3761 window = window_from_coordinates (f, column, row, &part); |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
3762 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
3763 if (!WINDOWP (window)) |
8432
ebb72cf97695
(make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents:
8418
diff
changeset
|
3764 { |
ebb72cf97695
(make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents:
8418
diff
changeset
|
3765 window = event->frame_or_window; |
ebb72cf97695
(make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents:
8418
diff
changeset
|
3766 posn = Qnil; |
ebb72cf97695
(make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents:
8418
diff
changeset
|
3767 } |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3768 else |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3769 { |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3770 int pixcolumn, pixrow; |
16253
3ea02d461499
(make_lispy_event): When converting from pixel to glyph coordinates,
Richard M. Stallman <rms@gnu.org>
parents:
16229
diff
changeset
|
3771 column -= WINDOW_LEFT_MARGIN (XWINDOW (window)); |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3772 row -= XINT (XWINDOW (window)->top); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3773 glyph_to_pixel_coords (f, column, row, &pixcolumn, &pixrow); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3774 XSETINT (event->x, pixcolumn); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3775 XSETINT (event->y, pixrow); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3776 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3777 if (part == 1) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3778 posn = Qmode_line; |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3779 else if (part == 2) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3780 posn = Qvertical_line; |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3781 else |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
3782 XSETINT (posn, |
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
3783 buffer_posn_from_coords (XWINDOW (window), |
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
3784 column, row)); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3785 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3786 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3787 position |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3788 = Fcons (window, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3789 Fcons (posn, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3790 Fcons (Fcons (event->x, event->y), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3791 Fcons (make_number (event->timestamp), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3792 Qnil)))); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3793 } |
518 | 3794 else |
3795 { | |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3796 Lisp_Object window; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3797 Lisp_Object portion_whole; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3798 Lisp_Object part; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3799 |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3800 window = event->frame_or_window; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3801 portion_whole = Fcons (event->x, event->y); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
3802 part = *scroll_bar_parts[(int) event->part]; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3803 |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3804 position |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3805 = Fcons (window, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3806 Fcons (Qvertical_scroll_bar, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3807 Fcons (portion_whole, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3808 Fcons (make_number (event->timestamp), |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3809 Fcons (part, Qnil))))); |
518 | 3810 } |
3811 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3812 start_pos_ptr = &XVECTOR (button_down_location)->contents[button]; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3813 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3814 start_pos = *start_pos_ptr; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3815 *start_pos_ptr = Qnil; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3816 |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3817 is_double = (button == last_mouse_button |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3818 && XINT (event->x) == last_mouse_x |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3819 && XINT (event->y) == last_mouse_y |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3820 && button_down_time != 0 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3821 && (EQ (Vdouble_click_time, Qt) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3822 || (INTEGERP (Vdouble_click_time) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3823 && ((int)(event->timestamp - button_down_time) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3824 < XINT (Vdouble_click_time))))); |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3825 last_mouse_button = button; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3826 last_mouse_x = XINT (event->x); |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3827 last_mouse_y = XINT (event->y); |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3828 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3829 /* If this is a button press, squirrel away the location, so |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3830 we can decide later whether it was a click or a drag. */ |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3831 if (event->modifiers & down_modifier) |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3832 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3833 if (is_double) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3834 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3835 double_click_count++; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3836 event->modifiers |= ((double_click_count > 2) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3837 ? triple_modifier |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3838 : double_modifier); |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3839 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3840 else |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3841 double_click_count = 1; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3842 button_down_time = event->timestamp; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3843 *start_pos_ptr = Fcopy_alist (position); |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3844 } |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3845 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3846 /* Now we're releasing a button - check the co-ordinates to |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3847 see if this was a click or a drag. */ |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3848 else if (event->modifiers & up_modifier) |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3849 { |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3850 /* If we did not see a down before this up, |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3851 ignore the up. Probably this happened because |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3852 the down event chose a menu item. |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3853 It would be an annoyance to treat the release |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3854 of the button that chose the menu item |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3855 as a separate event. */ |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3856 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
3857 if (!CONSP (start_pos)) |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3858 return Qnil; |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3859 |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3860 event->modifiers &= ~up_modifier; |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3861 #if 0 /* Formerly we treated an up with no down as a click event. */ |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
3862 if (!CONSP (start_pos)) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3863 event->modifiers |= click_modifier; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3864 else |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3865 #endif |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3866 { |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3867 /* The third element of every position should be the (x,y) |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3868 pair. */ |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3869 Lisp_Object down; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3870 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3871 down = Fnth (make_number (2), start_pos); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3872 if (EQ (event->x, XCONS (down)->car) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3873 && EQ (event->y, XCONS (down)->cdr)) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3874 { |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
3875 event->modifiers |= click_modifier; |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3876 } |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3877 else |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3878 { |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
3879 button_down_time = 0; |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3880 event->modifiers |= drag_modifier; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3881 } |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
3882 /* Don't check is_double; treat this as multiple |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
3883 if the down-event was multiple. */ |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
3884 if (double_click_count > 1) |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
3885 event->modifiers |= ((double_click_count > 2) |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
3886 ? triple_modifier |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
3887 : double_modifier); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3888 } |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3889 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3890 else |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3891 /* Every mouse event should either have the down_modifier or |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3892 the up_modifier set. */ |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3893 abort (); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3894 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3895 { |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3896 /* Get the symbol we should use for the mouse click. */ |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3897 Lisp_Object head; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3898 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3899 head = modify_event_symbol (button, |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3900 event->modifiers, |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3901 Qmouse_click, Qnil, |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3902 lispy_mouse_names, &mouse_syms, |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3903 (sizeof (lispy_mouse_names) |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3904 / sizeof (lispy_mouse_names[0]))); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3905 if (event->modifiers & drag_modifier) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3906 return Fcons (head, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3907 Fcons (start_pos, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3908 Fcons (position, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
3909 Qnil))); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3910 else if (event->modifiers & (double_modifier | triple_modifier)) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3911 return Fcons (head, |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3912 Fcons (position, |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3913 Fcons (make_number (double_click_count), |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3914 Qnil))); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3915 else |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3916 return Fcons (head, |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3917 Fcons (position, |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3918 Qnil)); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3919 } |
518 | 3920 } |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3921 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3922 #ifdef WINDOWSNT |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16504
diff
changeset
|
3923 case w32_scroll_bar_click: |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3924 { |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3925 int button = event->code; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3926 int is_double; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3927 Lisp_Object position; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3928 Lisp_Object *start_pos_ptr; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3929 Lisp_Object start_pos; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3930 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3931 if (button < 0 || button >= NUM_MOUSE_BUTTONS) |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3932 abort (); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3933 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3934 { |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3935 Lisp_Object window; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3936 Lisp_Object portion_whole; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3937 Lisp_Object part; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3938 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3939 window = event->frame_or_window; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3940 portion_whole = Fcons (event->x, event->y); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3941 part = *scroll_bar_parts[(int) event->part]; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3942 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3943 position = |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3944 Fcons (window, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3945 Fcons (Qvertical_scroll_bar, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3946 Fcons (portion_whole, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3947 Fcons (make_number (event->timestamp), |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3948 Fcons (part, Qnil))))); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3949 } |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3950 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16504
diff
changeset
|
3951 /* Always treat W32 scroll bar events as clicks. */ |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3952 event->modifiers |= click_modifier; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3953 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3954 { |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3955 /* Get the symbol we should use for the mouse click. */ |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3956 Lisp_Object head; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3957 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3958 head = modify_event_symbol (button, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3959 event->modifiers, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3960 Qmouse_click, Qnil, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3961 lispy_mouse_names, &mouse_syms, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3962 (sizeof (lispy_mouse_names) |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3963 / sizeof (lispy_mouse_names[0]))); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3964 return Fcons (head, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3965 Fcons (position, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3966 Qnil)); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3967 } |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3968 } |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3969 #endif |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
3970 |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
3971 #endif /* HAVE_MOUSE */ |
518 | 3972 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3973 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) |
11285
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
3974 case menu_bar_event: |
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
3975 /* The event value is in the cdr of the frame_or_window slot. */ |
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
3976 if (!CONSP (event->frame_or_window)) |
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
3977 abort (); |
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
3978 return XCONS (event->frame_or_window)->cdr; |
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
3979 #endif |
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
3980 |
518 | 3981 /* The 'kind' field of the event is something we don't recognize. */ |
3982 default: | |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3983 abort (); |
518 | 3984 } |
3985 } | |
3986 | |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
3987 #ifdef HAVE_MOUSE |
6805
8310b2eb6b06
(make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents:
6749
diff
changeset
|
3988 |
518 | 3989 static Lisp_Object |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3990 make_lispy_movement (frame, bar_window, part, x, y, time) |
765 | 3991 FRAME_PTR frame; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3992 Lisp_Object bar_window; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
3993 enum scroll_bar_part part; |
518 | 3994 Lisp_Object x, y; |
732 | 3995 unsigned long time; |
518 | 3996 { |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
3997 /* Is it a scroll bar movement? */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3998 if (frame && ! NILP (bar_window)) |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3999 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4000 Lisp_Object part_sym; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4001 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4002 part_sym = *scroll_bar_parts[(int) part]; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
4003 return Fcons (Qscroll_bar_movement, |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4004 (Fcons (Fcons (bar_window, |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
4005 Fcons (Qvertical_scroll_bar, |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4006 Fcons (Fcons (x, y), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4007 Fcons (make_number (time), |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
4008 Fcons (part_sym, |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4009 Qnil))))), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4010 Qnil))); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4011 } |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4012 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4013 /* Or is it an ordinary mouse movement? */ |
518 | 4014 else |
4015 { | |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4016 int area; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4017 Lisp_Object window; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4018 Lisp_Object posn; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4019 int column, row; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4020 |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4021 if (frame) |
7345
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
4022 { |
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
4023 /* It's in a frame; which window on that frame? */ |
12007
4179378fa410
(make_lispy_event, make_lispy_movement):
Karl Heuer <kwzh@gnu.org>
parents:
11993
diff
changeset
|
4024 pixel_to_glyph_coords (frame, XINT (x), XINT (y), &column, &row, |
4179378fa410
(make_lispy_event, make_lispy_movement):
Karl Heuer <kwzh@gnu.org>
parents:
11993
diff
changeset
|
4025 NULL, 1); |
7345
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
4026 window = window_from_coordinates (frame, column, row, &area); |
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
4027 } |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4028 else |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4029 window = Qnil; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4030 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4031 if (WINDOWP (window)) |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4032 { |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4033 int pixcolumn, pixrow; |
16253
3ea02d461499
(make_lispy_event): When converting from pixel to glyph coordinates,
Richard M. Stallman <rms@gnu.org>
parents:
16229
diff
changeset
|
4034 column -= WINDOW_LEFT_MARGIN (XWINDOW (window)); |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4035 row -= XINT (XWINDOW (window)->top); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4036 glyph_to_pixel_coords (frame, column, row, &pixcolumn, &pixrow); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4037 XSETINT (x, pixcolumn); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4038 XSETINT (y, pixrow); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4039 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4040 if (area == 1) |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4041 posn = Qmode_line; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4042 else if (area == 2) |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4043 posn = Qvertical_line; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4044 else |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
4045 XSETINT (posn, |
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
4046 buffer_posn_from_coords (XWINDOW (window), column, row)); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4047 } |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4048 else if (frame != 0) |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4049 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
4050 XSETFRAME (window, frame); |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4051 posn = Qnil; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4052 } |
518 | 4053 else |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4054 { |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4055 window = Qnil; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4056 posn = Qnil; |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
4057 XSETFASTINT (x, 0); |
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
4058 XSETFASTINT (y, 0); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4059 } |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4060 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4061 return Fcons (Qmouse_movement, |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4062 Fcons (Fcons (window, |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4063 Fcons (posn, |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4064 Fcons (Fcons (x, y), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4065 Fcons (make_number (time), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4066 Qnil)))), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4067 Qnil)); |
518 | 4068 } |
4069 } | |
4070 | |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
4071 #endif /* HAVE_MOUSE */ |
6805
8310b2eb6b06
(make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents:
6749
diff
changeset
|
4072 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4073 /* Construct a switch frame event. */ |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4074 static Lisp_Object |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4075 make_lispy_switch_frame (frame) |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4076 Lisp_Object frame; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4077 { |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4078 return Fcons (Qswitch_frame, Fcons (frame, Qnil)); |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4079 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4080 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4081 /* Manipulating modifiers. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4082 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4083 /* Parse the name of SYMBOL, and return the set of modifiers it contains. |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4084 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4085 If MODIFIER_END is non-zero, set *MODIFIER_END to the position in |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4086 SYMBOL's name of the end of the modifiers; the string from this |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4087 position is the unmodified symbol name. |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4088 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4089 This doesn't use any caches. */ |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4090 |
518 | 4091 static int |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4092 parse_modifiers_uncached (symbol, modifier_end) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4093 Lisp_Object symbol; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4094 int *modifier_end; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4095 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4096 struct Lisp_String *name; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4097 int i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4098 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4099 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4100 CHECK_SYMBOL (symbol, 1); |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
4101 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4102 modifiers = 0; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4103 name = XSYMBOL (symbol)->name; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4104 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4105 for (i = 0; i+2 <= name->size; ) |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4106 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4107 int this_mod_end = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4108 int this_mod = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4109 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4110 /* See if the name continues with a modifier word. |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4111 Check that the word appears, but don't check what follows it. |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4112 Set this_mod and this_mod_end to record what we find. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4113 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4114 switch (name->data[i]) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4115 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4116 #define SINGLE_LETTER_MOD(BIT) \ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4117 (this_mod_end = i + 1, this_mod = BIT) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4118 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4119 case 'A': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4120 SINGLE_LETTER_MOD (alt_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4121 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4122 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4123 case 'C': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4124 SINGLE_LETTER_MOD (ctrl_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4125 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4126 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4127 case 'H': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4128 SINGLE_LETTER_MOD (hyper_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4129 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4130 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4131 case 'M': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4132 SINGLE_LETTER_MOD (meta_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4133 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4134 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4135 case 'S': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4136 SINGLE_LETTER_MOD (shift_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4137 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4138 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4139 case 's': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4140 SINGLE_LETTER_MOD (super_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4141 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4142 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4143 #undef SINGLE_LETTER_MOD |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4144 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4145 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4146 /* If we found no modifier, stop looking for them. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4147 if (this_mod_end == 0) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4148 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4149 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4150 /* Check there is a dash after the modifier, so that it |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4151 really is a modifier. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4152 if (this_mod_end >= name->size || name->data[this_mod_end] != '-') |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4153 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4154 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4155 /* This modifier is real; look for another. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4156 modifiers |= this_mod; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4157 i = this_mod_end + 1; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4158 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4159 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4160 /* Should we include the `click' modifier? */ |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4161 if (! (modifiers & (down_modifier | drag_modifier |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4162 | double_modifier | triple_modifier)) |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4163 && i + 7 == name->size |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4164 && strncmp (name->data + i, "mouse-", 6) == 0 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
4165 && ('0' <= name->data[i + 6] && name->data[i + 6] <= '9')) |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4166 modifiers |= click_modifier; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4167 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4168 if (modifier_end) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4169 *modifier_end = i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4170 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4171 return modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4172 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4173 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4174 /* Return a symbol whose name is the modifier prefixes for MODIFIERS |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4175 prepended to the string BASE[0..BASE_LEN-1]. |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4176 This doesn't use any caches. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4177 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4178 apply_modifiers_uncached (modifiers, base, base_len) |
518 | 4179 int modifiers; |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4180 char *base; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4181 int base_len; |
518 | 4182 { |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4183 /* Since BASE could contain nulls, we can't use intern here; we have |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4184 to use Fintern, which expects a genuine Lisp_String, and keeps a |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4185 reference to it. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4186 char *new_mods = |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4187 (char *) alloca (sizeof ("A-C-H-M-S-s-down-drag-double-triple-")); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4188 int mod_len; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4189 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4190 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4191 char *p = new_mods; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4192 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4193 /* Only the event queue may use the `up' modifier; it should always |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4194 be turned into a click or drag event before presented to lisp code. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4195 if (modifiers & up_modifier) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4196 abort (); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4197 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4198 if (modifiers & alt_modifier) { *p++ = 'A'; *p++ = '-'; } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4199 if (modifiers & ctrl_modifier) { *p++ = 'C'; *p++ = '-'; } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4200 if (modifiers & hyper_modifier) { *p++ = 'H'; *p++ = '-'; } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4201 if (modifiers & meta_modifier) { *p++ = 'M'; *p++ = '-'; } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4202 if (modifiers & shift_modifier) { *p++ = 'S'; *p++ = '-'; } |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4203 if (modifiers & super_modifier) { *p++ = 's'; *p++ = '-'; } |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4204 if (modifiers & double_modifier) { strcpy (p, "double-"); p += 7; } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4205 if (modifiers & triple_modifier) { strcpy (p, "triple-"); p += 7; } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4206 if (modifiers & down_modifier) { strcpy (p, "down-"); p += 5; } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4207 if (modifiers & drag_modifier) { strcpy (p, "drag-"); p += 5; } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4208 /* The click modifier is denoted by the absence of other modifiers. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4209 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4210 *p = '\0'; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4211 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4212 mod_len = p - new_mods; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4213 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4214 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4215 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4216 Lisp_Object new_name; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
4217 |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4218 new_name = make_uninit_string (mod_len + base_len); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4219 bcopy (new_mods, XSTRING (new_name)->data, mod_len); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4220 bcopy (base, XSTRING (new_name)->data + mod_len, base_len); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4221 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4222 return Fintern (new_name, Qnil); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4223 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4224 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4225 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4226 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4227 static char *modifier_names[] = |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4228 { |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4229 "up", "down", "drag", "click", "double", "triple", 0, 0, |
12946
271dc8563a91
(modifier_names): Add 4 bits to modifier bit positions.
Richard M. Stallman <rms@gnu.org>
parents:
12919
diff
changeset
|
4230 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4231 0, 0, "alt", "super", "hyper", "shift", "control", "meta" |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4232 }; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
4233 #define NUM_MOD_NAMES (sizeof (modifier_names) / sizeof (modifier_names[0])) |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4234 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4235 static Lisp_Object modifier_symbols; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4236 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4237 /* Return the list of modifier symbols corresponding to the mask MODIFIERS. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4238 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4239 lispy_modifier_list (modifiers) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4240 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4241 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4242 Lisp_Object modifier_list; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4243 int i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4244 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4245 modifier_list = Qnil; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
4246 for (i = 0; (1<<i) <= modifiers && i < NUM_MOD_NAMES; i++) |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4247 if (modifiers & (1<<i)) |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
4248 modifier_list = Fcons (XVECTOR (modifier_symbols)->contents[i], |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
4249 modifier_list); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4250 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4251 return modifier_list; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4252 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4253 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4254 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4255 /* Parse the modifiers on SYMBOL, and return a list like (UNMODIFIED MASK), |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4256 where UNMODIFIED is the unmodified form of SYMBOL, |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4257 MASK is the set of modifiers present in SYMBOL's name. |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4258 This is similar to parse_modifiers_uncached, but uses the cache in |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4259 SYMBOL's Qevent_symbol_element_mask property, and maintains the |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4260 Qevent_symbol_elements property. */ |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4261 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4262 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4263 parse_modifiers (symbol) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4264 Lisp_Object symbol; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4265 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4266 Lisp_Object elements; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4267 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4268 elements = Fget (symbol, Qevent_symbol_element_mask); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4269 if (CONSP (elements)) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4270 return elements; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4271 else |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4272 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4273 int end; |
11682
7eda6c1f3d5e
(parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
11671
diff
changeset
|
4274 int modifiers = parse_modifiers_uncached (symbol, &end); |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4275 Lisp_Object unmodified; |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4276 Lisp_Object mask; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4277 |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4278 unmodified = Fintern (make_string (XSYMBOL (symbol)->name->data + end, |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4279 XSYMBOL (symbol)->name->size - end), |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4280 Qnil); |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4281 |
11682
7eda6c1f3d5e
(parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
11671
diff
changeset
|
4282 if (modifiers & ~(((EMACS_INT)1 << VALBITS) - 1)) |
2436
80aafda1127b
* keyboard.c (parse_modifiers, apply_modifiers): Make sure we're
Jim Blandy <jimb@redhat.com>
parents:
2434
diff
changeset
|
4283 abort (); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
4284 XSETFASTINT (mask, modifiers); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4285 elements = Fcons (unmodified, Fcons (mask, Qnil)); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4286 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4287 /* Cache the parsing results on SYMBOL. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4288 Fput (symbol, Qevent_symbol_element_mask, |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4289 elements); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4290 Fput (symbol, Qevent_symbol_elements, |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4291 Fcons (unmodified, lispy_modifier_list (modifiers))); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4292 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4293 /* Since we know that SYMBOL is modifiers applied to unmodified, |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4294 it would be nice to put that in unmodified's cache. |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4295 But we can't, since we're not sure that parse_modifiers is |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4296 canonical. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4297 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4298 return elements; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4299 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4300 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4301 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4302 /* Apply the modifiers MODIFIERS to the symbol BASE. |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4303 BASE must be unmodified. |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4304 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4305 This is like apply_modifiers_uncached, but uses BASE's |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4306 Qmodifier_cache property, if present. It also builds |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4307 Qevent_symbol_elements properties, since it has that info anyway. |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4308 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4309 apply_modifiers copies the value of BASE's Qevent_kind property to |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4310 the modified symbol. */ |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4311 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4312 apply_modifiers (modifiers, base) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4313 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4314 Lisp_Object base; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4315 { |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4316 Lisp_Object cache, index, entry, new_symbol; |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4317 |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
4318 /* Mask out upper bits. We don't know where this value's been. */ |
11682
7eda6c1f3d5e
(parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
11671
diff
changeset
|
4319 modifiers &= ((EMACS_INT)1 << VALBITS) - 1; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
4320 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4321 /* The click modifier never figures into cache indices. */ |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4322 cache = Fget (base, Qmodifier_cache); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
4323 XSETFASTINT (index, (modifiers & ~click_modifier)); |
7999
f1837249c67f
(apply_modifiers): Use assq_no_quit.
Richard M. Stallman <rms@gnu.org>
parents:
7957
diff
changeset
|
4324 entry = assq_no_quit (index, cache); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4325 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4326 if (CONSP (entry)) |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4327 new_symbol = XCONS (entry)->cdr; |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4328 else |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4329 { |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
4330 /* We have to create the symbol ourselves. */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4331 new_symbol = apply_modifiers_uncached (modifiers, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4332 XSYMBOL (base)->name->data, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4333 XSYMBOL (base)->name->size); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4334 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4335 /* Add the new symbol to the base's cache. */ |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4336 entry = Fcons (index, new_symbol); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4337 Fput (base, Qmodifier_cache, Fcons (entry, cache)); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4338 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4339 /* We have the parsing info now for free, so add it to the caches. */ |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
4340 XSETFASTINT (index, modifiers); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4341 Fput (new_symbol, Qevent_symbol_element_mask, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4342 Fcons (base, Fcons (index, Qnil))); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4343 Fput (new_symbol, Qevent_symbol_elements, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4344 Fcons (base, lispy_modifier_list (modifiers))); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4345 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4346 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
4347 /* Make sure this symbol is of the same kind as BASE. |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4348 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4349 You'd think we could just set this once and for all when we |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4350 intern the symbol above, but reorder_modifiers may call us when |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4351 BASE's property isn't set right; we can't assume that just |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
4352 because it has a Qmodifier_cache property it must have its |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
4353 Qevent_kind set right as well. */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4354 if (NILP (Fget (new_symbol, Qevent_kind))) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4355 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4356 Lisp_Object kind; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4357 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4358 kind = Fget (base, Qevent_kind); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4359 if (! NILP (kind)) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4360 Fput (new_symbol, Qevent_kind, kind); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4361 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4362 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4363 return new_symbol; |
518 | 4364 } |
4365 | |
4366 | |
4367 /* Given a symbol whose name begins with modifiers ("C-", "M-", etc), | |
4368 return a symbol with the modifiers placed in the canonical order. | |
1239
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
4369 Canonical order is alphabetical, except for down and drag, which |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4370 always come last. The 'click' modifier is never written out. |
518 | 4371 |
4372 Fdefine_key calls this to make sure that (for example) C-M-foo | |
4373 and M-C-foo end up being equivalent in the keymap. */ | |
4374 | |
4375 Lisp_Object | |
4376 reorder_modifiers (symbol) | |
4377 Lisp_Object symbol; | |
4378 { | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4379 /* It's hopefully okay to write the code this way, since everything |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4380 will soon be in caches, and no consing will be done at all. */ |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4381 Lisp_Object parsed; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4382 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4383 parsed = parse_modifiers (symbol); |
11671
8d81f3c6a0b5
(reorder_modifiers): Cast apply_modifiers arg to int.
Richard M. Stallman <rms@gnu.org>
parents:
11670
diff
changeset
|
4384 return apply_modifiers ((int) XINT (XCONS (XCONS (parsed)->cdr)->car), |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4385 XCONS (parsed)->car); |
518 | 4386 } |
4387 | |
4388 | |
4389 /* For handling events, we often want to produce a symbol whose name | |
4390 is a series of modifier key prefixes ("M-", "C-", etcetera) attached | |
4391 to some base, like the name of a function key or mouse button. | |
4392 modify_event_symbol produces symbols of this sort. | |
4393 | |
4394 NAME_TABLE should point to an array of strings, such that NAME_TABLE[i] | |
4395 is the name of the i'th symbol. TABLE_SIZE is the number of elements | |
4396 in the table. | |
4397 | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4398 Alternatively, NAME_ALIST is an alist mapping codes into symbol names. |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4399 NAME_ALIST is used if it is non-nil; otherwise NAME_TABLE is used. |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4400 |
518 | 4401 SYMBOL_TABLE should be a pointer to a Lisp_Object whose value will |
4402 persist between calls to modify_event_symbol that it can use to | |
4403 store a cache of the symbols it's generated for this NAME_TABLE | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4404 before. The object stored there may be a vector or an alist. |
518 | 4405 |
4406 SYMBOL_NUM is the number of the base name we want from NAME_TABLE. | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
4407 |
518 | 4408 MODIFIERS is a set of modifier bits (as given in struct input_events) |
4409 whose prefixes should be applied to the symbol name. | |
4410 | |
4411 SYMBOL_KIND is the value to be placed in the event_kind property of | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
4412 the returned symbol. |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4413 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4414 The symbols we create are supposed to have an |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3538
diff
changeset
|
4415 `event-symbol-elements' property, which lists the modifiers present |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4416 in the symbol's name. */ |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4417 |
518 | 4418 static Lisp_Object |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4419 modify_event_symbol (symbol_num, modifiers, symbol_kind, name_alist, |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4420 name_table, symbol_table, table_size) |
518 | 4421 int symbol_num; |
4422 unsigned modifiers; | |
4423 Lisp_Object symbol_kind; | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4424 Lisp_Object name_alist; |
518 | 4425 char **name_table; |
4426 Lisp_Object *symbol_table; | |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4427 unsigned int table_size; |
518 | 4428 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4429 Lisp_Object value; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4430 Lisp_Object symbol_int; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4431 |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4432 /* Get rid of the "vendor-specific" bit here. */ |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4433 XSETINT (symbol_int, symbol_num & 0xffffff); |
518 | 4434 |
4435 /* Is this a request for a valid symbol? */ | |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4436 if (symbol_num < 0 || symbol_num >= table_size) |
7807
cd93cee36101
(modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents:
7787
diff
changeset
|
4437 return Qnil; |
518 | 4438 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4439 if (CONSP (*symbol_table)) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4440 value = Fcdr (assq_no_quit (symbol_int, *symbol_table)); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4441 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4442 /* If *symbol_table doesn't seem to be initialized properly, fix that. |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4443 *symbol_table should be a lisp vector TABLE_SIZE elements long, |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4444 where the Nth element is the symbol for NAME_TABLE[N], or nil if |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4445 we've never used that symbol before. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4446 else |
518 | 4447 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4448 if (! VECTORP (*symbol_table) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4449 || XVECTOR (*symbol_table)->size != table_size) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4450 { |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4451 Lisp_Object size; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4452 |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
4453 XSETFASTINT (size, table_size); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4454 *symbol_table = Fmake_vector (size, Qnil); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4455 } |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4456 |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4457 value = XVECTOR (*symbol_table)->contents[symbol_num]; |
518 | 4458 } |
4459 | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4460 /* Have we already used this symbol before? */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4461 if (NILP (value)) |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4462 { |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4463 /* No; let's create it. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4464 if (!NILP (name_alist)) |
6894
34435700529d
(modify_event_symbol): Use the cdr of the alist entry.
Richard M. Stallman <rms@gnu.org>
parents:
6893
diff
changeset
|
4465 value = Fcdr_safe (Fassq (symbol_int, name_alist)); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4466 else if (name_table[symbol_num]) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4467 value = intern (name_table[symbol_num]); |
6894
34435700529d
(modify_event_symbol): Use the cdr of the alist entry.
Richard M. Stallman <rms@gnu.org>
parents:
6893
diff
changeset
|
4468 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4469 #ifdef HAVE_WINDOW_SYSTEM |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4470 if (NILP (value)) |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4471 { |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4472 char *name = x_get_keysym_name (symbol_num); |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4473 if (name) |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4474 value = intern (name); |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4475 } |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4476 #endif |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4477 |
6894
34435700529d
(modify_event_symbol): Use the cdr of the alist entry.
Richard M. Stallman <rms@gnu.org>
parents:
6893
diff
changeset
|
4478 if (NILP (value)) |
3042
793f7e0dc66b
(modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents:
2980
diff
changeset
|
4479 { |
793f7e0dc66b
(modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents:
2980
diff
changeset
|
4480 char buf[20]; |
793f7e0dc66b
(modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents:
2980
diff
changeset
|
4481 sprintf (buf, "key-%d", symbol_num); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4482 value = intern (buf); |
3042
793f7e0dc66b
(modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents:
2980
diff
changeset
|
4483 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4484 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4485 if (CONSP (*symbol_table)) |
15524
4a92710b931c
(modify_event_symbol): Add properly to *symbol_table.
Richard M. Stallman <rms@gnu.org>
parents:
15474
diff
changeset
|
4486 *symbol_table = Fcons (Fcons (symbol_int, value), *symbol_table); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4487 else |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4488 XVECTOR (*symbol_table)->contents[symbol_num] = value; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4489 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
4490 /* Fill in the cache entries for this symbol; this also |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4491 builds the Qevent_symbol_elements property, which the user |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4492 cares about. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4493 apply_modifiers (modifiers & click_modifier, value); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4494 Fput (value, Qevent_kind, symbol_kind); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4495 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4496 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4497 /* Apply modifiers to that symbol. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4498 return apply_modifiers (modifiers, value); |
518 | 4499 } |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4500 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4501 /* Convert a list that represents an event type, |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4502 such as (ctrl meta backspace), into the usual representation of that |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4503 event type as a number or a symbol. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4504 |
12150
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
4505 DEFUN ("event-convert-list", Fevent_convert_list, Sevent_convert_list, 1, 1, 0, |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
4506 "Convert the event description list EVENT-DESC to an event type.\n\ |
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
4507 EVENT-DESC should contain one base event type (a character or symbol)\n\ |
12150
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
4508 and zero or more modifier names (control, meta, hyper, super, shift, alt,\n\ |
15128
a5faedec59f1
(Fevent_convert_list): Never treat last elt as modifier.
Richard M. Stallman <rms@gnu.org>
parents:
15112
diff
changeset
|
4509 drag, down, double or triple). The base must be last.\n\ |
12150
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
4510 The return value is an event type (a character or symbol) which\n\ |
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
4511 has the same base event type and all the specified modifiers.") |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
4512 (event_desc) |
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
4513 Lisp_Object event_desc; |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4514 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4515 Lisp_Object base; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4516 int modifiers = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4517 Lisp_Object rest; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4518 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4519 base = Qnil; |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
4520 rest = event_desc; |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4521 while (CONSP (rest)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4522 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4523 Lisp_Object elt; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4524 int this = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4525 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4526 elt = XCONS (rest)->car; |
15128
a5faedec59f1
(Fevent_convert_list): Never treat last elt as modifier.
Richard M. Stallman <rms@gnu.org>
parents:
15112
diff
changeset
|
4527 rest = XCONS (rest)->cdr; |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4528 |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4529 /* Given a symbol, see if it is a modifier name. */ |
15128
a5faedec59f1
(Fevent_convert_list): Never treat last elt as modifier.
Richard M. Stallman <rms@gnu.org>
parents:
15112
diff
changeset
|
4530 if (SYMBOLP (elt) && CONSP (rest)) |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4531 this = parse_solitary_modifier (elt); |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4532 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4533 if (this != 0) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4534 modifiers |= this; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4535 else if (!NILP (base)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4536 error ("Two bases given in one event"); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4537 else |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4538 base = elt; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4539 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4540 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4541 |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4542 /* Let the symbol A refer to the character A. */ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4543 if (SYMBOLP (base) && XSYMBOL (base)->name->size == 1) |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4544 XSETINT (base, XSYMBOL (base)->name->data[0]); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4545 |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4546 if (INTEGERP (base)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4547 { |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4548 /* Turn (shift a) into A. */ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4549 if ((modifiers & shift_modifier) != 0 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4550 && (XINT (base) >= 'a' && XINT (base) <= 'z')) |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4551 { |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4552 XSETINT (base, XINT (base) - ('a' - 'A')); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4553 modifiers &= ~shift_modifier; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4554 } |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4555 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4556 /* Turn (control a) into C-a. */ |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4557 if (modifiers & ctrl_modifier) |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4558 return make_number ((modifiers & ~ctrl_modifier) |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4559 | make_ctrl_char (XINT (base))); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4560 else |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4561 return make_number (modifiers | XINT (base)); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4562 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4563 else if (SYMBOLP (base)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4564 return apply_modifiers (modifiers, base); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4565 else |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4566 error ("Invalid base event"); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4567 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4568 |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4569 /* Try to recognize SYMBOL as a modifier name. |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4570 Return the modifier flag bit, or 0 if not recognized. */ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4571 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4572 static int |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4573 parse_solitary_modifier (symbol) |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4574 Lisp_Object symbol; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4575 { |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4576 struct Lisp_String *name = XSYMBOL (symbol)->name; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4577 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4578 switch (name->data[0]) |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4579 { |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4580 #define SINGLE_LETTER_MOD(BIT) \ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4581 if (name->size == 1) \ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4582 return BIT; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4583 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4584 #define MULTI_LETTER_MOD(BIT, NAME, LEN) \ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4585 if (LEN == name->size \ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4586 && ! strncmp (name->data, NAME, LEN)) \ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4587 return BIT; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4588 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4589 case 'A': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4590 SINGLE_LETTER_MOD (alt_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4591 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4592 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4593 case 'a': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4594 MULTI_LETTER_MOD (alt_modifier, "alt", 3); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4595 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4596 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4597 case 'C': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4598 SINGLE_LETTER_MOD (ctrl_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4599 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4600 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4601 case 'c': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4602 MULTI_LETTER_MOD (ctrl_modifier, "ctrl", 4); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4603 MULTI_LETTER_MOD (ctrl_modifier, "control", 7); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4604 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4605 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4606 case 'H': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4607 SINGLE_LETTER_MOD (hyper_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4608 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4609 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4610 case 'h': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4611 MULTI_LETTER_MOD (hyper_modifier, "hyper", 5); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4612 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4613 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4614 case 'M': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4615 SINGLE_LETTER_MOD (meta_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4616 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4617 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4618 case 'm': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4619 MULTI_LETTER_MOD (meta_modifier, "meta", 4); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4620 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4621 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4622 case 'S': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4623 SINGLE_LETTER_MOD (shift_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4624 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4625 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4626 case 's': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4627 MULTI_LETTER_MOD (shift_modifier, "shift", 5); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4628 MULTI_LETTER_MOD (super_modifier, "super", 5); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4629 SINGLE_LETTER_MOD (super_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4630 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4631 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4632 case 'd': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4633 MULTI_LETTER_MOD (drag_modifier, "drag", 4); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4634 MULTI_LETTER_MOD (down_modifier, "down", 4); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4635 MULTI_LETTER_MOD (double_modifier, "double", 6); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4636 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4637 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4638 case 't': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4639 MULTI_LETTER_MOD (triple_modifier, "triple", 6); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4640 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4641 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4642 #undef SINGLE_LETTER_MOD |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4643 #undef MULTI_LETTER_MOD |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4644 } |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4645 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4646 return 0; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4647 } |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
4648 |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4649 /* Return 1 if EVENT is a list whose elements are all integers or symbols. |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4650 Such a list is not valid as an event, |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4651 but it can be a Lucid-style event type list. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4652 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4653 int |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4654 lucid_event_type_list_p (object) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4655 Lisp_Object object; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4656 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4657 Lisp_Object tail; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4658 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4659 if (! CONSP (object)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4660 return 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4661 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4662 for (tail = object; CONSP (tail); tail = XCONS (tail)->cdr) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4663 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4664 Lisp_Object elt; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4665 elt = XCONS (tail)->car; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4666 if (! (INTEGERP (elt) || SYMBOLP (elt))) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4667 return 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4668 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4669 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4670 return NILP (tail); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
4671 } |
518 | 4672 |
4673 /* Store into *addr a value nonzero if terminal input chars are available. | |
4674 Serves the purpose of ioctl (0, FIONREAD, addr) | |
4675 but works even if FIONREAD does not exist. | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4676 (In fact, this may actually read some input.) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4677 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4678 If DO_TIMERS_NOW is nonzero, actually run timer events that are ripe. */ |
518 | 4679 |
4680 static void | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4681 get_input_pending (addr, do_timers_now) |
518 | 4682 int *addr; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4683 int do_timers_now; |
518 | 4684 { |
4685 /* First of all, have we already counted some input? */ | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4686 *addr = !NILP (Vquit_flag) || readable_events (do_timers_now); |
518 | 4687 |
4688 /* If input is being read as it arrives, and we have none, there is none. */ | |
4689 if (*addr > 0 || (interrupt_input && ! interrupts_deferred)) | |
4690 return; | |
4691 | |
4692 /* Try to read some input and see how much we get. */ | |
4693 gobble_input (0); | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4694 *addr = !NILP (Vquit_flag) || readable_events (do_timers_now); |
518 | 4695 } |
4696 | |
8727
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
4697 /* Interface to read_avail_input, blocking SIGIO or SIGALRM if necessary. */ |
518 | 4698 |
4699 int | |
4700 gobble_input (expected) | |
4701 int expected; | |
4702 { | |
4703 #ifndef VMS | |
4704 #ifdef SIGIO | |
4705 if (interrupt_input) | |
4706 { | |
624 | 4707 SIGMASKTYPE mask; |
16055
b69d8517497a
(record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents:
16051
diff
changeset
|
4708 mask = sigblock (sigmask (SIGIO)); |
518 | 4709 read_avail_input (expected); |
638 | 4710 sigsetmask (mask); |
518 | 4711 } |
4712 else | |
8727
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
4713 #ifdef POLL_FOR_INPUT |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
4714 if (read_socket_hook && !interrupt_input && poll_suppress_count == 0) |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
4715 { |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
4716 SIGMASKTYPE mask; |
16055
b69d8517497a
(record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents:
16051
diff
changeset
|
4717 mask = sigblock (sigmask (SIGALRM)); |
8727
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
4718 read_avail_input (expected); |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
4719 sigsetmask (mask); |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
4720 } |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
4721 else |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
4722 #endif |
9572 | 4723 #endif |
518 | 4724 read_avail_input (expected); |
4725 #endif | |
4726 } | |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
4727 |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4728 /* Put a buffer_switch_event in the buffer |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4729 so that read_key_sequence will notice the new current buffer. */ |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4730 |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
4731 record_asynch_buffer_change () |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
4732 { |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
4733 struct input_event event; |
8502
0d7af9e98916
(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents:
8432
diff
changeset
|
4734 Lisp_Object tem; |
0d7af9e98916
(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents:
8432
diff
changeset
|
4735 |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
4736 event.kind = buffer_switch_event; |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
4737 event.frame_or_window = Qnil; |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4738 |
8718
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
4739 #ifdef subprocesses |
8502
0d7af9e98916
(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents:
8432
diff
changeset
|
4740 /* We don't need a buffer-switch event unless Emacs is waiting for input. |
0d7af9e98916
(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents:
8432
diff
changeset
|
4741 The purpose of the event is to make read_key_sequence look up the |
0d7af9e98916
(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents:
8432
diff
changeset
|
4742 keymaps again. If we aren't in read_key_sequence, we don't need one, |
0d7af9e98916
(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents:
8432
diff
changeset
|
4743 and the event could cause trouble by messing up (input-pending-p). */ |
0d7af9e98916
(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents:
8432
diff
changeset
|
4744 tem = Fwaiting_for_user_input_p (); |
0d7af9e98916
(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents:
8432
diff
changeset
|
4745 if (NILP (tem)) |
0d7af9e98916
(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents:
8432
diff
changeset
|
4746 return; |
8718
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
4747 #else |
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
4748 /* We never need these events if we have no asynchronous subprocesses. */ |
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
4749 return; |
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
4750 #endif |
8502
0d7af9e98916
(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.
Richard M. Stallman <rms@gnu.org>
parents:
8432
diff
changeset
|
4751 |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4752 /* Make sure no interrupt happens while storing the event. */ |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4753 #ifdef SIGIO |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4754 if (interrupt_input) |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4755 { |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4756 SIGMASKTYPE mask; |
16055
b69d8517497a
(record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents:
16051
diff
changeset
|
4757 mask = sigblock (sigmask (SIGIO)); |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4758 kbd_buffer_store_event (&event); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4759 sigsetmask (mask); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4760 } |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4761 else |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4762 #endif |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4763 { |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4764 stop_polling (); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4765 kbd_buffer_store_event (&event); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4766 start_polling (); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
4767 } |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
4768 } |
518 | 4769 |
4770 #ifndef VMS | |
4771 | |
4772 /* Read any terminal input already buffered up by the system | |
4773 into the kbd_buffer, but do not wait. | |
4774 | |
4775 EXPECTED should be nonzero if the caller knows there is some input. | |
4776 | |
4777 Except on VMS, all input is read by this function. | |
4778 If interrupt_input is nonzero, this function MUST be called | |
4779 only when SIGIO is blocked. | |
4780 | |
4781 Returns the number of keyboard chars read, or -1 meaning | |
4782 this is a bad time to try to read input. */ | |
4783 | |
4784 static int | |
4785 read_avail_input (expected) | |
4786 int expected; | |
4787 { | |
4788 struct input_event buf[KBD_BUFFER_SIZE]; | |
4789 register int i; | |
4790 int nread; | |
4791 | |
4792 if (read_socket_hook) | |
4793 /* No need for FIONREAD or fcntl; just say don't wait. */ | |
16325
bcc66c0b3bff
(read_avail_input): Don't pass WAITP to read_socket_hook.
Richard M. Stallman <rms@gnu.org>
parents:
16253
diff
changeset
|
4794 nread = (*read_socket_hook) (input_fd, buf, KBD_BUFFER_SIZE, expected); |
518 | 4795 else |
4796 { | |
5032
2802aff49c77
(read_avail_input): Make cbuf 1 char shorter.
Richard M. Stallman <rms@gnu.org>
parents:
4996
diff
changeset
|
4797 /* Using KBD_BUFFER_SIZE - 1 here avoids reading more than |
2802aff49c77
(read_avail_input): Make cbuf 1 char shorter.
Richard M. Stallman <rms@gnu.org>
parents:
4996
diff
changeset
|
4798 the kbd_buffer can really hold. That may prevent loss |
2802aff49c77
(read_avail_input): Make cbuf 1 char shorter.
Richard M. Stallman <rms@gnu.org>
parents:
4996
diff
changeset
|
4799 of characters on some systems when input is stuffed at us. */ |
2802aff49c77
(read_avail_input): Make cbuf 1 char shorter.
Richard M. Stallman <rms@gnu.org>
parents:
4996
diff
changeset
|
4800 unsigned char cbuf[KBD_BUFFER_SIZE - 1]; |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4801 int n_to_read; |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4802 |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4803 /* Determine how many characters we should *try* to read. */ |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4804 #ifdef WINDOWSNT |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4805 return 0; |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4806 #else /* not WINDOWSNT */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4807 #ifdef MSDOS |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4808 n_to_read = dos_keysns (); |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4809 if (n_to_read == 0) |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4810 return 0; |
6891
065060f1f9b8
(read_avail_input): Fix comment delimiter.
Karl Heuer <kwzh@gnu.org>
parents:
6875
diff
changeset
|
4811 #else /* not MSDOS */ |
518 | 4812 #ifdef FIONREAD |
4813 /* Find out how much input is available. */ | |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
4814 if (ioctl (input_fd, FIONREAD, &n_to_read) < 0) |
518 | 4815 /* Formerly simply reported no input, but that sometimes led to |
4816 a failure of Emacs to terminate. | |
4817 SIGHUP seems appropriate if we can't reach the terminal. */ | |
1947
ba1e55a4ba76
(read_avail_input): Args to `kill' were backwards.
Richard M. Stallman <rms@gnu.org>
parents:
1921
diff
changeset
|
4818 /* ??? Is it really right to send the signal just to this process |
ba1e55a4ba76
(read_avail_input): Args to `kill' were backwards.
Richard M. Stallman <rms@gnu.org>
parents:
1921
diff
changeset
|
4819 rather than to the whole process group? |
ba1e55a4ba76
(read_avail_input): Args to `kill' were backwards.
Richard M. Stallman <rms@gnu.org>
parents:
1921
diff
changeset
|
4820 Perhaps on systems with FIONREAD Emacs is alone in its group. */ |
518 | 4821 kill (getpid (), SIGHUP); |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4822 if (n_to_read == 0) |
518 | 4823 return 0; |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4824 if (n_to_read > sizeof cbuf) |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4825 n_to_read = sizeof cbuf; |
518 | 4826 #else /* no FIONREAD */ |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
4827 #if defined (USG) || defined (DGUX) |
518 | 4828 /* Read some input if available, but don't wait. */ |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4829 n_to_read = sizeof cbuf; |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
4830 fcntl (input_fd, F_SETFL, O_NDELAY); |
518 | 4831 #else |
4832 you lose; | |
4833 #endif | |
4834 #endif | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4835 #endif /* not MSDOS */ |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4836 #endif /* not WINDOWSNT */ |
518 | 4837 |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4838 /* Now read; for one reason or another, this will not block. |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
4839 NREAD is set to the number of chars read. */ |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
4840 do |
518 | 4841 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4842 #ifdef MSDOS |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
4843 cbuf[0] = dos_keyread (); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4844 nread = 1; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4845 #else |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
4846 nread = read (input_fd, cbuf, n_to_read); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4847 #endif |
6936
5538df04e96a
(read_avail_input): Test both aix386 and _BSD.
Richard M. Stallman <rms@gnu.org>
parents:
6932
diff
changeset
|
4848 #if defined (AIX) && (! defined (aix386) && defined (_BSD)) |
518 | 4849 /* The kernel sometimes fails to deliver SIGHUP for ptys. |
4850 This looks incorrect, but it isn't, because _BSD causes | |
4851 O_NDELAY to be defined in fcntl.h as O_NONBLOCK, | |
4852 and that causes a value other than 0 when there is no input. */ | |
5194
85a1088ca765
(kbd_buffer_get_event): If user destroys the last frame,
Richard M. Stallman <rms@gnu.org>
parents:
5178
diff
changeset
|
4853 if (nread == 0) |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4854 kill (0, SIGHUP); |
518 | 4855 #endif |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
4856 } |
6972
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4857 while ( |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4858 /* We used to retry the read if it was interrupted. |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4859 But this does the wrong thing when O_NDELAY causes |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4860 an EAGAIN error. Does anybody know of a situation |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4861 where a retry is actually needed? */ |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4862 #if 0 |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4863 nread < 0 && (errno == EAGAIN |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4864 #ifdef EFAULT |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
4865 || errno == EFAULT |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4866 #endif |
518 | 4867 #ifdef EBADSLT |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
4868 || errno == EBADSLT |
518 | 4869 #endif |
6972
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4870 ) |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4871 #else |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4872 0 |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4873 #endif |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
4874 ); |
518 | 4875 |
4876 #ifndef FIONREAD | |
5371
63aa7b7e42c5
(read_avail_input): Turn O_NDELAY off on DGUX as on USG.
Richard M. Stallman <rms@gnu.org>
parents:
5352
diff
changeset
|
4877 #if defined (USG) || defined (DGUX) |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
4878 fcntl (input_fd, F_SETFL, 0); |
5371
63aa7b7e42c5
(read_avail_input): Turn O_NDELAY off on DGUX as on USG.
Richard M. Stallman <rms@gnu.org>
parents:
5352
diff
changeset
|
4879 #endif /* USG or DGUX */ |
518 | 4880 #endif /* no FIONREAD */ |
4881 for (i = 0; i < nread; i++) | |
4882 { | |
4883 buf[i].kind = ascii_keystroke; | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4884 buf[i].modifiers = 0; |
2690
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
4885 if (meta_key == 1 && (cbuf[i] & 0x80)) |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4886 buf[i].modifiers = meta_modifier; |
2690
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
4887 if (meta_key != 2) |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
4888 cbuf[i] &= ~0x80; |
9745
129ec4acc4ff
(read_avail_input): Fix Lisp_Object vs. int problem.
Karl Heuer <kwzh@gnu.org>
parents:
9729
diff
changeset
|
4889 |
129ec4acc4ff
(read_avail_input): Fix Lisp_Object vs. int problem.
Karl Heuer <kwzh@gnu.org>
parents:
9729
diff
changeset
|
4890 buf[i].code = cbuf[i]; |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
4891 XSETFRAME (buf[i].frame_or_window, selected_frame); |
518 | 4892 } |
4893 } | |
4894 | |
4895 /* Scan the chars for C-g and store them in kbd_buffer. */ | |
4896 for (i = 0; i < nread; i++) | |
4897 { | |
4898 kbd_buffer_store_event (&buf[i]); | |
4899 /* Don't look at input that follows a C-g too closely. | |
4900 This reduces lossage due to autorepeat on C-g. */ | |
4901 if (buf[i].kind == ascii_keystroke | |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
4902 && buf[i].code == quit_char) |
518 | 4903 break; |
4904 } | |
4905 | |
4906 return nread; | |
4907 } | |
4908 #endif /* not VMS */ | |
4909 | |
4910 #ifdef SIGIO /* for entire page */ | |
4911 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
4912 | |
1119
5d315d54b8b4
* keyboard.c (kbd_buffer_get_event): When performing the
Jim Blandy <jimb@redhat.com>
parents:
1104
diff
changeset
|
4913 SIGTYPE |
518 | 4914 input_available_signal (signo) |
4915 int signo; | |
4916 { | |
4917 /* Must preserve main program's value of errno. */ | |
4918 int old_errno = errno; | |
4919 #ifdef BSD4_1 | |
4920 extern int select_alarmed; | |
4921 #endif | |
4922 | |
16115
cc8c3e2cc6ed
(input_available_signal) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents:
16111
diff
changeset
|
4923 #if defined (USG) && !defined (POSIX_SIGNALS) |
518 | 4924 /* USG systems forget handlers when they are used; |
4925 must reestablish each time */ | |
4926 signal (signo, input_available_signal); | |
4927 #endif /* USG */ | |
4928 | |
4929 #ifdef BSD4_1 | |
4930 sigisheld (SIGIO); | |
4931 #endif | |
4932 | |
648 | 4933 if (input_available_clear_time) |
4934 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0); | |
518 | 4935 |
4936 while (1) | |
4937 { | |
4938 int nread; | |
4939 nread = read_avail_input (1); | |
4940 /* -1 means it's not ok to read the input now. | |
4941 UNBLOCK_INPUT will read it later; now, avoid infinite loop. | |
4942 0 means there was no keyboard input available. */ | |
4943 if (nread <= 0) | |
4944 break; | |
4945 | |
4946 #ifdef BSD4_1 | |
4947 select_alarmed = 1; /* Force the select emulator back to life */ | |
4948 #endif | |
4949 } | |
4950 | |
4951 #ifdef BSD4_1 | |
4952 sigfree (); | |
4953 #endif | |
4954 errno = old_errno; | |
4955 } | |
4956 #endif /* SIGIO */ | |
2726
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4957 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4958 /* Send ourselves a SIGIO. |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4959 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4960 This function exists so that the UNBLOCK_INPUT macro in |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4961 blockinput.h can have some way to take care of input we put off |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4962 dealing with, without assuming that every file which uses |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4963 UNBLOCK_INPUT also has #included the files necessary to get SIGIO. */ |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4964 void |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4965 reinvoke_input_signal () |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4966 { |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
4967 #ifdef SIGIO |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
4968 kill (getpid (), SIGIO); |
2726
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4969 #endif |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4970 } |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4971 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
4972 |
518 | 4973 |
4974 /* Return the prompt-string of a sparse keymap. | |
4975 This is the first element which is a string. | |
4976 Return nil if there is none. */ | |
4977 | |
4978 Lisp_Object | |
4979 map_prompt (map) | |
4980 Lisp_Object map; | |
4981 { | |
4982 while (CONSP (map)) | |
4983 { | |
4984 register Lisp_Object tem; | |
4985 tem = Fcar (map); | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4986 if (STRINGP (tem)) |
518 | 4987 return tem; |
4988 map = Fcdr (map); | |
4989 } | |
4990 return Qnil; | |
4991 } | |
4992 | |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4993 static void menu_bar_item (); |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4994 static void menu_bar_one_keymap (); |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4995 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4996 /* These variables hold the vector under construction within |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4997 menu_bar_items and its subroutines, and the current index |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4998 for storing into that vector. */ |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4999 static Lisp_Object menu_bar_items_vector; |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
5000 static int menu_bar_items_index; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5001 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5002 /* Return a vector of menu items for a menu bar, appropriate |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5003 to the current buffer. Each item has three elements in the vector: |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5004 KEY STRING MAPLIST. |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5005 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5006 OLD is an old vector we can optionally reuse, or nil. */ |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5007 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5008 Lisp_Object |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5009 menu_bar_items (old) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5010 Lisp_Object old; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5011 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5012 /* The number of keymaps we're scanning right now, and the number of |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5013 keymaps we have allocated space for. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5014 int nmaps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5015 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5016 /* maps[0..nmaps-1] are the prefix definitions of KEYBUF[0..t-1] |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5017 in the current keymaps, or nil where it is not a prefix. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5018 Lisp_Object *maps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5019 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
5020 Lisp_Object def, tem, tail; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5021 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5022 Lisp_Object result; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5023 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5024 int mapno; |
3255
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
5025 Lisp_Object oquit; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5026 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5027 int i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5028 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5029 struct gcpro gcpro1; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5030 |
3209
1166db56c752
* keyboard.c (menu_bar_items): Bind Qinhibit_quit to Qt while we
Jim Blandy <jimb@redhat.com>
parents:
3174
diff
changeset
|
5031 /* In order to build the menus, we need to call the keymap |
1166db56c752
* keyboard.c (menu_bar_items): Bind Qinhibit_quit to Qt while we
Jim Blandy <jimb@redhat.com>
parents:
3174
diff
changeset
|
5032 accessors. They all call QUIT. But this function is called |
1166db56c752
* keyboard.c (menu_bar_items): Bind Qinhibit_quit to Qt while we
Jim Blandy <jimb@redhat.com>
parents:
3174
diff
changeset
|
5033 during redisplay, during which a quit is fatal. So inhibit |
3255
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
5034 quitting while building the menus. |
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
5035 We do this instead of specbind because (1) errors will clear it anyway |
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
5036 and (2) this avoids risk of specpdl overflow. */ |
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
5037 oquit = Vinhibit_quit; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5038 Vinhibit_quit = Qt; |
3209
1166db56c752
* keyboard.c (menu_bar_items): Bind Qinhibit_quit to Qt while we
Jim Blandy <jimb@redhat.com>
parents:
3174
diff
changeset
|
5039 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5040 if (!NILP (old)) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5041 menu_bar_items_vector = old; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5042 else |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5043 menu_bar_items_vector = Fmake_vector (make_number (24), Qnil); |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5044 menu_bar_items_index = 0; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5045 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5046 GCPRO1 (menu_bar_items_vector); |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5047 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5048 /* Build our list of keymaps. |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5049 If we recognize a function key and replace its escape sequence in |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5050 keybuf with its symbol, or if the sequence starts with a mouse |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5051 click and we need to switch buffers, we jump back here to rebuild |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5052 the initial keymaps from the current buffer. */ |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5053 { |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5054 Lisp_Object *tmaps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5055 |
12264 | 5056 /* Should overriding-terminal-local-map and overriding-local-map apply? */ |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5057 if (!NILP (Voverriding_local_map_menu_flag)) |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5058 { |
12264 | 5059 /* Yes, use them (if non-nil) as well as the global map. */ |
5060 maps = (Lisp_Object *) alloca (3 * sizeof (maps[0])); | |
5061 nmaps = 0; | |
5062 if (!NILP (current_kboard->Voverriding_terminal_local_map)) | |
5063 maps[nmaps++] = current_kboard->Voverriding_terminal_local_map; | |
5064 if (!NILP (Voverriding_local_map)) | |
5065 maps[nmaps++] = Voverriding_local_map; | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5066 } |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5067 else |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5068 { |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
5069 /* No, so use major and minor mode keymaps. */ |
12264 | 5070 nmaps = current_minor_maps (NULL, &tmaps); |
5071 maps = (Lisp_Object *) alloca ((nmaps + 2) * sizeof (maps[0])); | |
5072 bcopy (tmaps, maps, nmaps * sizeof (maps[0])); | |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5073 #ifdef USE_TEXT_PROPERTIES |
12264 | 5074 maps[nmaps++] = get_local_map (PT, current_buffer); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5075 #else |
12264 | 5076 maps[nmaps++] = current_buffer->keymap; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5077 #endif |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5078 } |
12264 | 5079 maps[nmaps++] = current_global_map; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5080 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5081 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5082 /* Look up in each map the dummy prefix key `menu-bar'. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5083 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5084 result = Qnil; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5085 |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5086 for (mapno = nmaps - 1; mapno >= 0; mapno--) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5087 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5088 if (! NILP (maps[mapno])) |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
5089 def = get_keyelt (access_keymap (maps[mapno], Qmenu_bar, 1, 0)); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5090 else |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5091 def = Qnil; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5092 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5093 tem = Fkeymapp (def); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5094 if (!NILP (tem)) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5095 menu_bar_one_keymap (def); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5096 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5097 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5098 /* Move to the end those items that should be at the end. */ |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5099 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
5100 for (tail = Vmenu_bar_final_items; CONSP (tail); tail = XCONS (tail)->cdr) |
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
5101 { |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5102 int i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5103 int end = menu_bar_items_index; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5104 |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5105 for (i = 0; i < end; i += 4) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5106 if (EQ (XCONS (tail)->car, XVECTOR (menu_bar_items_vector)->contents[i])) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5107 { |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5108 Lisp_Object tem0, tem1, tem2, tem3; |
6159
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
5109 /* Move the item at index I to the end, |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
5110 shifting all the others forward. */ |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
5111 tem0 = XVECTOR (menu_bar_items_vector)->contents[i + 0]; |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
5112 tem1 = XVECTOR (menu_bar_items_vector)->contents[i + 1]; |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
5113 tem2 = XVECTOR (menu_bar_items_vector)->contents[i + 2]; |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5114 tem3 = XVECTOR (menu_bar_items_vector)->contents[i + 3]; |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5115 if (end > i + 4) |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5116 bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 4], |
6159
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
5117 &XVECTOR (menu_bar_items_vector)->contents[i], |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5118 (end - i - 4) * sizeof (Lisp_Object)); |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5119 XVECTOR (menu_bar_items_vector)->contents[end - 4] = tem0; |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5120 XVECTOR (menu_bar_items_vector)->contents[end - 3] = tem1; |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5121 XVECTOR (menu_bar_items_vector)->contents[end - 2] = tem2; |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5122 XVECTOR (menu_bar_items_vector)->contents[end - 1] = tem3; |
6159
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
5123 break; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5124 } |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
5125 } |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
5126 |
15284 | 5127 /* Add nil, nil, nil, nil at the end. */ |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5128 i = menu_bar_items_index; |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5129 if (i + 4 > XVECTOR (menu_bar_items_vector)->size) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5130 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5131 Lisp_Object tem; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5132 int newsize = 2 * i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5133 tem = Fmake_vector (make_number (2 * i), Qnil); |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5134 bcopy (XVECTOR (menu_bar_items_vector)->contents, |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5135 XVECTOR (tem)->contents, i * sizeof (Lisp_Object)); |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5136 menu_bar_items_vector = tem; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5137 } |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5138 /* Add this item. */ |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5139 XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5140 XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5141 XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil; |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5142 XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5143 menu_bar_items_index = i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5144 |
3255
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
5145 Vinhibit_quit = oquit; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5146 UNGCPRO; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5147 return menu_bar_items_vector; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5148 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5149 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5150 /* Scan one map KEYMAP, accumulating any menu items it defines |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5151 in menu_bar_items_vector. */ |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5152 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5153 static void |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5154 menu_bar_one_keymap (keymap) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5155 Lisp_Object keymap; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5156 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5157 Lisp_Object tail, item, key, binding, item_string, table; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5158 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5159 /* Loop over all keymap entries that have menu strings. */ |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5160 for (tail = keymap; CONSP (tail); tail = XCONS (tail)->cdr) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5161 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5162 item = XCONS (tail)->car; |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5163 if (CONSP (item)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5164 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5165 key = XCONS (item)->car; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5166 binding = XCONS (item)->cdr; |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5167 if (CONSP (binding)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5168 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5169 item_string = XCONS (binding)->car; |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5170 if (STRINGP (item_string)) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5171 menu_bar_item (key, item_string, Fcdr (binding)); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5172 } |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5173 else if (EQ (binding, Qundefined)) |
7650 | 5174 menu_bar_item (key, Qnil, binding); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5175 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5176 else if (VECTORP (item)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5177 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5178 /* Loop over the char values represented in the vector. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5179 int len = XVECTOR (item)->size; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5180 int c; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5181 for (c = 0; c < len; c++) |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5182 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5183 Lisp_Object character; |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
5184 XSETFASTINT (character, c); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5185 binding = XVECTOR (item)->contents[c]; |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5186 if (CONSP (binding)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5187 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5188 item_string = XCONS (binding)->car; |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5189 if (STRINGP (item_string)) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5190 menu_bar_item (key, item_string, Fcdr (binding)); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5191 } |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5192 else if (EQ (binding, Qundefined)) |
7650 | 5193 menu_bar_item (key, Qnil, binding); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5194 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5195 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5196 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5197 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5198 |
5808
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5199 /* This is used as the handler when calling internal_condition_case_1. */ |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5200 |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5201 static Lisp_Object |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5202 menu_bar_item_1 (arg) |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5203 Lisp_Object arg; |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5204 { |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5205 return Qnil; |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5206 } |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5207 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5208 /* Add one item to menu_bar_items_vector, for KEY, ITEM_STRING and DEF. |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5209 If there's already an item for KEY, add this DEF to it. */ |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5210 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5211 static void |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5212 menu_bar_item (key, item_string, def) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5213 Lisp_Object key, item_string, def; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5214 { |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5215 Lisp_Object tem; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5216 Lisp_Object enabled; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5217 int i; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5218 |
15649
3ee2f3ce0a07
(menu_bar_item): Skip menu-bar equiv keys data
Karl Heuer <kwzh@gnu.org>
parents:
15524
diff
changeset
|
5219 /* Skip menu-bar equiv keys data. */ |
3ee2f3ce0a07
(menu_bar_item): Skip menu-bar equiv keys data
Karl Heuer <kwzh@gnu.org>
parents:
15524
diff
changeset
|
5220 if (CONSP (def) && CONSP (XCONS (def)->car)) |
3ee2f3ce0a07
(menu_bar_item): Skip menu-bar equiv keys data
Karl Heuer <kwzh@gnu.org>
parents:
15524
diff
changeset
|
5221 def = XCONS (def)->cdr; |
3ee2f3ce0a07
(menu_bar_item): Skip menu-bar equiv keys data
Karl Heuer <kwzh@gnu.org>
parents:
15524
diff
changeset
|
5222 |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5223 if (EQ (def, Qundefined)) |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5224 { |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5225 /* If a map has an explicit `undefined' as definition, |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5226 discard any previously made menu bar item. */ |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5227 |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5228 for (i = 0; i < menu_bar_items_index; i += 4) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5229 if (EQ (key, XVECTOR (menu_bar_items_vector)->contents[i])) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5230 { |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5231 if (menu_bar_items_index > i + 4) |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5232 bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 4], |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5233 &XVECTOR (menu_bar_items_vector)->contents[i], |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5234 (menu_bar_items_index - i - 4) * sizeof (Lisp_Object)); |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5235 menu_bar_items_index -= 4; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5236 return; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5237 } |
7650 | 5238 |
5239 /* If there's no definition for this key yet, | |
5240 just ignore `undefined'. */ | |
5241 return; | |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5242 } |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5243 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5244 /* See if this entry is enabled. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5245 enabled = Qt; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5246 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5247 if (SYMBOLP (def)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5248 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5249 /* No property, or nil, means enable. |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5250 Otherwise, enable if value is not nil. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5251 tem = Fget (def, Qmenu_enable); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5252 if (!NILP (tem)) |
5808
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5253 /* (condition-case nil (eval tem) |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5254 (error nil)) */ |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5255 enabled = internal_condition_case_1 (Feval, tem, Qerror, |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
5256 menu_bar_item_1); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5257 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5258 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5259 /* Ignore this item if it's not enabled. */ |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5260 if (NILP (enabled)) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5261 return; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5262 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5263 /* Find any existing item for this KEY. */ |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5264 for (i = 0; i < menu_bar_items_index; i += 4) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5265 if (EQ (key, XVECTOR (menu_bar_items_vector)->contents[i])) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5266 break; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5267 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5268 /* If we did not find this KEY, add it at the end. */ |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5269 if (i == menu_bar_items_index) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5270 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5271 /* If vector is too small, get a bigger one. */ |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5272 if (i + 4 > XVECTOR (menu_bar_items_vector)->size) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5273 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5274 Lisp_Object tem; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5275 int newsize = 2 * i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5276 tem = Fmake_vector (make_number (2 * i), Qnil); |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5277 bcopy (XVECTOR (menu_bar_items_vector)->contents, |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5278 XVECTOR (tem)->contents, i * sizeof (Lisp_Object)); |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5279 menu_bar_items_vector = tem; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5280 } |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5281 /* Add this item. */ |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5282 XVECTOR (menu_bar_items_vector)->contents[i++] = key; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5283 XVECTOR (menu_bar_items_vector)->contents[i++] = item_string; |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5284 XVECTOR (menu_bar_items_vector)->contents[i++] = Fcons (def, Qnil); |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
5285 XVECTOR (menu_bar_items_vector)->contents[i++] = make_number (0); |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5286 menu_bar_items_index = i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5287 } |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5288 /* We did find an item for this KEY. Add DEF to its list of maps. */ |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5289 else |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5290 { |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5291 Lisp_Object old; |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5292 old = XVECTOR (menu_bar_items_vector)->contents[i + 2]; |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5293 XVECTOR (menu_bar_items_vector)->contents[i + 2] = Fcons (def, old); |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
5294 } |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5295 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5296 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
5297 /* Read a character using menus based on maps in the array MAPS. |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
5298 NMAPS is the length of MAPS. Return nil if there are no menus in the maps. |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
5299 Return t if we displayed a menu but the user rejected it. |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5300 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5301 PREV_EVENT is the previous input event, or nil if we are reading |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5302 the first event of a key sequence. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5303 |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
5304 If USED_MOUSE_MENU is non-null, then we set *USED_MOUSE_MENU to 1 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
5305 if we used a mouse menu to read the input, or zero otherwise. If |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
5306 USED_MOUSE_MENU is null, we don't dereference it. |
518 | 5307 |
5308 The prompting is done based on the prompt-string of the map | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5309 and the strings associated with various map elements. |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5310 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5311 This can be done with X menus or with menus put in the minibuf. |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5312 These are done in different ways, depending on how the input will be read. |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5313 Menus using X are done after auto-saving in read-char, getting the input |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5314 event from Fx_popup_menu; menus using the minibuf use read_char recursively |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5315 and do auto-saving in the inner call of read_char. */ |
518 | 5316 |
3453
1fd89e975a78
(read_char_menu_prompt): Now static. Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
3452
diff
changeset
|
5317 static Lisp_Object |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5318 read_char_x_menu_prompt (nmaps, maps, prev_event, used_mouse_menu) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5319 int nmaps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5320 Lisp_Object *maps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5321 Lisp_Object prev_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5322 int *used_mouse_menu; |
518 | 5323 { |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5324 int mapno; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5325 register Lisp_Object name; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5326 Lisp_Object rest, vector; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5327 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
5328 if (used_mouse_menu) |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
5329 *used_mouse_menu = 0; |
518 | 5330 |
5331 /* Use local over global Menu maps */ | |
5332 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5333 if (! menu_prompting) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5334 return Qnil; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5335 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
5336 /* Optionally disregard all but the global map. */ |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
5337 if (inhibit_local_menu_bar_menus) |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
5338 { |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
5339 maps += (nmaps - 1); |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
5340 nmaps = 1; |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
5341 } |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
5342 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5343 /* Get the menu name from the first map that has one (a prompt string). */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5344 for (mapno = 0; mapno < nmaps; mapno++) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5345 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5346 name = map_prompt (maps[mapno]); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5347 if (!NILP (name)) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5348 break; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5349 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5350 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5351 /* If we don't have any menus, just read a character normally. */ |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5352 if (mapno >= nmaps) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5353 return Qnil; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5354 |
13864
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
5355 #ifdef HAVE_MENUS |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5356 /* If we got to this point via a mouse click, |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5357 use a real menu for mouse selection. */ |
11613
c4ef6460a9c9
(read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents:
11543
diff
changeset
|
5358 if (EVENT_HAS_PARAMETERS (prev_event) |
c4ef6460a9c9
(read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents:
11543
diff
changeset
|
5359 && !EQ (XCONS (prev_event)->car, Qmenu_bar)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5360 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5361 /* Display the menu and get the selection. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5362 Lisp_Object *realmaps |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5363 = (Lisp_Object *) alloca (nmaps * sizeof (Lisp_Object)); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5364 Lisp_Object value; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5365 int nmaps1 = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5366 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5367 /* Use the maps that are not nil. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5368 for (mapno = 0; mapno < nmaps; mapno++) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5369 if (!NILP (maps[mapno])) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5370 realmaps[nmaps1++] = maps[mapno]; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5371 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5372 value = Fx_popup_menu (prev_event, Flist (nmaps1, realmaps)); |
2719
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
5373 if (CONSP (value)) |
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
5374 { |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5375 Lisp_Object tem; |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5376 |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5377 /* If we got multiple events, unread all but |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5378 the first. |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5379 There is no way to prevent those unread events |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5380 from showing up later in last_nonmenu_event. |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5381 So turn symbol and integer events into lists, |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5382 to indicate that they came from a mouse menu, |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5383 so that when present in last_nonmenu_event |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5384 they won't confuse things. */ |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5385 for (tem = XCONS (value)->cdr; !NILP (tem); |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5386 tem = XCONS (tem)->cdr) |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5387 if (SYMBOLP (XCONS (tem)->car) |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5388 || INTEGERP (XCONS (tem)->car)) |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5389 XCONS (tem)->car |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5390 = Fcons (XCONS (tem)->car, Qnil); |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
5391 |
2719
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
5392 /* If we got more than one event, put all but the first |
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
5393 onto this list to be read later. |
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
5394 Return just the first event now. */ |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
5395 Vunread_command_events |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
5396 = nconc2 (XCONS (value)->cdr, Vunread_command_events); |
2719
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
5397 value = XCONS (value)->car; |
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
5398 } |
6932
bde97688f58b
(read_char_x_menu_prompt): Don't check for value = nil
Richard M. Stallman <rms@gnu.org>
parents:
6925
diff
changeset
|
5399 else if (NILP (value)) |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
5400 value = Qt; |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
5401 if (used_mouse_menu) |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
5402 *used_mouse_menu = 1; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5403 return value; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5404 } |
13864
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
5405 #endif /* HAVE_MENUS */ |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5406 return Qnil ; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5407 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5408 |
14490
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5409 /* Buffer in use so far for the minibuf prompts for menu keymaps. |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5410 We make this bigger when necessary, and never free it. */ |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5411 static char *read_char_minibuf_menu_text; |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5412 /* Size of that buffer. */ |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5413 static int read_char_minibuf_menu_width; |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5414 |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5415 static Lisp_Object |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
5416 read_char_minibuf_menu_prompt (commandflag, nmaps, maps) |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5417 int commandflag ; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5418 int nmaps; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5419 Lisp_Object *maps; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5420 { |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5421 int mapno; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5422 register Lisp_Object name; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5423 int nlength; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5424 int width = FRAME_WIDTH (selected_frame) - 4; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5425 int idx = -1; |
7587
efaee8861ad4
(read_char_minibuf_menu_prompt): Don't forget to initialize nobindings.
Richard M. Stallman <rms@gnu.org>
parents:
7547
diff
changeset
|
5426 int nobindings = 1; |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5427 Lisp_Object rest, vector; |
14490
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5428 char *menu; |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5429 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5430 if (! menu_prompting) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5431 return Qnil; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5432 |
14490
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5433 /* Make sure we have a big enough buffer for the menu text. */ |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5434 if (read_char_minibuf_menu_text == 0) |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5435 { |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5436 read_char_minibuf_menu_width = width + 4; |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5437 read_char_minibuf_menu_text = (char *) xmalloc (width + 4); |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5438 } |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5439 else if (width + 4 > read_char_minibuf_menu_width) |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5440 { |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5441 read_char_minibuf_menu_width = width + 4; |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5442 read_char_minibuf_menu_text |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5443 = (char *) xrealloc (read_char_minibuf_menu_text, width + 4); |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5444 } |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5445 menu = read_char_minibuf_menu_text; |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
5446 |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5447 /* Get the menu name from the first map that has one (a prompt string). */ |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5448 for (mapno = 0; mapno < nmaps; mapno++) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5449 { |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5450 name = map_prompt (maps[mapno]); |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5451 if (!NILP (name)) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5452 break; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5453 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5454 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5455 /* If we don't have any menus, just read a character normally. */ |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5456 if (mapno >= nmaps) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5457 return Qnil; |
518 | 5458 |
5459 /* Prompt string always starts with map's prompt, and a space. */ | |
5460 strcpy (menu, XSTRING (name)->data); | |
5461 nlength = XSTRING (name)->size; | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5462 menu[nlength++] = ':'; |
518 | 5463 menu[nlength++] = ' '; |
5464 menu[nlength] = 0; | |
5465 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5466 /* Start prompting at start of first map. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5467 mapno = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5468 rest = maps[mapno]; |
518 | 5469 |
5470 /* Present the documented bindings, a line at a time. */ | |
5471 while (1) | |
5472 { | |
5473 int notfirst = 0; | |
5474 int i = nlength; | |
5475 Lisp_Object obj; | |
5476 int ch; | |
10907
1e9ffdb9980c
(read_char_minibuf_menu_prompt): orig_defn_macro is now Lisp_Object, not int.
Karl Heuer <kwzh@gnu.org>
parents:
10905
diff
changeset
|
5477 Lisp_Object orig_defn_macro; |
518 | 5478 |
5479 /* Loop over elements of map. */ | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5480 while (i < width) |
518 | 5481 { |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5482 Lisp_Object s, elt; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5483 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5484 /* If reached end of map, start at beginning of next map. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5485 if (NILP (rest)) |
518 | 5486 { |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5487 mapno++; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5488 /* At end of last map, wrap around to first map if just starting, |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5489 or end this line if already have something on it. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5490 if (mapno == nmaps) |
518 | 5491 { |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5492 mapno = 0; |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
5493 if (notfirst || nobindings) break; |
518 | 5494 } |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5495 rest = maps[mapno]; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5496 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5497 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5498 /* Look at the next element of the map. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5499 if (idx >= 0) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5500 elt = XVECTOR (vector)->contents[idx]; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5501 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5502 elt = Fcar_safe (rest); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5503 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5504 if (idx < 0 && VECTORP (elt)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5505 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5506 /* If we found a dense table in the keymap, |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5507 advanced past it, but start scanning its contents. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5508 rest = Fcdr_safe (rest); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5509 vector = elt; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5510 idx = 0; |
518 | 5511 } |
5512 else | |
5513 { | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5514 /* An ordinary element. */ |
12185
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5515 Lisp_Object event; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5516 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5517 if (idx < 0) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5518 { |
12185
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5519 s = Fcar_safe (Fcdr_safe (elt)); /* alist */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5520 event = Fcar_safe (elt); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5521 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5522 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5523 { |
12185
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5524 s = Fcar_safe (elt); /* vector */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5525 XSETINT (event, idx); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5526 } |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5527 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5528 /* Ignore the element if it has no prompt string. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5529 if (STRINGP (s) && INTEGERP (event)) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5530 { |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5531 /* 1 if the char to type matches the string. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5532 int char_matches; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5533 Lisp_Object upcased_event, downcased_event; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5534 Lisp_Object desc; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5535 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5536 upcased_event = Fupcase (event); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5537 downcased_event = Fdowncase (event); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5538 char_matches = (XINT (upcased_event) == XSTRING (s)->data[0] |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5539 || XINT (downcased_event) == XSTRING (s)->data[0]); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5540 if (! char_matches) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5541 desc = Fsingle_key_description (event); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5542 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5543 /* If we have room for the prompt string, add it to this line. |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5544 If this is the first on the line, always add it. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5545 if ((XSTRING (s)->size + i + 2 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5546 + (char_matches ? 0 : XSTRING (desc)->size + 3)) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5547 < width |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5548 || !notfirst) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5549 { |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5550 int thiswidth; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5551 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5552 /* Punctuate between strings. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5553 if (notfirst) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5554 { |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5555 strcpy (menu + i, ", "); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5556 i += 2; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5557 } |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5558 notfirst = 1; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5559 nobindings = 0 ; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5560 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5561 /* If the char to type doesn't match the string's |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5562 first char, explicitly show what char to type. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5563 if (! char_matches) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5564 { |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5565 /* Add as much of string as fits. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5566 thiswidth = XSTRING (desc)->size; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5567 if (thiswidth + i > width) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5568 thiswidth = width - i; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5569 bcopy (XSTRING (desc)->data, menu + i, thiswidth); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5570 i += thiswidth; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5571 strcpy (menu + i, " = "); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5572 i += 3; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5573 } |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5574 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5575 /* Add as much of string as fits. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5576 thiswidth = XSTRING (s)->size; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5577 if (thiswidth + i > width) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5578 thiswidth = width - i; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5579 bcopy (XSTRING (s)->data, menu + i, thiswidth); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5580 i += thiswidth; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5581 menu[i] = 0; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5582 } |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5583 else |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5584 { |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5585 /* If this element does not fit, end the line now, |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5586 and save the element for the next line. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5587 strcpy (menu + i, "..."); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5588 break; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
5589 } |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5590 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5591 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5592 /* Move past this element. */ |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5593 if (idx >= 0 && idx + 1 >= XVECTOR (vector)->size) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5594 /* Handle reaching end of dense table. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5595 idx = -1; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5596 if (idx >= 0) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5597 idx++; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5598 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5599 rest = Fcdr_safe (rest); |
518 | 5600 } |
5601 } | |
5602 | |
5603 /* Prompt with that and read response. */ | |
5604 message1 (menu); | |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5605 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5606 /* Make believe its not a keyboard macro in case the help char |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5607 is pressed. Help characters are not recorded because menu prompting |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5608 is not used on replay. |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5609 */ |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
5610 orig_defn_macro = current_kboard->defining_kbd_macro; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
5611 current_kboard->defining_kbd_macro = Qnil; |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
5612 do |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
5613 obj = read_char (commandflag, 0, 0, Qnil, 0); |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5614 while (BUFFERP (obj)); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
5615 current_kboard->defining_kbd_macro = orig_defn_macro; |
518 | 5616 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5617 if (!INTEGERP (obj)) |
518 | 5618 return obj; |
5619 else | |
5620 ch = XINT (obj); | |
5621 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5622 if (! EQ (obj, menu_prompt_more_char) |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5623 && (!INTEGERP (menu_prompt_more_char) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5624 || ! EQ (obj, make_number (Ctl (XINT (menu_prompt_more_char)))))) |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5625 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
5626 if (!NILP (current_kboard->defining_kbd_macro)) |
10907
1e9ffdb9980c
(read_char_minibuf_menu_prompt): orig_defn_macro is now Lisp_Object, not int.
Karl Heuer <kwzh@gnu.org>
parents:
10905
diff
changeset
|
5627 store_kbd_macro_char (obj); |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5628 return obj; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5629 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
5630 /* Help char - go round again */ |
518 | 5631 } |
5632 } | |
5633 | |
5634 /* Reading key sequences. */ | |
5635 | |
5636 /* Follow KEY in the maps in CURRENT[0..NMAPS-1], placing its bindings | |
5637 in DEFS[0..NMAPS-1]. Set NEXT[i] to DEFS[i] if DEFS[i] is a | |
5638 keymap, or nil otherwise. Return the index of the first keymap in | |
5639 which KEY has any binding, or NMAPS if no map has a binding. | |
5640 | |
5641 If KEY is a meta ASCII character, treat it like meta-prefix-char | |
5642 followed by the corresponding non-meta character. Keymaps in | |
5643 CURRENT with non-prefix bindings for meta-prefix-char become nil in | |
5644 NEXT. | |
5645 | |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5646 If KEY has no bindings in any of the CURRENT maps, NEXT is left |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5647 unmodified. |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5648 |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5649 NEXT may be the same array as CURRENT. */ |
518 | 5650 |
5651 static int | |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5652 follow_key (key, nmaps, current, defs, next) |
518 | 5653 Lisp_Object key; |
5654 Lisp_Object *current, *defs, *next; | |
5655 int nmaps; | |
5656 { | |
5657 int i, first_binding; | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5658 int did_meta = 0; |
518 | 5659 |
5660 /* If KEY is a meta ASCII character, treat it like meta-prefix-char | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5661 followed by the corresponding non-meta character. |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5662 Put the results into DEFS, since we are going to alter that anyway. |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5663 Do not alter CURRENT or NEXT. */ |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5664 if (INTEGERP (key) && (XINT (key) & CHAR_META)) |
518 | 5665 { |
5666 for (i = 0; i < nmaps; i++) | |
5667 if (! NILP (current[i])) | |
5668 { | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5669 Lisp_Object def; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5670 def = get_keyelt (access_keymap (current[i], |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5671 meta_prefix_char, 1, 0)); |
518 | 5672 |
5673 /* Note that since we pass the resulting bindings through | |
5674 get_keymap_1, non-prefix bindings for meta-prefix-char | |
5675 disappear. */ | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5676 defs[i] = get_keymap_1 (def, 0, 1); |
518 | 5677 } |
5678 else | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5679 defs[i] = Qnil; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5680 |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5681 did_meta = 1; |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
5682 XSETINT (key, XFASTINT (key) & ~CHAR_META); |
518 | 5683 } |
5684 | |
5685 first_binding = nmaps; | |
5686 for (i = nmaps - 1; i >= 0; i--) | |
5687 { | |
5688 if (! NILP (current[i])) | |
5689 { | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5690 Lisp_Object map; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5691 if (did_meta) |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5692 map = defs[i]; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5693 else |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5694 map = current[i]; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5695 |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
5696 defs[i] = get_keyelt (access_keymap (map, key, 1, 0)); |
518 | 5697 if (! NILP (defs[i])) |
5698 first_binding = i; | |
5699 } | |
5700 else | |
5701 defs[i] = Qnil; | |
5702 } | |
5703 | |
5704 /* Given the set of bindings we've found, produce the next set of maps. */ | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5705 if (first_binding < nmaps) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5706 for (i = 0; i < nmaps; i++) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5707 next[i] = NILP (defs[i]) ? Qnil : get_keymap_1 (defs[i], 0, 1); |
518 | 5708 |
5709 return first_binding; | |
5710 } | |
5711 | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5712 /* Read a sequence of keys that ends with a non prefix character, |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5713 storing it in KEYBUF, a buffer of size BUFSIZE. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5714 Prompt with PROMPT. |
518 | 5715 Return the length of the key sequence stored. |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
5716 Return -1 if the user rejected a command menu. |
518 | 5717 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5718 Echo starting immediately unless `prompt' is 0. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5719 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5720 Where a key sequence ends depends on the currently active keymaps. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5721 These include any minor mode keymaps active in the current buffer, |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5722 the current buffer's local map, and the global map. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5723 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5724 If a key sequence has no other bindings, we check Vfunction_key_map |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5725 to see if some trailing subsequence might be the beginning of a |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5726 function key's sequence. If so, we try to read the whole function |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5727 key, and substitute its symbolic name into the key sequence. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5728 |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5729 We ignore unbound `down-' mouse clicks. We turn unbound `drag-' and |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5730 `double-' events into similar click events, if that would make them |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5731 bound. We try to turn `triple-' events first into `double-' events, |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5732 then into clicks. |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5733 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5734 If we get a mouse click in a mode line, vertical divider, or other |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5735 non-text area, we treat the click as if it were prefixed by the |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5736 symbol denoting that area - `mode-line', `vertical-line', or |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5737 whatever. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5738 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5739 If the sequence starts with a mouse click, we read the key sequence |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5740 with respect to the buffer clicked on, not the current buffer. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5741 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5742 If the user switches frames in the midst of a key sequence, we put |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5743 off the switch-frame event until later; the next call to |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5744 read_char will return it. */ |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
5745 |
518 | 5746 static int |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
5747 read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last, |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
5748 can_return_switch_frame) |
518 | 5749 Lisp_Object *keybuf; |
5750 int bufsize; | |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
5751 Lisp_Object prompt; |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
5752 int dont_downcase_last; |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
5753 int can_return_switch_frame; |
518 | 5754 { |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5755 int count = specpdl_ptr - specpdl; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5756 |
518 | 5757 /* How many keys there are in the current key sequence. */ |
5758 int t; | |
5759 | |
5760 /* The length of the echo buffer when we started reading, and | |
5761 the length of this_command_keys when we started reading. */ | |
5762 int echo_start; | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5763 int keys_start; |
518 | 5764 |
5765 /* The number of keymaps we're scanning right now, and the number of | |
5766 keymaps we have allocated space for. */ | |
5767 int nmaps; | |
5768 int nmaps_allocated = 0; | |
5769 | |
5770 /* defs[0..nmaps-1] are the definitions of KEYBUF[0..t-1] in | |
5771 the current keymaps. */ | |
5772 Lisp_Object *defs; | |
5773 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5774 /* submaps[0..nmaps-1] are the prefix definitions of KEYBUF[0..t-1] |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5775 in the current keymaps, or nil where it is not a prefix. */ |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5776 Lisp_Object *submaps; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5777 |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
5778 /* The local map to start out with at start of key sequence. */ |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
5779 Lisp_Object orig_local_map; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
5780 |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
5781 /* 1 if we have already considered switching to the local-map property |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
5782 of the place where a mouse click occurred. */ |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
5783 int localized_local_map = 0; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
5784 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5785 /* The index in defs[] of the first keymap that has a binding for |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5786 this key sequence. In other words, the lowest i such that |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5787 defs[i] is non-nil. */ |
518 | 5788 int first_binding; |
5789 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5790 /* If t < mock_input, then KEYBUF[t] should be read as the next |
899 | 5791 input key. |
5792 | |
5793 We use this to recover after recognizing a function key. Once we | |
5794 realize that a suffix of the current key sequence is actually a | |
5795 function key's escape sequence, we replace the suffix with the | |
5796 function key's binding from Vfunction_key_map. Now keybuf | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5797 contains a new and different key sequence, so the echo area, |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5798 this_command_keys, and the submaps and defs arrays are wrong. In |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5799 this situation, we set mock_input to t, set t to 0, and jump to |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5800 restart_sequence; the loop will read keys from keybuf up until |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5801 mock_input, thus rebuilding the state; and then it will resume |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5802 reading characters from the keyboard. */ |
518 | 5803 int mock_input = 0; |
5804 | |
899 | 5805 /* If the sequence is unbound in submaps[], then |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5806 keybuf[fkey_start..fkey_end-1] is a prefix in Vfunction_key_map, |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5807 and fkey_map is its binding. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5808 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5809 These might be > t, indicating that all function key scanning |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5810 should hold off until t reaches them. We do this when we've just |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5811 recognized a function key, to avoid searching for the function |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5812 key's again in Vfunction_key_map. */ |
518 | 5813 int fkey_start = 0, fkey_end = 0; |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5814 Lisp_Object fkey_map; |
518 | 5815 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5816 /* Likewise, for key_translation_map. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5817 int keytran_start = 0, keytran_end = 0; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5818 Lisp_Object keytran_map; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5819 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
5820 /* If we receive a ``switch-frame'' event in the middle of a key sequence, |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
5821 we put it off for later. While we're reading, we keep the event here. */ |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5822 Lisp_Object delayed_switch_frame; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5823 |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
5824 /* See the comment below... */ |
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
5825 #if defined (GOBBLE_FIRST_EVENT) |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5826 Lisp_Object first_event; |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
5827 #endif |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5828 |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
5829 Lisp_Object original_uppercase; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
5830 int original_uppercase_position = -1; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
5831 |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
5832 /* Gets around Microsoft compiler limitations. */ |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
5833 int dummyflag = 0; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
5834 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
5835 struct buffer *starting_buffer; |
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
5836 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5837 /* Nonzero if we seem to have got the beginning of a binding |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5838 in function_key_map. */ |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5839 int function_key_possible = 0; |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
5840 int key_translation_possible = 0; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5841 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5842 /* Save the status of key translation before each step, |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5843 so that we can restore this after downcasing. */ |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5844 Lisp_Object prev_fkey_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5845 Lisp_Object prev_fkey_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5846 Lisp_Object prev_fkey_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5847 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5848 Lisp_Object prev_keytran_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5849 Lisp_Object prev_keytran_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5850 Lisp_Object prev_keytran_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5851 |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5852 int junk; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5853 |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5854 last_nonmenu_event = Qnil; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5855 |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5856 delayed_switch_frame = Qnil; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5857 fkey_map = Vfunction_key_map; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5858 keytran_map = Vkey_translation_map; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5859 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5860 /* If there is no function-key-map, turn off function key scanning. */ |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5861 if (NILP (Fkeymapp (Vfunction_key_map))) |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5862 fkey_start = fkey_end = bufsize + 1; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5863 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5864 /* If there is no key-translation-map, turn off scanning. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5865 if (NILP (Fkeymapp (Vkey_translation_map))) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5866 keytran_start = keytran_end = bufsize + 1; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5867 |
518 | 5868 if (INTERACTIVE) |
5869 { | |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
5870 if (!NILP (prompt)) |
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
5871 echo_prompt (XSTRING (prompt)->data); |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
5872 else if (cursor_in_echo_area && echo_keystrokes) |
518 | 5873 /* This doesn't put in a dash if the echo buffer is empty, so |
5874 you don't always see a dash hanging out in the minibuffer. */ | |
5875 echo_dash (); | |
5876 } | |
5877 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5878 /* Record the initial state of the echo area and this_command_keys; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5879 we will need to restore them if we replay a key sequence. */ |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5880 if (INTERACTIVE) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5881 echo_start = echo_length (); |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5882 keys_start = this_command_key_count; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
5883 this_single_command_key_start = keys_start; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5884 |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
5885 #if defined (GOBBLE_FIRST_EVENT) |
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
5886 /* This doesn't quite work, because some of the things that read_char |
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
5887 does cannot safely be bypassed. It seems too risky to try to make |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5888 this work right. */ |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
5889 |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5890 /* Read the first char of the sequence specially, before setting |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5891 up any keymaps, in case a filter runs and switches buffers on us. */ |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
5892 first_event = read_char (NILP (prompt), 0, submaps, last_nonmenu_event, |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5893 &junk); |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
5894 #endif /* GOBBLE_FIRST_EVENT */ |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
5895 |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
5896 orig_local_map = get_local_map (PT, current_buffer); |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
5897 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5898 /* We jump here when the key sequence has been thoroughly changed, and |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5899 we need to rescan it starting from the beginning. When we jump here, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5900 keybuf[0..mock_input] holds the sequence we should reread. */ |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
5901 replay_sequence: |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5902 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
5903 starting_buffer = current_buffer; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5904 function_key_possible = 0; |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
5905 key_translation_possible = 0; |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
5906 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5907 /* Build our list of keymaps. |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
5908 If we recognize a function key and replace its escape sequence in |
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
5909 keybuf with its symbol, or if the sequence starts with a mouse |
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
5910 click and we need to switch buffers, we jump back here to rebuild |
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
5911 the initial keymaps from the current buffer. */ |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5912 { |
518 | 5913 Lisp_Object *maps; |
5914 | |
12264 | 5915 if (!NILP (current_kboard->Voverriding_terminal_local_map) |
5916 || !NILP (Voverriding_local_map)) | |
518 | 5917 { |
12264 | 5918 if (3 > nmaps_allocated) |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5919 { |
12264 | 5920 submaps = (Lisp_Object *) alloca (3 * sizeof (submaps[0])); |
5921 defs = (Lisp_Object *) alloca (3 * sizeof (defs[0])); | |
5922 nmaps_allocated = 3; | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5923 } |
12264 | 5924 nmaps = 0; |
5925 if (!NILP (current_kboard->Voverriding_terminal_local_map)) | |
5926 submaps[nmaps++] = current_kboard->Voverriding_terminal_local_map; | |
5927 if (!NILP (Voverriding_local_map)) | |
5928 submaps[nmaps++] = Voverriding_local_map; | |
518 | 5929 } |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5930 else |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5931 { |
12264 | 5932 nmaps = current_minor_maps (0, &maps); |
5933 if (nmaps + 2 > nmaps_allocated) | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5934 { |
12264 | 5935 submaps = (Lisp_Object *) alloca ((nmaps+2) * sizeof (submaps[0])); |
5936 defs = (Lisp_Object *) alloca ((nmaps+2) * sizeof (defs[0])); | |
5937 nmaps_allocated = nmaps + 2; | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5938 } |
12264 | 5939 bcopy (maps, submaps, nmaps * sizeof (submaps[0])); |
2061 | 5940 #ifdef USE_TEXT_PROPERTIES |
12264 | 5941 submaps[nmaps++] = orig_local_map; |
2061 | 5942 #else |
12264 | 5943 submaps[nmaps++] = current_buffer->keymap; |
2061 | 5944 #endif |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
5945 } |
12264 | 5946 submaps[nmaps++] = current_global_map; |
518 | 5947 } |
5948 | |
5949 /* Find an accurate initial value for first_binding. */ | |
5950 for (first_binding = 0; first_binding < nmaps; first_binding++) | |
899 | 5951 if (! NILP (submaps[first_binding])) |
518 | 5952 break; |
5953 | |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
5954 /* Start from the beginning in keybuf. */ |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5955 t = 0; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5956 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5957 /* These are no-ops the first time through, but if we restart, they |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5958 revert the echo area and this_command_keys to their original state. */ |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5959 this_command_key_count = keys_start; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5960 if (INTERACTIVE && t < mock_input) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5961 echo_truncate (echo_start); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5962 |
3809
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
5963 /* If the best binding for the current key sequence is a keymap, or |
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
5964 we may be looking at a function key's escape sequence, keep on |
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
5965 reading. */ |
899 | 5966 while ((first_binding < nmaps && ! NILP (submaps[first_binding])) |
3809
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
5967 || (first_binding >= nmaps |
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
5968 && fkey_start < t |
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
5969 /* mock input is never part of a function key's sequence. */ |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5970 && mock_input <= fkey_start) |
10533
52b954844444
(read_key_sequence): Don't wait for a possible key translation sequence if we
Karl Heuer <kwzh@gnu.org>
parents:
10457
diff
changeset
|
5971 || (first_binding >= nmaps |
52b954844444
(read_key_sequence): Don't wait for a possible key translation sequence if we
Karl Heuer <kwzh@gnu.org>
parents:
10457
diff
changeset
|
5972 && keytran_start < t && key_translation_possible) |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5973 /* Don't return in the middle of a possible function key sequence, |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5974 if the only bindings we found were via case conversion. |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5975 Thus, if ESC O a has a function-key-map translation |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5976 and ESC o has a binding, don't return after ESC O, |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5977 so that we can translate ESC O plus the next character. */ |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5978 ) |
518 | 5979 { |
5980 Lisp_Object key; | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
5981 int used_mouse_menu = 0; |
518 | 5982 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5983 /* Where the last real key started. If we need to throw away a |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5984 key that has expanded into more than one element of keybuf |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5985 (say, a mouse click on the mode line which is being treated |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5986 as [mode-line (mouse-...)], then we backtrack to this point |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5987 of keybuf. */ |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5988 int last_real_key_start; |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5989 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5990 /* These variables are analogous to echo_start and keys_start; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5991 while those allow us to restart the entire key sequence, |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5992 echo_local_start and keys_local_start allow us to throw away |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5993 just one key. */ |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5994 int echo_local_start, keys_local_start, local_first_binding; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5995 |
518 | 5996 if (t >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
5997 error ("Key sequence too long"); |
518 | 5998 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5999 if (INTERACTIVE) |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6000 echo_local_start = echo_length (); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6001 keys_local_start = this_command_key_count; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6002 local_first_binding = first_binding; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6003 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6004 replay_key: |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6005 /* These are no-ops, unless we throw away a keystroke below and |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6006 jumped back up to replay_key; in that case, these restore the |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6007 variables to their original state, allowing us to replay the |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6008 loop. */ |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
6009 if (INTERACTIVE && t < mock_input) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6010 echo_truncate (echo_local_start); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6011 this_command_key_count = keys_local_start; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6012 first_binding = local_first_binding; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6013 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6014 /* By default, assume each event is "real". */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6015 last_real_key_start = t; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6016 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6017 /* Does mock_input indicate that we are re-reading a key sequence? */ |
518 | 6018 if (t < mock_input) |
6019 { | |
6020 key = keybuf[t]; | |
6021 add_command_key (key); | |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
6022 if (echo_keystrokes) |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
6023 echo_char (key); |
518 | 6024 } |
899 | 6025 |
6026 /* If not, we should actually read a character. */ | |
518 | 6027 else |
6028 { | |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
6029 struct buffer *buf = current_buffer; |
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
6030 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
6031 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6032 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6033 KBOARD *interrupted_kboard = current_kboard; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6034 struct frame *interrupted_frame = selected_frame; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6035 if (setjmp (wrong_kboard_jmpbuf)) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
6036 { |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6037 if (!NILP (delayed_switch_frame)) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6038 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6039 interrupted_kboard->kbd_queue |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6040 = Fcons (delayed_switch_frame, |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6041 interrupted_kboard->kbd_queue); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6042 delayed_switch_frame = Qnil; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6043 } |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
6044 while (t > 0) |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6045 interrupted_kboard->kbd_queue |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6046 = Fcons (keybuf[--t], interrupted_kboard->kbd_queue); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6047 |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6048 /* If the side queue is non-empty, ensure it begins with a |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6049 switch-frame, so we'll replay it in the right context. */ |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6050 if (CONSP (interrupted_kboard->kbd_queue) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6051 && (key = XCONS (interrupted_kboard->kbd_queue)->car, |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6052 !(EVENT_HAS_PARAMETERS (key) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6053 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (key)), |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
6054 Qswitch_frame)))) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6055 { |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6056 Lisp_Object frame; |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6057 XSETFRAME (frame, interrupted_frame); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6058 interrupted_kboard->kbd_queue |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6059 = Fcons (make_lispy_switch_frame (frame), |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
6060 interrupted_kboard->kbd_queue); |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6061 } |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
6062 mock_input = 0; |
10915
4d587fff2aa0
(read_key_sequence): Update orig_local_map
Richard M. Stallman <rms@gnu.org>
parents:
10907
diff
changeset
|
6063 orig_local_map = get_local_map (PT, current_buffer); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
6064 goto replay_sequence; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
6065 } |
10820
5bef43a53c01
(display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents:
10800
diff
changeset
|
6066 #endif |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
6067 key = read_char (NILP (prompt), nmaps, submaps, last_nonmenu_event, |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
6068 &used_mouse_menu); |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
6069 } |
518 | 6070 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
6071 /* read_char returns t when it shows a menu and the user rejects it. |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
6072 Just return -1. */ |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
6073 if (EQ (key, Qt)) |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
6074 return -1; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
6075 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6076 /* read_char returns -1 at the end of a macro. |
518 | 6077 Emacs 18 handles this by returning immediately with a |
6078 zero, so that's what we'll do. */ | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6079 if (INTEGERP (key) && XINT (key) == -1) |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6080 { |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6081 t = 0; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6082 /* The Microsoft C compiler can't handle the goto that |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6083 would go here. */ |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6084 dummyflag = 1; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6085 break; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6086 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6087 |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
6088 /* If the current buffer has been changed from under us, the |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
6089 keymap may have changed, so replay the sequence. */ |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6090 if (BUFFERP (key)) |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
6091 { |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
6092 mock_input = t; |
10915
4d587fff2aa0
(read_key_sequence): Update orig_local_map
Richard M. Stallman <rms@gnu.org>
parents:
10907
diff
changeset
|
6093 orig_local_map = get_local_map (PT, current_buffer); |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
6094 goto replay_sequence; |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
6095 } |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
6096 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
6097 /* If we have a quit that was typed in another frame, and |
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
6098 quit_throw_to_read_char switched buffers, |
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
6099 replay to get the right keymap. */ |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
6100 if (XINT (key) == quit_char && current_buffer != starting_buffer) |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
6101 { |
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
6102 keybuf[t++] = key; |
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
6103 mock_input = t; |
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
6104 Vquit_flag = Qnil; |
10915
4d587fff2aa0
(read_key_sequence): Update orig_local_map
Richard M. Stallman <rms@gnu.org>
parents:
10907
diff
changeset
|
6105 orig_local_map = get_local_map (PT, current_buffer); |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
6106 goto replay_sequence; |
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
6107 } |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
6108 |
518 | 6109 Vquit_flag = Qnil; |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6110 } |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6111 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6112 /* Clicks in non-text areas get prefixed by the symbol |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6113 in their CHAR-ADDRESS field. For example, a click on |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6114 the mode line is prefixed by the symbol `mode-line'. |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6115 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6116 Furthermore, key sequences beginning with mouse clicks |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6117 are read using the keymaps of the buffer clicked on, not |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6118 the current buffer. So we may have to switch the buffer |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6119 here. |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6120 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6121 When we turn one event into two events, we must make sure |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6122 that neither of the two looks like the original--so that, |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6123 if we replay the events, they won't be expanded again. |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6124 If not for this, such reexpansion could happen either here |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6125 or when user programs play with this-command-keys. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6126 if (EVENT_HAS_PARAMETERS (key)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6127 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6128 Lisp_Object kind; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6129 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6130 kind = EVENT_HEAD_KIND (EVENT_HEAD (key)); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6131 if (EQ (kind, Qmouse_click)) |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6132 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6133 Lisp_Object window, posn; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6134 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6135 window = POSN_WINDOW (EVENT_START (key)); |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6136 posn = POSN_BUFFER_POSN (EVENT_START (key)); |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6137 if (CONSP (posn)) |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6138 { |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6139 /* We're looking at the second event of a |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6140 sequence which we expanded before. Set |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6141 last_real_key_start appropriately. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6142 if (t > 0) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6143 last_real_key_start = t - 1; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6144 } |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6145 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6146 /* Key sequences beginning with mouse clicks are |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6147 read using the keymaps in the buffer clicked on, |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6148 not the current buffer. If we're at the |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6149 beginning of a key sequence, switch buffers. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6150 if (last_real_key_start == 0 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6151 && WINDOWP (window) |
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6152 && BUFFERP (XWINDOW (window)->buffer) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6153 && XBUFFER (XWINDOW (window)->buffer) != current_buffer) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6154 { |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6155 keybuf[t] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6156 mock_input = t + 1; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6157 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6158 /* Arrange to go back to the original buffer once we're |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6159 done reading the key sequence. Note that we can't |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6160 use save_excursion_{save,restore} here, because they |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6161 save point as well as the current buffer; we don't |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6162 want to save point, because redisplay may change it, |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6163 to accommodate a Fset_window_start or something. We |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6164 don't want to do this at the top of the function, |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6165 because we may get input from a subprocess which |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6166 wants to change the selected window and stuff (say, |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6167 emacsclient). */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6168 record_unwind_protect (Fset_buffer, Fcurrent_buffer ()); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6169 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6170 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer)); |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6171 orig_local_map = get_local_map (PT, current_buffer); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6172 goto replay_sequence; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6173 } |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6174 /* For a mouse click, get the local text-property keymap |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6175 of the place clicked on, rather than point. */ |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6176 if (last_real_key_start == 0 && CONSP (XCONS (key)->cdr) |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6177 && ! localized_local_map) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6178 { |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6179 Lisp_Object map_here, start, pos; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6180 |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6181 localized_local_map = 1; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6182 start = EVENT_START (key); |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6183 if (CONSP (start) && CONSP (XCONS (start)->cdr)) |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6184 { |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6185 pos = POSN_BUFFER_POSN (start); |
12979
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
6186 if (INTEGERP (pos) |
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
6187 && XINT (pos) >= BEG && XINT (pos) <= Z) |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6188 { |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6189 map_here = get_local_map (XINT (pos), current_buffer); |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6190 if (!EQ (map_here, orig_local_map)) |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6191 { |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6192 orig_local_map = map_here; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6193 keybuf[t] = key; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6194 mock_input = t + 1; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6195 |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6196 goto replay_sequence; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6197 } |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6198 } |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6199 } |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6200 } |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6201 |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6202 /* Expand mode-line and scroll-bar events into two events: |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6203 use posn as a fake prefix key. */ |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6204 if (SYMBOLP (posn)) |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
6205 { |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6206 if (t + 1 >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6207 error ("Key sequence too long"); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6208 keybuf[t] = posn; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6209 keybuf[t+1] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6210 mock_input = t + 2; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6211 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6212 /* Zap the position in key, so we know that we've |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6213 expanded it, and don't try to do so again. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6214 POSN_BUFFER_POSN (EVENT_START (key)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6215 = Fcons (posn, Qnil); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6216 goto replay_key; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6217 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6218 } |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6219 else if (EQ (kind, Qswitch_frame)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6220 { |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6221 /* If we're at the beginning of a key sequence, and the caller |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6222 says it's okay, go ahead and return this event. If we're |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6223 in the midst of a key sequence, delay it until the end. */ |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6224 if (t > 0 || !can_return_switch_frame) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6225 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6226 delayed_switch_frame = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6227 goto replay_key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6228 } |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6229 } |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6230 else if (CONSP (XCONS (key)->cdr) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6231 && CONSP (EVENT_START (key)) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6232 && CONSP (XCONS (EVENT_START (key))->cdr)) |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
6233 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6234 Lisp_Object posn; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6235 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6236 posn = POSN_BUFFER_POSN (EVENT_START (key)); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6237 /* Handle menu-bar events: |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6238 insert the dummy prefix event `menu-bar'. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6239 if (EQ (posn, Qmenu_bar)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6240 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6241 if (t + 1 >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6242 error ("Key sequence too long"); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6243 keybuf[t] = posn; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6244 keybuf[t+1] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6245 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6246 /* Zap the position in key, so we know that we've |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6247 expanded it, and don't try to do so again. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6248 POSN_BUFFER_POSN (EVENT_START (key)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6249 = Fcons (posn, Qnil); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6250 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6251 mock_input = t + 2; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6252 goto replay_sequence; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6253 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6254 else if (CONSP (posn)) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6255 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6256 /* We're looking at the second event of a |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6257 sequence which we expanded before. Set |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6258 last_real_key_start appropriately. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6259 if (last_real_key_start == t && t > 0) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6260 last_real_key_start = t - 1; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6261 } |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
6262 } |
518 | 6263 } |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6264 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6265 /* We have finally decided that KEY is something we might want |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6266 to look up. */ |
518 | 6267 first_binding = (follow_key (key, |
6268 nmaps - first_binding, | |
899 | 6269 submaps + first_binding, |
518 | 6270 defs + first_binding, |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6271 submaps + first_binding) |
518 | 6272 + first_binding); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6273 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6274 /* If KEY wasn't bound, we'll try some fallbacks. */ |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6275 if (first_binding >= nmaps) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6276 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6277 Lisp_Object head; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6278 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6279 head = EVENT_HEAD (key); |
12342
87aeb150a91a
(read_key_sequence): Don't use Vprefix_help_command
Richard M. Stallman <rms@gnu.org>
parents:
12335
diff
changeset
|
6280 if (help_char_p (head) && t > 0) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6281 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6282 read_key_sequence_cmd = Vprefix_help_command; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6283 keybuf[t++] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6284 last_nonmenu_event = key; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6285 /* The Microsoft C compiler can't handle the goto that |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6286 would go here. */ |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6287 dummyflag = 1; |
10533
52b954844444
(read_key_sequence): Don't wait for a possible key translation sequence if we
Karl Heuer <kwzh@gnu.org>
parents:
10457
diff
changeset
|
6288 break; |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6289 } |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6290 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6291 if (SYMBOLP (head)) |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6292 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6293 Lisp_Object breakdown; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6294 int modifiers; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6295 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6296 breakdown = parse_modifiers (head); |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6297 modifiers = XINT (XCONS (XCONS (breakdown)->cdr)->car); |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6298 /* Attempt to reduce an unbound mouse event to a simpler |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6299 event that is bound: |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6300 Drags reduce to clicks. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6301 Double-clicks reduce to clicks. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6302 Triple-clicks reduce to double-clicks, then to clicks. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6303 Down-clicks are eliminated. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6304 Double-downs reduce to downs, then are eliminated. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6305 Triple-downs reduce to double-downs, then to downs, |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6306 then are eliminated. */ |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6307 if (modifiers & (down_modifier | drag_modifier |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6308 | double_modifier | triple_modifier)) |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6309 { |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6310 while (modifiers & (down_modifier | drag_modifier |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6311 | double_modifier | triple_modifier)) |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6312 { |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6313 Lisp_Object new_head, new_click; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6314 if (modifiers & triple_modifier) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6315 modifiers ^= (double_modifier | triple_modifier); |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6316 else if (modifiers & double_modifier) |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6317 modifiers &= ~double_modifier; |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6318 else if (modifiers & drag_modifier) |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6319 modifiers &= ~drag_modifier; |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6320 else |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6321 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6322 /* Dispose of this `down' event by simply jumping |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6323 back to replay_key, to get another event. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6324 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6325 Note that if this event came from mock input, |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6326 then just jumping back to replay_key will just |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6327 hand it to us again. So we have to wipe out any |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6328 mock input. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6329 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6330 We could delete keybuf[t] and shift everything |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6331 after that to the left by one spot, but we'd also |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6332 have to fix up any variable that points into |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6333 keybuf, and shifting isn't really necessary |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6334 anyway. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6335 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6336 Adding prefixes for non-textual mouse clicks |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6337 creates two characters of mock input, and both |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6338 must be thrown away. If we're only looking at |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6339 the prefix now, we can just jump back to |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6340 replay_key. On the other hand, if we've already |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6341 processed the prefix, and now the actual click |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6342 itself is giving us trouble, then we've lost the |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6343 state of the keymaps we want to backtrack to, and |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6344 we need to replay the whole sequence to rebuild |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6345 it. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6346 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6347 Beyond that, only function key expansion could |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6348 create more than two keys, but that should never |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6349 generate mouse events, so it's okay to zero |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6350 mock_input in that case too. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6351 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6352 Isn't this just the most wonderful code ever? */ |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6353 if (t == last_real_key_start) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6354 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6355 mock_input = 0; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6356 goto replay_key; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6357 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6358 else |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6359 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6360 mock_input = last_real_key_start; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6361 goto replay_sequence; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6362 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6363 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
6364 |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
6365 new_head |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
6366 = apply_modifiers (modifiers, XCONS (breakdown)->car); |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
6367 new_click |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
6368 = Fcons (new_head, Fcons (EVENT_START (key), Qnil)); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6369 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6370 /* Look for a binding for this new key. follow_key |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6371 promises that it didn't munge submaps the |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6372 last time we called it, since key was unbound. */ |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
6373 first_binding |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
6374 = (follow_key (new_click, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
6375 nmaps - local_first_binding, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
6376 submaps + local_first_binding, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
6377 defs + local_first_binding, |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6378 submaps + local_first_binding) |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
6379 + local_first_binding); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6380 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6381 /* If that click is bound, go for it. */ |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6382 if (first_binding < nmaps) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6383 { |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6384 key = new_click; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6385 break; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6386 } |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6387 /* Otherwise, we'll leave key set to the drag event. */ |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6388 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6389 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6390 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6391 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6392 |
518 | 6393 keybuf[t++] = key; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6394 /* Normally, last_nonmenu_event gets the previous key we read. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6395 But when a mouse popup menu is being used, |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6396 we don't update last_nonmenu_event; it continues to hold the mouse |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6397 event that preceded the first level of menu. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6398 if (!used_mouse_menu) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6399 last_nonmenu_event = key; |
518 | 6400 |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
6401 /* Record what part of this_command_keys is the current key sequence. */ |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
6402 this_single_command_key_start = this_command_key_count - t; |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
6403 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6404 prev_fkey_map = fkey_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6405 prev_fkey_start = fkey_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6406 prev_fkey_end = fkey_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6407 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6408 prev_keytran_map = keytran_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6409 prev_keytran_start = keytran_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6410 prev_keytran_end = keytran_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6411 |
518 | 6412 /* If the sequence is unbound, see if we can hang a function key |
899 | 6413 off the end of it. We only want to scan real keyboard input |
6414 for function key sequences, so if mock_input says that we're | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6415 re-reading old events, don't examine it. */ |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6416 if (first_binding >= nmaps |
899 | 6417 && t >= mock_input) |
518 | 6418 { |
6419 Lisp_Object fkey_next; | |
6420 | |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
6421 /* Continue scan from fkey_end until we find a bound suffix. |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
6422 If we fail, increment fkey_start |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
6423 and start fkey_end from there. */ |
518 | 6424 while (fkey_end < t) |
6425 { | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6426 Lisp_Object key; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6427 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6428 key = keybuf[fkey_end++]; |
853 | 6429 /* Look up meta-characters by prefixing them |
6430 with meta_prefix_char. I hate this. */ | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6431 if (INTEGERP (key) && XINT (key) & meta_modifier) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6432 { |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
6433 fkey_next |
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
6434 = get_keymap_1 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6435 (get_keyelt |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
6436 (access_keymap (fkey_map, meta_prefix_char, 1, 0)), |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6437 0, 1); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6438 XSETFASTINT (key, XFASTINT (key) & ~meta_modifier); |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6439 } |
853 | 6440 else |
6441 fkey_next = fkey_map; | |
6442 | |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
6443 fkey_next |
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
6444 = get_keyelt (access_keymap (fkey_next, key, 1, 0)); |
939
c4dcdc9aed70
Clear the eighth bit of the character from the key sequence, NOT the
Jim Blandy <jimb@redhat.com>
parents:
899
diff
changeset
|
6445 |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6446 #if 0 /* I didn't turn this on, because it might cause trouble |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6447 for the mapping of return into C-m and tab into C-i. */ |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6448 /* Optionally don't map function keys into other things. |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6449 This enables the user to redefine kp- keys easily. */ |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6450 if (SYMBOLP (key) && !NILP (Vinhibit_function_key_mapping)) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6451 fkey_next = Qnil; |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6452 #endif |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
6453 |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6454 /* If the function key map gives a function, not an |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6455 array, then call the function with no args and use |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6456 its value instead. */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6457 if (SYMBOLP (fkey_next) && ! NILP (Ffboundp (fkey_next)) |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6458 && fkey_end == t) |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6459 { |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6460 struct gcpro gcpro1, gcpro2, gcpro3; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6461 Lisp_Object tem; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6462 tem = fkey_next; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6463 |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6464 GCPRO3 (fkey_map, keytran_map, delayed_switch_frame); |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
6465 fkey_next = call1 (fkey_next, prompt); |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6466 UNGCPRO; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6467 /* If the function returned something invalid, |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6468 barf--don't ignore it. |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6469 (To ignore it safely, we would need to gcpro a bunch of |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6470 other variables.) */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6471 if (! (VECTORP (fkey_next) || STRINGP (fkey_next))) |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
6472 error ("Function in key-translation-map returns invalid key sequence"); |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6473 } |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6474 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
6475 function_key_possible = ! NILP (fkey_next); |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
6476 |
939
c4dcdc9aed70
Clear the eighth bit of the character from the key sequence, NOT the
Jim Blandy <jimb@redhat.com>
parents:
899
diff
changeset
|
6477 /* If keybuf[fkey_start..fkey_end] is bound in the |
547 | 6478 function key map and it's a suffix of the current |
939
c4dcdc9aed70
Clear the eighth bit of the character from the key sequence, NOT the
Jim Blandy <jimb@redhat.com>
parents:
899
diff
changeset
|
6479 sequence (i.e. fkey_end == t), replace it with |
547 | 6480 the binding and restart with fkey_start at the end. */ |
4137
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6481 if ((VECTORP (fkey_next) || STRINGP (fkey_next)) |
518 | 6482 && fkey_end == t) |
6483 { | |
4417
02b7d9476fae
(read_key_sequence): Use XFASTINT to convert value
Richard M. Stallman <rms@gnu.org>
parents:
4397
diff
changeset
|
6484 int len = XFASTINT (Flength (fkey_next)); |
4137
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6485 |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6486 t = fkey_start + len; |
518 | 6487 if (t >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6488 error ("Key sequence too long"); |
518 | 6489 |
4137
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6490 if (VECTORP (fkey_next)) |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6491 bcopy (XVECTOR (fkey_next)->contents, |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6492 keybuf + fkey_start, |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6493 (t - fkey_start) * sizeof (keybuf[0])); |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6494 else if (STRINGP (fkey_next)) |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6495 { |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6496 int i; |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6497 |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6498 for (i = 0; i < len; i++) |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6499 XSETFASTINT (keybuf[fkey_start + i], |
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6500 XSTRING (fkey_next)->data[i]); |
4137
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
6501 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6502 |
518 | 6503 mock_input = t; |
6504 fkey_start = fkey_end = t; | |
3538
f53bcee8d914
(read_key_sequence): Reset fkey_map when we find
Richard M. Stallman <rms@gnu.org>
parents:
3453
diff
changeset
|
6505 fkey_map = Vfunction_key_map; |
518 | 6506 |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6507 /* Do pass the results through key-translation-map. */ |
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6508 keytran_start = keytran_end = 0; |
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6509 keytran_map = Vkey_translation_map; |
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6510 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6511 goto replay_sequence; |
518 | 6512 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6513 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6514 fkey_map = get_keymap_1 (fkey_next, 0, 1); |
518 | 6515 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6516 /* If we no longer have a bound suffix, try a new positions for |
547 | 6517 fkey_start. */ |
518 | 6518 if (NILP (fkey_map)) |
6519 { | |
6520 fkey_end = ++fkey_start; | |
6521 fkey_map = Vfunction_key_map; | |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
6522 function_key_possible = 0; |
518 | 6523 } |
6524 } | |
6525 } | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6526 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6527 /* Look for this sequence in key-translation-map. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6528 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6529 Lisp_Object keytran_next; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6530 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6531 /* Scan from keytran_end until we find a bound suffix. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6532 while (keytran_end < t) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6533 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6534 Lisp_Object key; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6535 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6536 key = keybuf[keytran_end++]; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6537 /* Look up meta-characters by prefixing them |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6538 with meta_prefix_char. I hate this. */ |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6539 if (INTEGERP (key) && XINT (key) & meta_modifier) |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6540 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6541 keytran_next |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6542 = get_keymap_1 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6543 (get_keyelt |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6544 (access_keymap (keytran_map, meta_prefix_char, 1, 0)), |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6545 0, 1); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6546 XSETFASTINT (key, XFASTINT (key) & ~meta_modifier); |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6547 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6548 else |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6549 keytran_next = keytran_map; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6550 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6551 keytran_next |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6552 = get_keyelt (access_keymap (keytran_next, key, 1, 0)); |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6553 |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6554 /* If the key translation map gives a function, not an |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6555 array, then call the function with no args and use |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6556 its value instead. */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6557 if (SYMBOLP (keytran_next) && ! NILP (Ffboundp (keytran_next)) |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6558 && keytran_end == t) |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6559 { |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6560 struct gcpro gcpro1, gcpro2, gcpro3; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6561 Lisp_Object tem; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6562 tem = keytran_next; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6563 |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
6564 GCPRO3 (fkey_map, keytran_map, delayed_switch_frame); |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
6565 keytran_next = call1 (keytran_next, prompt); |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6566 UNGCPRO; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6567 /* If the function returned something invalid, |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6568 barf--don't ignore it. |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6569 (To ignore it safely, we would need to gcpro a bunch of |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6570 other variables.) */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6571 if (! (VECTORP (keytran_next) || STRINGP (keytran_next))) |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
6572 error ("Function in key-translation-map returns invalid key sequence"); |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6573 } |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6574 |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6575 key_translation_possible = ! NILP (keytran_next); |
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6576 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6577 /* If keybuf[keytran_start..keytran_end] is bound in the |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
6578 key translation map and it's a suffix of the current |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6579 sequence (i.e. keytran_end == t), replace it with |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6580 the binding and restart with keytran_start at the end. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6581 if ((VECTORP (keytran_next) || STRINGP (keytran_next)) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6582 && keytran_end == t) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6583 { |
4417
02b7d9476fae
(read_key_sequence): Use XFASTINT to convert value
Richard M. Stallman <rms@gnu.org>
parents:
4397
diff
changeset
|
6584 int len = XFASTINT (Flength (keytran_next)); |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6585 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6586 t = keytran_start + len; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6587 if (t >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6588 error ("Key sequence too long"); |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6589 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6590 if (VECTORP (keytran_next)) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6591 bcopy (XVECTOR (keytran_next)->contents, |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6592 keybuf + keytran_start, |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6593 (t - keytran_start) * sizeof (keybuf[0])); |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6594 else if (STRINGP (keytran_next)) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6595 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6596 int i; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6597 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6598 for (i = 0; i < len; i++) |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6599 XSETFASTINT (keybuf[keytran_start + i], |
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6600 XSTRING (keytran_next)->data[i]); |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6601 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6602 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6603 mock_input = t; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6604 keytran_start = keytran_end = t; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6605 keytran_map = Vkey_translation_map; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6606 |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6607 /* Don't pass the results of key-translation-map |
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6608 through function-key-map. */ |
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6609 fkey_start = fkey_end = t; |
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6610 fkey_map = Vkey_translation_map; |
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6611 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6612 goto replay_sequence; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6613 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6614 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6615 keytran_map = get_keymap_1 (keytran_next, 0, 1); |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6616 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6617 /* If we no longer have a bound suffix, try a new positions for |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6618 keytran_start. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6619 if (NILP (keytran_map)) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6620 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6621 keytran_end = ++keytran_start; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6622 keytran_map = Vkey_translation_map; |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6623 key_translation_possible = 0; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6624 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6625 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6626 } |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6627 |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6628 /* If KEY is not defined in any of the keymaps, |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6629 and cannot be part of a function key or translation, |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6630 and is an upper case letter |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6631 use the corresponding lower-case letter instead. */ |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6632 if (first_binding == nmaps && ! function_key_possible |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
6633 && ! key_translation_possible |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6634 && INTEGERP (key) |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6635 && ((((XINT (key) & 0x3ffff) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6636 < XSTRING (current_buffer->downcase_table)->size) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6637 && UPPERCASEP (XINT (key) & 0x3ffff)) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6638 || (XINT (key) & shift_modifier))) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6639 { |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6640 Lisp_Object new_key; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6641 |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6642 original_uppercase = key; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6643 original_uppercase_position = t - 1; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6644 |
15049
61ee56ae39ef
(read_key_sequence): Fix confusion between key and new_key.
Richard M. Stallman <rms@gnu.org>
parents:
15045
diff
changeset
|
6645 if (XINT (key) & shift_modifier) |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6646 XSETINT (new_key, XINT (key) & ~shift_modifier); |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6647 else |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6648 XSETINT (new_key, (DOWNCASE (XINT (key) & 0x3ffff) |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6649 | (XINT (key) & ~0x3ffff))); |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6650 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6651 /* We have to do this unconditionally, regardless of whether |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6652 the lower-case char is defined in the keymaps, because they |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6653 might get translated through function-key-map. */ |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6654 keybuf[t - 1] = new_key; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6655 mock_input = t; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6656 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6657 fkey_map = prev_fkey_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6658 fkey_start = prev_fkey_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6659 fkey_end = prev_fkey_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6660 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6661 keytran_map = prev_keytran_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6662 keytran_start = prev_keytran_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6663 keytran_end = prev_keytran_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6664 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6665 goto replay_sequence; |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
6666 } |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6667 /* If KEY is not defined in any of the keymaps, |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6668 and cannot be part of a function key or translation, |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6669 and is a shifted function key, |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6670 use the corresponding unshifted function key instead. */ |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6671 if (first_binding == nmaps && ! function_key_possible |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6672 && ! key_translation_possible |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6673 && SYMBOLP (key)) |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6674 { |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6675 Lisp_Object breakdown; |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6676 int modifiers; |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6677 |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6678 breakdown = parse_modifiers (key); |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6679 modifiers = XINT (XCONS (XCONS (breakdown)->cdr)->car); |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6680 if (modifiers & shift_modifier) |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6681 { |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6682 Lisp_Object new_key; |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6683 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6684 original_uppercase = key; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6685 original_uppercase_position = t - 1; |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6686 |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6687 modifiers &= ~shift_modifier; |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6688 new_key = apply_modifiers (modifiers, |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6689 XCONS (breakdown)->car); |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
6690 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6691 keybuf[t - 1] = new_key; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6692 mock_input = t; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6693 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6694 fkey_map = prev_fkey_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6695 fkey_start = prev_fkey_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6696 fkey_end = prev_fkey_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6697 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6698 keytran_map = prev_keytran_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6699 keytran_start = prev_keytran_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6700 keytran_end = prev_keytran_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6701 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6702 goto replay_sequence; |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6703 } |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
6704 } |
518 | 6705 } |
6706 | |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6707 if (!dummyflag) |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6708 read_key_sequence_cmd = (first_binding < nmaps |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6709 ? defs[first_binding] |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6710 : Qnil); |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6711 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6712 unread_switch_frame = delayed_switch_frame; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
6713 unbind_to (count, Qnil); |
3799
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6714 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6715 /* Don't downcase the last character if the caller says don't. |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6716 Don't downcase it if the result is undefined, either. */ |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6717 if ((dont_downcase_last || first_binding >= nmaps) |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
6718 && t - 1 == original_uppercase_position) |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6719 keybuf[t - 1] = original_uppercase; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6720 |
3799
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6721 /* Occasionally we fabricate events, perhaps by expanding something |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6722 according to function-key-map, or by adding a prefix symbol to a |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6723 mouse click in the scroll bar or modeline. In this cases, return |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6724 the entire generated key sequence, even if we hit an unbound |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6725 prefix or a definition before the end. This means that you will |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6726 be able to push back the event properly, and also means that |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6727 read-key-sequence will always return a logical unit. |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6728 |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6729 Better ideas? */ |
3809
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
6730 for (; t < mock_input; t++) |
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
6731 { |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
6732 if (echo_keystrokes) |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
6733 echo_char (keybuf[t]); |
3809
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
6734 add_command_key (keybuf[t]); |
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
6735 } |
3799
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
6736 |
518 | 6737 return t; |
6738 } | |
6739 | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6740 #if 0 /* This doc string is too long for some compilers. |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6741 This commented-out definition serves for DOC. */ |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6742 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 4, 0, |
518 | 6743 "Read a sequence of keystrokes and return as a string or vector.\n\ |
6744 The sequence is sufficient to specify a non-prefix command in the\n\ | |
6745 current local and global maps.\n\ | |
6746 \n\ | |
691
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
6747 First arg PROMPT is a prompt string. If nil, do not prompt specially.\n\ |
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
6748 Second (optional) arg CONTINUE-ECHO, if non-nil, means this key echos\n\ |
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
6749 as a continuation of the previous key.\n\ |
518 | 6750 \n\ |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6751 The third (optional) arg DONT-DOWNCASE-LAST, if non-nil, means do not\n\ |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6752 convert the last event to lower case. (Normally any upper case event\n\ |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6753 is converted to lower case if the original event is undefined and the lower\n\ |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6754 case equivalent is defined.) A non-nil value is appropriate for reading\n\ |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6755 a key sequence to be defined.\n\ |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6756 \n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6757 A C-g typed while in this function is treated like any other character,\n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6758 and `quit-flag' is not set.\n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6759 \n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6760 If the key sequence starts with a mouse click, then the sequence is read\n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6761 using the keymaps of the buffer of the window clicked in, not the buffer\n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6762 of the selected window as normal.\n\ |
4988
2f9a58694d43
(Fread_key_sequence): Split the doc string with "".
Richard M. Stallman <rms@gnu.org>
parents:
4878
diff
changeset
|
6763 ""\n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6764 `read-key-sequence' drops unbound button-down events, since you normally\n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6765 only care about the click or drag events which follow them. If a drag\n\ |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6766 or multi-click event is unbound, but the corresponding click event would\n\ |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6767 be bound, `read-key-sequence' turns the event into a click event at the\n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6768 drag's starting position. This means that you don't have to distinguish\n\ |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6769 between click and drag, double, or triple events unless you want to.\n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6770 \n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6771 `read-key-sequence' prefixes mouse events on mode lines, the vertical\n\ |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
6772 lines separating windows, and scroll bars with imaginary keys\n\ |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
6773 `mode-line', `vertical-line', and `vertical-scroll-bar'.\n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6774 \n\ |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6775 Optional fourth argument CAN-RETURN-SWITCH-FRAME non-nil means that this\n\ |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6776 function will process a switch-frame event if the user switches frames\n\ |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6777 before typing anything. If the user switches frames in the middle of a\n\ |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6778 key sequence, or at the start of the sequence but CAN-RETURN-SWITCH-FRAME\n\ |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6779 is nil, then the event will be put off until after the current key sequence.\n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6780 \n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6781 `read-key-sequence' checks `function-key-map' for function key\n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
6782 sequences, where they wouldn't conflict with ordinary bindings. See\n\ |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6783 `function-key-map' for more details.") |
11755
fb074e606a41
(Fread_key_sequence): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
11698
diff
changeset
|
6784 (prompt, continue_echo, dont_downcase_last, can_return_switch_frame) |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6785 #endif |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6786 |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6787 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 4, 0, |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6788 0) |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6789 (prompt, continue_echo, dont_downcase_last, can_return_switch_frame) |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6790 Lisp_Object prompt, continue_echo, dont_downcase_last; |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6791 Lisp_Object can_return_switch_frame; |
518 | 6792 { |
6793 Lisp_Object keybuf[30]; | |
6794 register int i; | |
6795 struct gcpro gcpro1, gcpro2; | |
6796 | |
6797 if (!NILP (prompt)) | |
6798 CHECK_STRING (prompt, 0); | |
6799 QUIT; | |
6800 | |
6801 bzero (keybuf, sizeof keybuf); | |
6802 GCPRO1 (keybuf[0]); | |
6803 gcpro1.nvars = (sizeof keybuf/sizeof (keybuf[0])); | |
6804 | |
727 | 6805 if (NILP (continue_echo)) |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
6806 { |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
6807 this_command_key_count = 0; |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
6808 this_single_command_key_start = 0; |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
6809 } |
691
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
6810 |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
6811 i = read_key_sequence (keybuf, (sizeof keybuf/sizeof (keybuf[0])), |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6812 prompt, ! NILP (dont_downcase_last), |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
6813 ! NILP (can_return_switch_frame)); |
518 | 6814 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
6815 if (i == -1) |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
6816 { |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
6817 Vquit_flag = Qt; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
6818 QUIT; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
6819 } |
518 | 6820 UNGCPRO; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6821 return make_event_array (i, keybuf); |
518 | 6822 } |
6823 | |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6824 DEFUN ("command-execute", Fcommand_execute, Scommand_execute, 1, 4, 0, |
518 | 6825 "Execute CMD as an editor command.\n\ |
6826 CMD must be a symbol that satisfies the `commandp' predicate.\n\ | |
6827 Optional second arg RECORD-FLAG non-nil\n\ | |
6828 means unconditionally put this command in `command-history'.\n\ | |
13309
499e9df6c0f6
(Fcommand_execute): New arg KEYS. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
13290
diff
changeset
|
6829 Otherwise, that is done only if an arg is read using the minibuffer.\n\ |
499e9df6c0f6
(Fcommand_execute): New arg KEYS. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
13290
diff
changeset
|
6830 The argument KEYS specifies the value to use instead of (this-command-keys)\n\ |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
6831 when reading the arguments; if it is nil, (this-command-keys) is used.\n\ |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6832 The argument SPECIAL, if non-nil, means that this command is executing\n\ |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6833 a special event, so ignore the prefix argument and don't clear it.") |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6834 (cmd, record_flag, keys, special) |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6835 Lisp_Object cmd, record_flag, keys, special; |
518 | 6836 { |
6837 register Lisp_Object final; | |
6838 register Lisp_Object tem; | |
6839 Lisp_Object prefixarg; | |
6840 struct backtrace backtrace; | |
6841 extern int debug_on_next_call; | |
6842 | |
6843 debug_on_next_call = 0; | |
6844 | |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6845 if (NILP (special)) |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6846 { |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6847 prefixarg = current_kboard->Vprefix_arg; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6848 Vcurrent_prefix_arg = prefixarg; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6849 current_kboard->Vprefix_arg = Qnil; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6850 } |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6851 else |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6852 prefixarg = Qnil; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
6853 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6854 if (SYMBOLP (cmd)) |
518 | 6855 { |
6856 tem = Fget (cmd, Qdisabled); | |
6208
db4139d43f8a
(command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents:
6204
diff
changeset
|
6857 if (!NILP (tem) && !NILP (Vrun_hooks)) |
12979
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
6858 { |
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
6859 tem = Fsymbol_value (Qdisabled_command_hook); |
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
6860 if (!NILP (tem)) |
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
6861 return call1 (Vrun_hooks, Qdisabled_command_hook); |
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
6862 } |
518 | 6863 } |
6864 | |
13842
7d0b87f737f9
(Fcommand_execute): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
13770
diff
changeset
|
6865 while (1) |
518 | 6866 { |
648 | 6867 final = Findirect_function (cmd); |
518 | 6868 |
6869 if (CONSP (final) && (tem = Fcar (final), EQ (tem, Qautoload))) | |
16109
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
6870 { |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
6871 struct gcpro gcpro1, gcpro2; |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
6872 |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
6873 GCPRO2 (cmd, prefixarg); |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
6874 do_autoload (final, cmd); |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
6875 UNGCPRO; |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
6876 } |
518 | 6877 else |
6878 break; | |
6879 } | |
6880 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6881 if (STRINGP (final) || VECTORP (final)) |
518 | 6882 { |
6883 /* If requested, place the macro in the command history. For | |
6884 other sorts of commands, call-interactively takes care of | |
6885 this. */ | |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
6886 if (!NILP (record_flag)) |
518 | 6887 Vcommand_history |
6888 = Fcons (Fcons (Qexecute_kbd_macro, | |
6889 Fcons (final, Fcons (prefixarg, Qnil))), | |
6890 Vcommand_history); | |
6891 | |
6892 return Fexecute_kbd_macro (final, prefixarg); | |
6893 } | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6894 if (CONSP (final) || SUBRP (final) || COMPILEDP (final)) |
518 | 6895 { |
6896 backtrace.next = backtrace_list; | |
6897 backtrace_list = &backtrace; | |
6898 backtrace.function = &Qcall_interactively; | |
6899 backtrace.args = &cmd; | |
6900 backtrace.nargs = 1; | |
6901 backtrace.evalargs = 0; | |
6902 | |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
6903 tem = Fcall_interactively (cmd, record_flag, keys); |
518 | 6904 |
6905 backtrace_list = backtrace.next; | |
6906 return tem; | |
6907 } | |
6908 return Qnil; | |
6909 } | |
6910 | |
6911 DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command, | |
6912 1, 1, "P", | |
6913 "Read function name, then read its arguments and call it.") | |
6914 (prefixarg) | |
6915 Lisp_Object prefixarg; | |
6916 { | |
6917 Lisp_Object function; | |
6918 char buf[40]; | |
6919 Lisp_Object saved_keys; | |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
6920 Lisp_Object bindings, value; |
16107
6398b414a250
(Fexecute_extended_command): gcpro prefixarg.
Richard M. Stallman <rms@gnu.org>
parents:
16055
diff
changeset
|
6921 struct gcpro gcpro1, gcpro2; |
518 | 6922 |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
6923 saved_keys = Fvector (this_command_key_count, |
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
6924 XVECTOR (this_command_keys)->contents); |
518 | 6925 buf[0] = 0; |
16111
5ad91b5cd2b4
(Fexecute_extended_command): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
16109
diff
changeset
|
6926 GCPRO2 (saved_keys, prefixarg); |
518 | 6927 |
6928 if (EQ (prefixarg, Qminus)) | |
6929 strcpy (buf, "- "); | |
6930 else if (CONSP (prefixarg) && XINT (XCONS (prefixarg)->car) == 4) | |
6931 strcpy (buf, "C-u "); | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6932 else if (CONSP (prefixarg) && INTEGERP (XCONS (prefixarg)->car)) |
11698
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6933 { |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6934 if (sizeof (int) == sizeof (EMACS_INT)) |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6935 sprintf (buf, "%d ", XINT (XCONS (prefixarg)->car)); |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6936 else if (sizeof (long) == sizeof (EMACS_INT)) |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6937 sprintf (buf, "%ld ", XINT (XCONS (prefixarg)->car)); |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6938 else |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6939 abort (); |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6940 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6941 else if (INTEGERP (prefixarg)) |
11698
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6942 { |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6943 if (sizeof (int) == sizeof (EMACS_INT)) |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6944 sprintf (buf, "%d ", XINT (prefixarg)); |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6945 else if (sizeof (long) == sizeof (EMACS_INT)) |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6946 sprintf (buf, "%ld ", XINT (prefixarg)); |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6947 else |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6948 abort (); |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
6949 } |
518 | 6950 |
6951 /* This isn't strictly correct if execute-extended-command | |
6952 is bound to anything else. Perhaps it should use | |
6953 this_command_keys? */ | |
6954 strcat (buf, "M-x "); | |
6955 | |
6956 /* Prompt with buf, and then read a string, completing from and | |
6957 restricting to the set of all defined commands. Don't provide | |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
6958 any initial input. Save the command read on the extended-command |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
6959 history list. */ |
518 | 6960 function = Fcompleting_read (build_string (buf), |
6961 Vobarray, Qcommandp, | |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
6962 Qt, Qnil, Qextended_command_history); |
518 | 6963 |
13864
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
6964 if (STRINGP (function) && XSTRING (function)->size == 0) |
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
6965 error ("No command name given"); |
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
6966 |
708 | 6967 /* Set this_command_keys to the concatenation of saved_keys and |
6968 function, followed by a RET. */ | |
518 | 6969 { |
708 | 6970 struct Lisp_String *str; |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
6971 Lisp_Object *keys; |
518 | 6972 int i; |
6973 Lisp_Object tem; | |
6974 | |
708 | 6975 this_command_key_count = 0; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
6976 this_single_command_key_start = 0; |
708 | 6977 |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
6978 keys = XVECTOR (saved_keys)->contents; |
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
6979 for (i = 0; i < XVECTOR (saved_keys)->size; i++) |
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
6980 add_command_key (keys[i]); |
708 | 6981 |
6982 str = XSTRING (function); | |
6983 for (i = 0; i < str->size; i++) | |
6984 { | |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6985 XSETFASTINT (tem, str->data[i]); |
708 | 6986 add_command_key (tem); |
6987 } | |
6988 | |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6989 XSETFASTINT (tem, '\015'); |
708 | 6990 add_command_key (tem); |
518 | 6991 } |
6992 | |
6993 UNGCPRO; | |
6994 | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6995 function = Fintern (function, Qnil); |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
6996 current_kboard->Vprefix_arg = prefixarg; |
518 | 6997 this_command = function; |
6998 | |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
6999 /* If enabled, show which key runs this command. */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7000 if (!NILP (Vsuggest_key_bindings) |
15272
f32de56357a1
(Fexecute_extended_command): Don't look for
Karl Heuer <kwzh@gnu.org>
parents:
15165
diff
changeset
|
7001 && NILP (Vexecuting_macro) |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7002 && SYMBOLP (function)) |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7003 bindings = Fwhere_is_internal (function, Voverriding_local_map, |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7004 Qt, Qnil); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7005 else |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7006 bindings = Qnil; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7007 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7008 value = Qnil; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7009 GCPRO2 (bindings, value); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7010 value = Fcommand_execute (function, Qt, Qnil, Qnil); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7011 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7012 /* If the command has a key binding, print it now. */ |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7013 if (!NILP (bindings)) |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7014 { |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7015 /* But first wait, and skip the message if there is input. */ |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7016 if (!NILP (Fsit_for ((NUMBERP (Vsuggest_key_bindings) |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7017 ? Vsuggest_key_bindings : make_number (2)), |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7018 Qnil, Qnil))) |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7019 { |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7020 Lisp_Object binding; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7021 char *newmessage; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7022 char *oldmessage = echo_area_glyphs; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7023 int oldmessage_len = echo_area_glyphs_length; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7024 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7025 binding = Fkey_description (bindings); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7026 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7027 newmessage |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7028 = (char *) alloca (XSYMBOL (function)->name->size |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7029 + XSTRING (binding)->size |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7030 + 100); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7031 sprintf (newmessage, "You can run the command `%s' by typing %s", |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7032 XSYMBOL (function)->name->data, |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7033 XSTRING (binding)->data); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7034 message1_nolog (newmessage); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7035 if (!NILP (Fsit_for ((NUMBERP (Vsuggest_key_bindings) |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7036 ? Vsuggest_key_bindings : make_number (2)), |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7037 Qnil, Qnil))) |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7038 message2_nolog (oldmessage, oldmessage_len); |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7039 } |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7040 } |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7041 |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
7042 RETURN_UNGCPRO (value); |
518 | 7043 } |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7044 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7045 /* Find the set of keymaps now active. |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7046 Store into *MAPS_P a vector holding the various maps |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7047 and return the number of them. The vector was malloc'd |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7048 and the caller should free it. */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7049 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7050 int |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7051 current_active_maps (maps_p) |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7052 Lisp_Object **maps_p; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7053 { |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7054 Lisp_Object *tmaps, *maps; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7055 int nmaps; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7056 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7057 /* Should overriding-terminal-local-map and overriding-local-map apply? */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7058 if (!NILP (Voverriding_local_map_menu_flag)) |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7059 { |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7060 /* Yes, use them (if non-nil) as well as the global map. */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7061 maps = (Lisp_Object *) xmalloc (3 * sizeof (maps[0])); |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7062 nmaps = 0; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7063 if (!NILP (current_kboard->Voverriding_terminal_local_map)) |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7064 maps[nmaps++] = current_kboard->Voverriding_terminal_local_map; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7065 if (!NILP (Voverriding_local_map)) |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7066 maps[nmaps++] = Voverriding_local_map; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7067 } |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7068 else |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7069 { |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7070 /* No, so use major and minor mode keymaps. */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7071 nmaps = current_minor_maps (NULL, &tmaps); |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7072 maps = (Lisp_Object *) xmalloc ((nmaps + 2) * sizeof (maps[0])); |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7073 bcopy (tmaps, maps, nmaps * sizeof (maps[0])); |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7074 #ifdef USE_TEXT_PROPERTIES |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7075 maps[nmaps++] = get_local_map (PT, current_buffer); |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7076 #else |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7077 maps[nmaps++] = current_buffer->keymap; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7078 #endif |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7079 } |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7080 maps[nmaps++] = current_global_map; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7081 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7082 *maps_p = maps; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7083 return nmaps; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
7084 } |
518 | 7085 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7086 /* Return nonzero if input events are pending. */ |
518 | 7087 |
7088 detect_input_pending () | |
7089 { | |
7090 if (!input_pending) | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7091 get_input_pending (&input_pending, 0); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7092 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7093 return input_pending; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7094 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7095 |
16017
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7096 /* Return nonzero if input events are pending, and run any pending timers. */ |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7097 |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
7098 detect_input_pending_run_timers (do_display) |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
7099 int do_display; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7100 { |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
7101 int old_timers_run = timers_run; |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
7102 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7103 if (!input_pending) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7104 get_input_pending (&input_pending, 1); |
518 | 7105 |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
7106 if (old_timers_run != timers_run && do_display) |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
7107 redisplay_preserve_echo_area (); |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
7108 |
518 | 7109 return input_pending; |
7110 } | |
7111 | |
648 | 7112 /* This is called in some cases before a possible quit. |
7113 It cases the next call to detect_input_pending to recompute input_pending. | |
7114 So calling this function unnecessarily can't do any harm. */ | |
7115 clear_input_pending () | |
7116 { | |
7117 input_pending = 0; | |
7118 } | |
7119 | |
16017
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7120 /* Return nonzero if there are pending requeued events. |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7121 This isn't used yet. The hope is to make wait_reading_process_input |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7122 call it, and return return if it runs Lisp code that unreads something. |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7123 The problem is, kbd_buffer_get_event needs to be fixed to know what |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7124 to do in that case. It isn't trivial. */ |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7125 |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7126 requeued_events_pending_p () |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7127 { |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7128 return (!NILP (Vunread_command_events) || unread_command_char != -1); |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7129 } |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7130 |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
7131 |
518 | 7132 DEFUN ("input-pending-p", Finput_pending_p, Sinput_pending_p, 0, 0, 0, |
7133 "T if command input is currently available with no waiting.\n\ | |
7134 Actually, the value is nil only if we can be sure that no input is available.") | |
7135 () | |
7136 { | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
7137 if (!NILP (Vunread_command_events) || unread_command_char != -1) |
518 | 7138 return (Qt); |
7139 | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7140 get_input_pending (&input_pending, 1); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
7141 return input_pending > 0 ? Qt : Qnil; |
518 | 7142 } |
7143 | |
7144 DEFUN ("recent-keys", Frecent_keys, Srecent_keys, 0, 0, 0, | |
1802
456ebec04db7
(Frecent_keys): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
1778
diff
changeset
|
7145 "Return vector of last 100 events, not counting those from keyboard macros.") |
518 | 7146 () |
7147 { | |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
7148 Lisp_Object *keys = XVECTOR (recent_keys)->contents; |
518 | 7149 Lisp_Object val; |
7150 | |
7151 if (total_keys < NUM_RECENT_KEYS) | |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
7152 return Fvector (total_keys, keys); |
518 | 7153 else |
7154 { | |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
7155 val = Fvector (NUM_RECENT_KEYS, keys); |
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
7156 bcopy (keys + recent_keys_index, |
518 | 7157 XVECTOR (val)->contents, |
7158 (NUM_RECENT_KEYS - recent_keys_index) * sizeof (Lisp_Object)); | |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
7159 bcopy (keys, |
518 | 7160 XVECTOR (val)->contents + NUM_RECENT_KEYS - recent_keys_index, |
7161 recent_keys_index * sizeof (Lisp_Object)); | |
7162 return val; | |
7163 } | |
7164 } | |
7165 | |
7166 DEFUN ("this-command-keys", Fthis_command_keys, Sthis_command_keys, 0, 0, 0, | |
2611
8bfb4d8d4238
(Fthis_command_keys): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
2512
diff
changeset
|
7167 "Return the key sequence that invoked this command.\n\ |
8bfb4d8d4238
(Fthis_command_keys): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
2512
diff
changeset
|
7168 The value is a string or a vector.") |
518 | 7169 () |
7170 { | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7171 return make_event_array (this_command_key_count, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7172 XVECTOR (this_command_keys)->contents); |
518 | 7173 } |
7174 | |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7175 DEFUN ("this-single-command-keys", Fthis_single_command_keys, |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7176 Sthis_single_command_keys, 0, 0, 0, |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7177 "Return the key sequence that invoked this command.\n\ |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7178 Unlike `this-command-keys', this function's value\n\ |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7179 does not include prefix arguments.\n\ |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7180 The value is a string or a vector.") |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7181 () |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7182 { |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7183 return make_event_array (this_command_key_count |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7184 - this_single_command_key_start, |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7185 (XVECTOR (this_command_keys)->contents |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7186 + this_single_command_key_start)); |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7187 } |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7188 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7189 DEFUN ("reset-this-command-lengths", Freset_this_command_lengths, |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7190 Sreset_this_command_lengths, 0, 0, 0, |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7191 "Used for complicated reasons in `universal-argument-other-key'.\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7192 \n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7193 `universal-argument-other-key' rereads the event just typed.\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7194 It then gets translated through `function-key-map'.\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7195 The translated event gets included in the echo area and in\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7196 the value of `this-command-keys' in addition to the raw original event.\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7197 That is not right.\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7198 \n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7199 Calling this function directs the translated event to replace\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7200 the original event, so that only one version of the event actually\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7201 appears in the echo area and in the value of `this-command-keys.'.") |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7202 () |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7203 { |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7204 before_command_restore_flag = 1; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7205 before_command_key_count_1 = before_command_key_count; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7206 before_command_echo_length_1 = before_command_echo_length; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7207 } |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7208 |
518 | 7209 DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0, |
7210 "Return the current depth in recursive edits.") | |
7211 () | |
7212 { | |
7213 Lisp_Object temp; | |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
7214 XSETFASTINT (temp, command_loop_level + minibuf_level); |
518 | 7215 return temp; |
7216 } | |
7217 | |
7218 DEFUN ("open-dribble-file", Fopen_dribble_file, Sopen_dribble_file, 1, 1, | |
7219 "FOpen dribble file: ", | |
1888
86ff3942d7e1
(Fopen_dribble_file): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
1842
diff
changeset
|
7220 "Start writing all keyboard characters to a dribble file called FILE.\n\ |
86ff3942d7e1
(Fopen_dribble_file): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
1842
diff
changeset
|
7221 If FILE is nil, close any open dribble file.") |
518 | 7222 (file) |
7223 Lisp_Object file; | |
7224 { | |
14590
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
7225 if (dribble) |
518 | 7226 { |
14590
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
7227 fclose (dribble); |
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
7228 dribble = 0; |
518 | 7229 } |
14590
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
7230 if (!NILP (file)) |
518 | 7231 { |
7232 file = Fexpand_file_name (file, Qnil); | |
7233 dribble = fopen (XSTRING (file)->data, "w"); | |
14591
6002d6e3aea3
(Fopen_dribble_file): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents:
14590
diff
changeset
|
7234 if (dribble == 0) |
6002d6e3aea3
(Fopen_dribble_file): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents:
14590
diff
changeset
|
7235 report_file_error ("Opening dribble", Fcons (file, Qnil)); |
518 | 7236 } |
7237 return Qnil; | |
7238 } | |
7239 | |
7240 DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0, | |
7241 "Discard the contents of the terminal input buffer.\n\ | |
7242 Also cancel any kbd macro being defined.") | |
7243 () | |
7244 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7245 current_kboard->defining_kbd_macro = Qnil; |
518 | 7246 update_mode_lines++; |
7247 | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
7248 Vunread_command_events = Qnil; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7249 unread_command_char = -1; |
518 | 7250 |
7251 discard_tty_input (); | |
7252 | |
1654
fe6f6e55182f
* keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents:
1590
diff
changeset
|
7253 /* Without the cast, GCC complains that this assignment loses the |
fe6f6e55182f
* keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents:
1590
diff
changeset
|
7254 volatile qualifier of kbd_store_ptr. Is there anything wrong |
fe6f6e55182f
* keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents:
1590
diff
changeset
|
7255 with that? */ |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7256 kbd_fetch_ptr = (struct input_event *) kbd_store_ptr; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7257 Ffillarray (kbd_buffer_frame_or_window, Qnil); |
518 | 7258 input_pending = 0; |
7259 | |
7260 return Qnil; | |
7261 } | |
7262 | |
7263 DEFUN ("suspend-emacs", Fsuspend_emacs, Ssuspend_emacs, 0, 1, "", | |
7264 "Stop Emacs and return to superior process. You can resume later.\n\ | |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
7265 If `cannot-suspend' is non-nil, or if the system doesn't support job\n\ |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
7266 control, run a subshell instead.\n\n\ |
518 | 7267 If optional arg STUFFSTRING is non-nil, its characters are stuffed\n\ |
1891
035c39b0b1b9
(Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents:
1888
diff
changeset
|
7268 to be read as terminal input by Emacs's parent, after suspension.\n\ |
035c39b0b1b9
(Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents:
1888
diff
changeset
|
7269 \n\ |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
7270 Before suspending, run the normal hook `suspend-hook'.\n\ |
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
7271 After resumption run the normal hook `suspend-resume-hook'.\n\ |
518 | 7272 \n\ |
7273 Some operating systems cannot stop the Emacs process and resume it later.\n\ | |
1891
035c39b0b1b9
(Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents:
1888
diff
changeset
|
7274 On such systems, Emacs starts a subshell instead of suspending.") |
518 | 7275 (stuffstring) |
7276 Lisp_Object stuffstring; | |
7277 { | |
1895
b497a7ec0d58
(Fsuspend_emacs): Make tem not register.
Richard M. Stallman <rms@gnu.org>
parents:
1891
diff
changeset
|
7278 Lisp_Object tem; |
518 | 7279 int count = specpdl_ptr - specpdl; |
7280 int old_height, old_width; | |
7281 int width, height; | |
1891
035c39b0b1b9
(Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents:
1888
diff
changeset
|
7282 struct gcpro gcpro1, gcpro2; |
518 | 7283 extern init_sys_modes (); |
7284 | |
7285 if (!NILP (stuffstring)) | |
7286 CHECK_STRING (stuffstring, 0); | |
1891
035c39b0b1b9
(Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents:
1888
diff
changeset
|
7287 |
2338
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
7288 /* Run the functions in suspend-hook. */ |
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
7289 if (!NILP (Vrun_hooks)) |
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
7290 call1 (Vrun_hooks, intern ("suspend-hook")); |
1891
035c39b0b1b9
(Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents:
1888
diff
changeset
|
7291 |
518 | 7292 GCPRO1 (stuffstring); |
765 | 7293 get_frame_size (&old_width, &old_height); |
518 | 7294 reset_sys_modes (); |
7295 /* sys_suspend can get an error if it tries to fork a subshell | |
7296 and the system resources aren't available for that. */ | |
7297 record_unwind_protect (init_sys_modes, 0); | |
7298 stuff_buffered_input (stuffstring); | |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
7299 if (cannot_suspend) |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
7300 sys_subshell (); |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
7301 else |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
7302 sys_suspend (); |
518 | 7303 unbind_to (count, Qnil); |
7304 | |
7305 /* Check if terminal/window size has changed. | |
7306 Note that this is not useful when we are running directly | |
7307 with a window system; but suspend should be disabled in that case. */ | |
765 | 7308 get_frame_size (&width, &height); |
518 | 7309 if (width != old_width || height != old_height) |
4137
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
7310 change_frame_size (selected_frame, height, width, 0, 0); |
518 | 7311 |
2338
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
7312 /* Run suspend-resume-hook. */ |
518 | 7313 if (!NILP (Vrun_hooks)) |
7314 call1 (Vrun_hooks, intern ("suspend-resume-hook")); | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7315 |
518 | 7316 UNGCPRO; |
7317 return Qnil; | |
7318 } | |
7319 | |
7320 /* If STUFFSTRING is a string, stuff its contents as pending terminal input. | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3538
diff
changeset
|
7321 Then in any case stuff anything Emacs has read ahead and not used. */ |
518 | 7322 |
7323 stuff_buffered_input (stuffstring) | |
7324 Lisp_Object stuffstring; | |
7325 { | |
7326 /* stuff_char works only in BSD, versions 4.2 and up. */ | |
16220
02044b05d8e0
Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
16196
diff
changeset
|
7327 #ifdef BSD_SYSTEM |
518 | 7328 #ifndef BSD4_1 |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
7329 register unsigned char *p; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
7330 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
7331 if (STRINGP (stuffstring)) |
518 | 7332 { |
7333 register int count; | |
7334 | |
7335 p = XSTRING (stuffstring)->data; | |
7336 count = XSTRING (stuffstring)->size; | |
7337 while (count-- > 0) | |
7338 stuff_char (*p++); | |
7339 stuff_char ('\n'); | |
7340 } | |
7341 /* Anything we have read ahead, put back for the shell to read. */ | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7342 /* ?? What should this do when we have multiple keyboards?? |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7343 Should we ignore anything that was typed in at the "wrong" kboard? */ |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7344 for (; kbd_fetch_ptr != kbd_store_ptr; kbd_fetch_ptr++) |
518 | 7345 { |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7346 if (kbd_fetch_ptr == kbd_buffer + KBD_BUFFER_SIZE) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7347 kbd_fetch_ptr = kbd_buffer; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7348 if (kbd_fetch_ptr->kind == ascii_keystroke) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7349 stuff_char (kbd_fetch_ptr->code); |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7350 kbd_fetch_ptr->kind = no_event; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7351 (XVECTOR (kbd_buffer_frame_or_window)->contents[kbd_fetch_ptr |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7352 - kbd_buffer] |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
7353 = Qnil); |
518 | 7354 } |
7355 input_pending = 0; | |
7356 #endif | |
16220
02044b05d8e0
Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
16196
diff
changeset
|
7357 #endif /* BSD_SYSTEM and not BSD4_1 */ |
518 | 7358 } |
7359 | |
648 | 7360 set_waiting_for_input (time_to_clear) |
7361 EMACS_TIME *time_to_clear; | |
518 | 7362 { |
648 | 7363 input_available_clear_time = time_to_clear; |
518 | 7364 |
7365 /* Tell interrupt_signal to throw back to read_char, */ | |
7366 waiting_for_input = 1; | |
7367 | |
7368 /* If interrupt_signal was called before and buffered a C-g, | |
7369 make it run again now, to avoid timing error. */ | |
7370 if (!NILP (Vquit_flag)) | |
7371 quit_throw_to_read_char (); | |
7372 } | |
7373 | |
7374 clear_waiting_for_input () | |
7375 { | |
7376 /* Tell interrupt_signal not to throw back to read_char, */ | |
7377 waiting_for_input = 0; | |
648 | 7378 input_available_clear_time = 0; |
518 | 7379 } |
7380 | |
7381 /* This routine is called at interrupt level in response to C-G. | |
7382 If interrupt_input, this is the handler for SIGINT. | |
7383 Otherwise, it is called from kbd_buffer_store_event, | |
7384 in handling SIGIO or SIGTINT. | |
7385 | |
7386 If `waiting_for_input' is non zero, then unless `echoing' is nonzero, | |
7387 immediately throw back to read_char. | |
7388 | |
7389 Otherwise it sets the Lisp variable quit-flag not-nil. | |
7390 This causes eval to throw, when it gets a chance. | |
7391 If quit-flag is already non-nil, it stops the job right away. */ | |
7392 | |
7393 SIGTYPE | |
10746
ea87e4d9c8ea
(input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents:
10701
diff
changeset
|
7394 interrupt_signal (signalnum) /* If we don't have an argument, */ |
ea87e4d9c8ea
(input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents:
10701
diff
changeset
|
7395 int signalnum; /* some compilers complain in signal calls. */ |
518 | 7396 { |
7397 char c; | |
7398 /* Must preserve main program's value of errno. */ | |
7399 int old_errno = errno; | |
7400 | |
16115
cc8c3e2cc6ed
(input_available_signal) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents:
16111
diff
changeset
|
7401 #if defined (USG) && !defined (POSIX_SIGNALS) |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7402 if (!read_socket_hook && NILP (Vwindow_system)) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7403 { |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7404 /* USG systems forget handlers when they are used; |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7405 must reestablish each time */ |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7406 signal (SIGINT, interrupt_signal); |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7407 signal (SIGQUIT, interrupt_signal); |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7408 } |
518 | 7409 #endif /* USG */ |
7410 | |
7411 cancel_echoing (); | |
7412 | |
966
eb74884fc95a
* keyboard.c (Fsuspend_emacs): Call change_frame_size with the
Jim Blandy <jimb@redhat.com>
parents:
939
diff
changeset
|
7413 if (!NILP (Vquit_flag) && FRAME_TERMCAP_P (selected_frame)) |
518 | 7414 { |
7415 fflush (stdout); | |
7416 reset_sys_modes (); | |
7417 sigfree (); | |
7418 #ifdef SIGTSTP /* Support possible in later USG versions */ | |
7419 /* | |
7420 * On systems which can suspend the current process and return to the original | |
7421 * shell, this command causes the user to end up back at the shell. | |
7422 * The "Auto-save" and "Abort" questions are not asked until | |
7423 * the user elects to return to emacs, at which point he can save the current | |
7424 * job and either dump core or continue. | |
7425 */ | |
7426 sys_suspend (); | |
7427 #else | |
7428 #ifdef VMS | |
7429 if (sys_suspend () == -1) | |
7430 { | |
7431 printf ("Not running as a subprocess;\n"); | |
7432 printf ("you can continue or abort.\n"); | |
7433 } | |
7434 #else /* not VMS */ | |
7435 /* Perhaps should really fork an inferior shell? | |
7436 But that would not provide any way to get back | |
7437 to the original shell, ever. */ | |
7438 printf ("No support for stopping a process on this operating system;\n"); | |
7439 printf ("you can continue or abort.\n"); | |
7440 #endif /* not VMS */ | |
7441 #endif /* not SIGTSTP */ | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7442 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7443 /* We must remain inside the screen area when the internal terminal |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7444 is used. Note that [Enter] is not echoed by dos. */ |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7445 cursor_to (0, 0); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7446 #endif |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7447 /* It doesn't work to autosave while GC is in progress; |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7448 the code used for auto-saving doesn't cope with the mark bit. */ |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7449 if (!gc_in_progress) |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
7450 { |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7451 printf ("Auto-save? (y or n) "); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7452 fflush (stdout); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7453 if (((c = getchar ()) & ~040) == 'Y') |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7454 { |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7455 Fdo_auto_save (Qt, Qnil); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7456 #ifdef MSDOS |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7457 printf ("\r\nAuto-save done"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7458 #else /* not MSDOS */ |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7459 printf ("Auto-save done\n"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7460 #endif /* not MSDOS */ |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7461 } |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7462 while (c != '\n') c = getchar (); |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
7463 } |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7464 else |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7465 { |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7466 /* During GC, it must be safe to reenable quitting again. */ |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7467 Vinhibit_quit = Qnil; |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7468 #ifdef MSDOS |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7469 printf ("\r\n"); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7470 #endif /* not MSDOS */ |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7471 printf ("Garbage collection in progress; cannot auto-save now\r\n"); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7472 printf ("but will instead do a real quit after garbage collection ends\r\n"); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7473 fflush (stdout); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7474 } |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
7475 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7476 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7477 printf ("\r\nAbort? (y or n) "); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7478 #else /* not MSDOS */ |
518 | 7479 #ifdef VMS |
7480 printf ("Abort (and enter debugger)? (y or n) "); | |
7481 #else /* not VMS */ | |
7482 printf ("Abort (and dump core)? (y or n) "); | |
7483 #endif /* not VMS */ | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7484 #endif /* not MSDOS */ |
518 | 7485 fflush (stdout); |
7486 if (((c = getchar ()) & ~040) == 'Y') | |
7487 abort (); | |
7488 while (c != '\n') c = getchar (); | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7489 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7490 printf ("\r\nContinuing...\r\n"); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7491 #else /* not MSDOS */ |
518 | 7492 printf ("Continuing...\n"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
7493 #endif /* not MSDOS */ |
518 | 7494 fflush (stdout); |
7495 init_sys_modes (); | |
7496 } | |
7497 else | |
7498 { | |
7499 /* If executing a function that wants to be interrupted out of | |
7500 and the user has not deferred quitting by binding `inhibit-quit' | |
7501 then quit right away. */ | |
7502 if (immediate_quit && NILP (Vinhibit_quit)) | |
7503 { | |
7504 immediate_quit = 0; | |
7505 sigfree (); | |
7506 Fsignal (Qquit, Qnil); | |
7507 } | |
7508 else | |
7509 /* Else request quit when it's safe */ | |
7510 Vquit_flag = Qt; | |
7511 } | |
7512 | |
7513 if (waiting_for_input && !echoing) | |
7514 quit_throw_to_read_char (); | |
7515 | |
7516 errno = old_errno; | |
7517 } | |
7518 | |
7519 /* Handle a C-g by making read_char return C-g. */ | |
7520 | |
7521 quit_throw_to_read_char () | |
7522 { | |
7523 quit_error_check (); | |
7524 sigfree (); | |
7525 /* Prevent another signal from doing this before we finish. */ | |
650 | 7526 clear_waiting_for_input (); |
518 | 7527 input_pending = 0; |
7528 | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
7529 Vunread_command_events = Qnil; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7530 unread_command_char = -1; |
518 | 7531 |
12309
c78f7af6cee9
(quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents:
12290
diff
changeset
|
7532 #if 0 /* Currently, sit_for is called from read_char without turning |
c78f7af6cee9
(quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents:
12290
diff
changeset
|
7533 off polling. And that can call set_waiting_for_input. |
c78f7af6cee9
(quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents:
12290
diff
changeset
|
7534 It seems to be harmless. */ |
2340
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
7535 #ifdef POLL_FOR_INPUT |
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
7536 /* May be > 1 if in recursive minibuffer. */ |
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
7537 if (poll_suppress_count == 0) |
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
7538 abort (); |
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
7539 #endif |
12309
c78f7af6cee9
(quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents:
12290
diff
changeset
|
7540 #endif |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
7541 if (FRAMEP (internal_last_event_frame) |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
7542 && XFRAME (internal_last_event_frame) != selected_frame) |
12290
99ffac67fb53
(quit_throw_to_read_char): Use do_switch_frame directly.
Richard M. Stallman <rms@gnu.org>
parents:
12264
diff
changeset
|
7543 do_switch_frame (make_lispy_switch_frame (internal_last_event_frame), |
99ffac67fb53
(quit_throw_to_read_char): Use do_switch_frame directly.
Richard M. Stallman <rms@gnu.org>
parents:
12264
diff
changeset
|
7544 Qnil, 0); |
2340
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
7545 |
518 | 7546 _longjmp (getcjmp, 1); |
7547 } | |
7548 | |
7549 DEFUN ("set-input-mode", Fset_input_mode, Sset_input_mode, 3, 4, 0, | |
7550 "Set mode of reading keyboard input.\n\ | |
695
e3fac20d3015
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
691
diff
changeset
|
7551 First arg INTERRUPT non-nil means use input interrupts;\n\ |
e3fac20d3015
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
691
diff
changeset
|
7552 nil means use CBREAK mode.\n\ |
e3fac20d3015
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
691
diff
changeset
|
7553 Second arg FLOW non-nil means use ^S/^Q flow control for output to terminal\n\ |
518 | 7554 (no effect except in CBREAK mode).\n\ |
2690
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
7555 Third arg META t means accept 8-bit input (for a Meta key).\n\ |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
7556 META nil means ignore the top bit, on the assumption it is parity.\n\ |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
7557 Otherwise, accept 8-bit input and don't use the top bit for Meta.\n\ |
2898
15f219ab20d7
(Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents:
2892
diff
changeset
|
7558 Optional fourth arg QUIT if non-nil specifies character to use for quitting.\n\ |
15f219ab20d7
(Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents:
2892
diff
changeset
|
7559 See also `current-input-mode'.") |
518 | 7560 (interrupt, flow, meta, quit) |
7561 Lisp_Object interrupt, flow, meta, quit; | |
7562 { | |
7563 if (!NILP (quit) | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
7564 && (!INTEGERP (quit) || XINT (quit) < 0 || XINT (quit) > 0400)) |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
7565 error ("set-input-mode: QUIT must be an ASCII character"); |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
7566 |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
7567 #ifdef POLL_FOR_INPUT |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
7568 stop_polling (); |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
7569 #endif |
518 | 7570 |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
7571 #ifndef MSDOS |
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
7572 /* this causes startup screen to be restored and messes with the mouse */ |
518 | 7573 reset_sys_modes (); |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
7574 #endif |
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
7575 |
518 | 7576 #ifdef SIGIO |
7577 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7578 if (read_socket_hook) |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7579 { |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7580 /* When using X, don't give the user a real choice, |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7581 because we haven't implemented the mechanisms to support it. */ |
518 | 7582 #ifdef NO_SOCK_SIGIO |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7583 interrupt_input = 0; |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7584 #else /* not NO_SOCK_SIGIO */ |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7585 interrupt_input = 1; |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7586 #endif /* NO_SOCK_SIGIO */ |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7587 } |
518 | 7588 else |
7589 interrupt_input = !NILP (interrupt); | |
7590 #else /* not SIGIO */ | |
7591 interrupt_input = 0; | |
7592 #endif /* not SIGIO */ | |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7593 |
518 | 7594 /* Our VMS input only works by interrupts, as of now. */ |
7595 #ifdef VMS | |
7596 interrupt_input = 1; | |
7597 #endif | |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
7598 |
518 | 7599 flow_control = !NILP (flow); |
2690
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
7600 if (NILP (meta)) |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
7601 meta_key = 0; |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
7602 else if (EQ (meta, Qt)) |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
7603 meta_key = 1; |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
7604 else |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
7605 meta_key = 2; |
518 | 7606 if (!NILP (quit)) |
7607 /* Don't let this value be out of range. */ | |
7608 quit_char = XINT (quit) & (meta_key ? 0377 : 0177); | |
7609 | |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
7610 #ifndef MSDOS |
518 | 7611 init_sys_modes (); |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
7612 #endif |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
7613 |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
7614 #ifdef POLL_FOR_INPUT |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
7615 poll_suppress_count = 1; |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
7616 start_polling (); |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
7617 #endif |
518 | 7618 return Qnil; |
7619 } | |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7620 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7621 DEFUN ("current-input-mode", Fcurrent_input_mode, Scurrent_input_mode, 0, 0, 0, |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7622 "Return information about the way Emacs currently reads keyboard input.\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7623 The value is a list of the form (INTERRUPT FLOW META QUIT), where\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7624 INTERRUPT is non-nil if Emacs is using interrupt-driven input; if\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7625 nil, Emacs is using CBREAK mode.\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7626 FLOW is non-nil if Emacs uses ^S/^Q flow control for output to the\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7627 terminal; this does not apply if Emacs uses interrupt-driven input.\n\ |
2898
15f219ab20d7
(Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents:
2892
diff
changeset
|
7628 META is t if accepting 8-bit input with 8th bit as Meta flag.\n\ |
15f219ab20d7
(Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents:
2892
diff
changeset
|
7629 META nil means ignoring the top bit, on the assumption it is parity.\n\ |
15f219ab20d7
(Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents:
2892
diff
changeset
|
7630 META is neither t nor nil if accepting 8-bit input and using\n\ |
15f219ab20d7
(Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents:
2892
diff
changeset
|
7631 all 8 bits as the character code.\n\ |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7632 QUIT is the character Emacs currently uses to quit.\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7633 The elements of this list correspond to the arguments of\n\ |
2898
15f219ab20d7
(Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents:
2892
diff
changeset
|
7634 `set-input-mode'.") |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7635 () |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7636 { |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7637 Lisp_Object val[4]; |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7638 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7639 val[0] = interrupt_input ? Qt : Qnil; |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7640 val[1] = flow_control ? Qt : Qnil; |
2898
15f219ab20d7
(Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents:
2892
diff
changeset
|
7641 val[2] = meta_key == 2 ? make_number (0) : meta_key == 1 ? Qt : Qnil; |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
7642 XSETFASTINT (val[3], quit_char); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7643 |
3116
05c3ef28bb6b
(Fcurrent_input_mode): Fix the call to Flist.
Richard M. Stallman <rms@gnu.org>
parents:
3104
diff
changeset
|
7644 return Flist (sizeof (val) / sizeof (val[0]), val); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7645 } |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7646 |
518 | 7647 |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7648 /* |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7649 * Set up a new kboard object with reasonable initial values. |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7650 */ |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7651 void |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7652 init_kboard (kb) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7653 KBOARD *kb; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7654 { |
12264 | 7655 kb->Voverriding_terminal_local_map = Qnil; |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
7656 kb->Vlast_command = Qnil; |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
7657 kb->Vprefix_arg = Qnil; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7658 kb->kbd_queue = Qnil; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7659 kb->kbd_queue_has_data = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7660 kb->immediate_echo = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7661 kb->echoptr = kb->echobuf; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7662 kb->echo_after_prompt = -1; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7663 kb->kbd_macro_buffer = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7664 kb->kbd_macro_bufsize = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7665 kb->defining_kbd_macro = Qnil; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7666 kb->Vlast_kbd_macro = Qnil; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7667 kb->reference_count = 0; |
11543
317e5825008b
(Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents:
11540
diff
changeset
|
7668 kb->Vsystem_key_alist = Qnil; |
12176
3e14d94320f2
(system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12173
diff
changeset
|
7669 kb->system_key_syms = Qnil; |
11777
14ecddbe182f
(init_kboard): Initialize Vdefault_minibuffer_frame.
Karl Heuer <kwzh@gnu.org>
parents:
11763
diff
changeset
|
7670 kb->Vdefault_minibuffer_frame = Qnil; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7671 } |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7672 |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7673 /* |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7674 * Destroy the contents of a kboard object, but not the object itself. |
14036 | 7675 * We use this just before deleting it, or if we're going to initialize |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7676 * it a second time. |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7677 */ |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7678 static void |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7679 wipe_kboard (kb) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7680 KBOARD *kb; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7681 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7682 if (kb->kbd_macro_buffer) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7683 xfree (kb->kbd_macro_buffer); |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7684 } |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
7685 |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7686 #ifdef MULTI_KBOARD |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7687 void |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7688 delete_kboard (kb) |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7689 KBOARD *kb; |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7690 { |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7691 KBOARD **kbp; |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7692 for (kbp = &all_kboards; *kbp != kb; kbp = &(*kbp)->next_kboard) |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7693 if (*kbp == NULL) |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7694 abort (); |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7695 *kbp = kb->next_kboard; |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7696 wipe_kboard (kb); |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7697 xfree (kb); |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7698 } |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7699 #endif |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
7700 |
518 | 7701 init_keyboard () |
7702 { | |
7703 /* This is correct before outermost invocation of the editor loop */ | |
7704 command_loop_level = -1; | |
7705 immediate_quit = 0; | |
7706 quit_char = Ctl ('g'); | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
7707 Vunread_command_events = Qnil; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7708 unread_command_char = -1; |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
7709 EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1); |
518 | 7710 total_keys = 0; |
1262
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
7711 recent_keys_index = 0; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7712 kbd_fetch_ptr = kbd_buffer; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7713 kbd_store_ptr = kbd_buffer; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7714 kbd_buffer_frame_or_window |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7715 = Fmake_vector (make_number (KBD_BUFFER_SIZE), Qnil); |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
7716 #ifdef HAVE_MOUSE |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
7717 do_mouse_tracking = Qnil; |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
7718 #endif |
518 | 7719 input_pending = 0; |
7720 | |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
7721 /* This means that command_loop_1 won't try to select anything the first |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
7722 time through. */ |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
7723 internal_last_event_frame = Qnil; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
7724 Vlast_event_frame = internal_last_event_frame; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
7725 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7726 #ifdef MULTI_KBOARD |
11363
f15dccd23db8
(init_keyboard): Don't malloc a new structure;
Karl Heuer <kwzh@gnu.org>
parents:
11350
diff
changeset
|
7727 current_kboard = initial_kboard; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7728 #endif |
11363
f15dccd23db8
(init_keyboard): Don't malloc a new structure;
Karl Heuer <kwzh@gnu.org>
parents:
11350
diff
changeset
|
7729 wipe_kboard (current_kboard); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7730 init_kboard (current_kboard); |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
7731 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7732 if (initialized) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7733 Ffillarray (kbd_buffer_frame_or_window, Qnil); |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7734 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7735 kbd_buffer_frame_or_window |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7736 = Fmake_vector (make_number (KBD_BUFFER_SIZE), Qnil); |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7737 if (!noninteractive && !read_socket_hook && NILP (Vwindow_system)) |
518 | 7738 { |
7739 signal (SIGINT, interrupt_signal); | |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
7740 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS) |
518 | 7741 /* For systems with SysV TERMIO, C-g is set up for both SIGINT and |
7742 SIGQUIT and we can't tell which one it will give us. */ | |
7743 signal (SIGQUIT, interrupt_signal); | |
7744 #endif /* HAVE_TERMIO */ | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7745 } |
518 | 7746 /* Note SIGIO has been undef'd if FIONREAD is missing. */ |
7747 #ifdef SIGIO | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7748 if (!noninteractive) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
7749 signal (SIGIO, input_available_signal); |
1008
f1df63f98e5c
* keyboard.c (init_keyboard): Changed "#endif SIGIO" to
Jim Blandy <jimb@redhat.com>
parents:
985
diff
changeset
|
7750 #endif /* SIGIO */ |
518 | 7751 |
7752 /* Use interrupt input by default, if it works and noninterrupt input | |
7753 has deficiencies. */ | |
7754 | |
7755 #ifdef INTERRUPT_INPUT | |
7756 interrupt_input = 1; | |
7757 #else | |
7758 interrupt_input = 0; | |
7759 #endif | |
7760 | |
7761 /* Our VMS input only works by interrupts, as of now. */ | |
7762 #ifdef VMS | |
7763 interrupt_input = 1; | |
7764 #endif | |
7765 | |
7766 sigfree (); | |
7767 dribble = 0; | |
7768 | |
7769 if (keyboard_init_hook) | |
7770 (*keyboard_init_hook) (); | |
7771 | |
7772 #ifdef POLL_FOR_INPUT | |
7773 poll_suppress_count = 1; | |
7774 start_polling (); | |
7775 #endif | |
7776 } | |
7777 | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7778 /* This type's only use is in syms_of_keyboard, to initialize the |
518 | 7779 event header symbols and put properties on them. */ |
7780 struct event_head { | |
7781 Lisp_Object *var; | |
7782 char *name; | |
7783 Lisp_Object *kind; | |
7784 }; | |
7785 | |
7786 struct event_head head_table[] = { | |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
7787 &Qmouse_movement, "mouse-movement", &Qmouse_movement, |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
7788 &Qscroll_bar_movement, "scroll-bar-movement", &Qmouse_movement, |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
7789 &Qswitch_frame, "switch-frame", &Qswitch_frame, |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
7790 &Qdelete_frame, "delete-frame", &Qdelete_frame, |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
7791 &Qiconify_frame, "iconify-frame", &Qiconify_frame, |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
7792 &Qmake_frame_visible, "make-frame-visible", &Qmake_frame_visible, |
518 | 7793 }; |
7794 | |
7795 syms_of_keyboard () | |
7796 { | |
4094
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
7797 Qdisabled_command_hook = intern ("disabled-command-hook"); |
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
7798 staticpro (&Qdisabled_command_hook); |
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
7799 |
518 | 7800 Qself_insert_command = intern ("self-insert-command"); |
7801 staticpro (&Qself_insert_command); | |
7802 | |
7803 Qforward_char = intern ("forward-char"); | |
7804 staticpro (&Qforward_char); | |
7805 | |
7806 Qbackward_char = intern ("backward-char"); | |
7807 staticpro (&Qbackward_char); | |
7808 | |
7809 Qdisabled = intern ("disabled"); | |
7810 staticpro (&Qdisabled); | |
7811 | |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
7812 Qundefined = intern ("undefined"); |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
7813 staticpro (&Qundefined); |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
7814 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7815 Qpre_command_hook = intern ("pre-command-hook"); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7816 staticpro (&Qpre_command_hook); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7817 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7818 Qpost_command_hook = intern ("post-command-hook"); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7819 staticpro (&Qpost_command_hook); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7820 |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
7821 Qpost_command_idle_hook = intern ("post-command-idle-hook"); |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
7822 staticpro (&Qpost_command_idle_hook); |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
7823 |
10070
def41008c136
(command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents:
10060
diff
changeset
|
7824 Qdeferred_action_function = intern ("deferred-action-function"); |
def41008c136
(command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents:
10060
diff
changeset
|
7825 staticpro (&Qdeferred_action_function); |
def41008c136
(command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents:
10060
diff
changeset
|
7826 |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
7827 Qcommand_hook_internal = intern ("command-hook-internal"); |
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
7828 staticpro (&Qcommand_hook_internal); |
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
7829 |
518 | 7830 Qfunction_key = intern ("function-key"); |
7831 staticpro (&Qfunction_key); | |
1322
5f327f1dddd3
* keyboard.c (modify_event_symbol): Make sure that the unmodified
Jim Blandy <jimb@redhat.com>
parents:
1310
diff
changeset
|
7832 Qmouse_click = intern ("mouse-click"); |
518 | 7833 staticpro (&Qmouse_click); |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
7834 Qtimer_event = intern ("timer-event"); |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
7835 staticpro (&Qtimer_event); |
518 | 7836 |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
7837 Qmenu_enable = intern ("menu-enable"); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
7838 staticpro (&Qmenu_enable); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
7839 |
518 | 7840 Qmode_line = intern ("mode-line"); |
7841 staticpro (&Qmode_line); | |
732 | 7842 Qvertical_line = intern ("vertical-line"); |
7843 staticpro (&Qvertical_line); | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
7844 Qvertical_scroll_bar = intern ("vertical-scroll-bar"); |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
7845 staticpro (&Qvertical_scroll_bar); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7846 Qmenu_bar = intern ("menu-bar"); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7847 staticpro (&Qmenu_bar); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
7848 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
7849 Qabove_handle = intern ("above-handle"); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
7850 staticpro (&Qabove_handle); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
7851 Qhandle = intern ("handle"); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
7852 staticpro (&Qhandle); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
7853 Qbelow_handle = intern ("below-handle"); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
7854 staticpro (&Qbelow_handle); |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
7855 Qup = intern ("up"); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
7856 staticpro (&Qup); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
7857 Qdown = intern ("down"); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
7858 staticpro (&Qdown); |
518 | 7859 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
7860 Qevent_kind = intern ("event-kind"); |
518 | 7861 staticpro (&Qevent_kind); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7862 Qevent_symbol_elements = intern ("event-symbol-elements"); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7863 staticpro (&Qevent_symbol_elements); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
7864 Qevent_symbol_element_mask = intern ("event-symbol-element-mask"); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
7865 staticpro (&Qevent_symbol_element_mask); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
7866 Qmodifier_cache = intern ("modifier-cache"); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
7867 staticpro (&Qmodifier_cache); |
518 | 7868 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
7869 Qrecompute_lucid_menubar = intern ("recompute-lucid-menubar"); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
7870 staticpro (&Qrecompute_lucid_menubar); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
7871 Qactivate_menubar_hook = intern ("activate-menubar-hook"); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
7872 staticpro (&Qactivate_menubar_hook); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
7873 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
7874 Qpolling_period = intern ("polling-period"); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
7875 staticpro (&Qpolling_period); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
7876 |
518 | 7877 { |
7878 struct event_head *p; | |
7879 | |
7880 for (p = head_table; | |
7881 p < head_table + (sizeof (head_table) / sizeof (head_table[0])); | |
7882 p++) | |
7883 { | |
7884 *p->var = intern (p->name); | |
7885 staticpro (p->var); | |
7886 Fput (*p->var, Qevent_kind, *p->kind); | |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7887 Fput (*p->var, Qevent_symbol_elements, Fcons (*p->var, Qnil)); |
518 | 7888 } |
7889 } | |
7890 | |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
7891 button_down_location = Fmake_vector (make_number (NUM_MOUSE_BUTTONS), Qnil); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
7892 staticpro (&button_down_location); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7893 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7894 { |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7895 int i; |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7896 int len = sizeof (modifier_names) / sizeof (modifier_names[0]); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7897 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7898 modifier_symbols = Fmake_vector (make_number (len), Qnil); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7899 for (i = 0; i < len; i++) |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7900 if (modifier_names[i]) |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7901 XVECTOR (modifier_symbols)->contents[i] = intern (modifier_names[i]); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7902 staticpro (&modifier_symbols); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7903 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7904 |
1262
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
7905 recent_keys = Fmake_vector (make_number (NUM_RECENT_KEYS), Qnil); |
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
7906 staticpro (&recent_keys); |
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
7907 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
7908 this_command_keys = Fmake_vector (make_number (40), Qnil); |
1449
7f2b81dc2dd1
(syms_of_keyboard): Properly staticpro this_command_keys.
Richard M. Stallman <rms@gnu.org>
parents:
1439
diff
changeset
|
7909 staticpro (&this_command_keys); |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
7910 |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
7911 Qextended_command_history = intern ("extended-command-history"); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
7912 Fset (Qextended_command_history, Qnil); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
7913 staticpro (&Qextended_command_history); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
7914 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7915 kbd_buffer_frame_or_window |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7916 = Fmake_vector (make_number (KBD_BUFFER_SIZE), Qnil); |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7917 staticpro (&kbd_buffer_frame_or_window); |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7918 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
7919 accent_key_syms = Qnil; |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
7920 staticpro (&accent_key_syms); |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
7921 |
518 | 7922 func_key_syms = Qnil; |
7923 staticpro (&func_key_syms); | |
7924 | |
7925 mouse_syms = Qnil; | |
7926 staticpro (&mouse_syms); | |
7927 | |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
7928 unread_switch_frame = Qnil; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
7929 staticpro (&unread_switch_frame); |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
7930 |
16229
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
7931 internal_last_event_frame = Qnil; |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
7932 staticpro (&internal_last_event_frame); |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
7933 |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
7934 read_key_sequence_cmd = Qnil; |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
7935 staticpro (&read_key_sequence_cmd); |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
7936 |
12150
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
7937 defsubr (&Sevent_convert_list); |
518 | 7938 defsubr (&Sread_key_sequence); |
7939 defsubr (&Srecursive_edit); | |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
7940 #ifdef HAVE_MOUSE |
518 | 7941 defsubr (&Strack_mouse); |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
7942 #endif |
518 | 7943 defsubr (&Sinput_pending_p); |
7944 defsubr (&Scommand_execute); | |
7945 defsubr (&Srecent_keys); | |
7946 defsubr (&Sthis_command_keys); | |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7947 defsubr (&Sthis_single_command_keys); |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
7948 defsubr (&Sreset_this_command_lengths); |
518 | 7949 defsubr (&Ssuspend_emacs); |
7950 defsubr (&Sabort_recursive_edit); | |
7951 defsubr (&Sexit_recursive_edit); | |
7952 defsubr (&Srecursion_depth); | |
7953 defsubr (&Stop_level); | |
7954 defsubr (&Sdiscard_input); | |
7955 defsubr (&Sopen_dribble_file); | |
7956 defsubr (&Sset_input_mode); | |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
7957 defsubr (&Scurrent_input_mode); |
518 | 7958 defsubr (&Sexecute_extended_command); |
7959 | |
7960 DEFVAR_LISP ("last-command-char", &last_command_char, | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7961 "Last input event that was part of a command."); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7962 |
8039
7cc73292df36
(syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents:
7999
diff
changeset
|
7963 DEFVAR_LISP_NOPRO ("last-command-event", &last_command_char, |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7964 "Last input event that was part of a command."); |
518 | 7965 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7966 DEFVAR_LISP ("last-nonmenu-event", &last_nonmenu_event, |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7967 "Last input event in a command, except for mouse menu events.\n\ |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7968 Mouse menus give back keys that don't look like mouse events;\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7969 this variable holds the actual mouse event that led to the menu,\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7970 so that you can determine whether the command was run by mouse or not."); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7971 |
518 | 7972 DEFVAR_LISP ("last-input-char", &last_input_char, |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7973 "Last input event."); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7974 |
8039
7cc73292df36
(syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents:
7999
diff
changeset
|
7975 DEFVAR_LISP_NOPRO ("last-input-event", &last_input_char, |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7976 "Last input event."); |
518 | 7977 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
7978 DEFVAR_LISP ("unread-command-events", &Vunread_command_events, |
1960
6051ba81a938
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
1947
diff
changeset
|
7979 "List of objects to be read as next command input events."); |
518 | 7980 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7981 DEFVAR_INT ("unread-command-char", &unread_command_char, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7982 "If not -1, an object to be read as next command input event."); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
7983 |
518 | 7984 DEFVAR_LISP ("meta-prefix-char", &meta_prefix_char, |
7985 "Meta-prefix character code. Meta-foo as command input\n\ | |
7986 turns into this character followed by foo."); | |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
7987 XSETINT (meta_prefix_char, 033); |
518 | 7988 |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
7989 DEFVAR_KBOARD ("last-command", Vlast_command, |
518 | 7990 "The last command executed. Normally a symbol with a function definition,\n\ |
7991 but can be whatever was found in the keymap, or whatever the variable\n\ | |
10060
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
7992 `this-command' was set to by that command.\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
7993 \n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
7994 The value `mode-exit' is special; it means that the previous command\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
7995 read an event that told it to exit, and it did so and unread that event.\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
7996 In other words, the present command is the event that made the previous\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
7997 command exit.\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
7998 \n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
7999 The value `kill-region' is special; it means that the previous command\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
8000 was a kill command."); |
518 | 8001 |
8002 DEFVAR_LISP ("this-command", &this_command, | |
8003 "The command now being executed.\n\ | |
8004 The command can set this variable; whatever is put here\n\ | |
8005 will be in `last-command' during the following command."); | |
8006 this_command = Qnil; | |
8007 | |
8008 DEFVAR_INT ("auto-save-interval", &auto_save_interval, | |
8009 "*Number of keyboard input characters between auto-saves.\n\ | |
8010 Zero means disable autosaving due to number of characters typed."); | |
8011 auto_save_interval = 300; | |
8012 | |
8013 DEFVAR_LISP ("auto-save-timeout", &Vauto_save_timeout, | |
8014 "*Number of seconds idle time before auto-save.\n\ | |
687
e2b747dd6a6e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
682
diff
changeset
|
8015 Zero or nil means disable auto-saving due to idleness.\n\ |
e2b747dd6a6e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
682
diff
changeset
|
8016 After auto-saving due to this many seconds of idle time,\n\ |
701 | 8017 Emacs also does a garbage collection if that seems to be warranted."); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
8018 XSETFASTINT (Vauto_save_timeout, 30); |
518 | 8019 |
8020 DEFVAR_INT ("echo-keystrokes", &echo_keystrokes, | |
8021 "*Nonzero means echo unfinished commands after this many seconds of pause."); | |
8022 echo_keystrokes = 1; | |
8023 | |
8024 DEFVAR_INT ("polling-period", &polling_period, | |
8025 "*Interval between polling for input during Lisp execution.\n\ | |
8026 The reason for polling is to make C-g work to stop a running program.\n\ | |
8027 Polling is needed only when using X windows and SIGIO does not work.\n\ | |
8028 Polling is automatically disabled in all other cases."); | |
8029 polling_period = 2; | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8030 |
3993
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
8031 DEFVAR_LISP ("double-click-time", &Vdouble_click_time, |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8032 "*Maximum time between mouse clicks to make a double-click.\n\ |
3993
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
8033 Measured in milliseconds. nil means disable double-click recognition;\n\ |
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
8034 t means double-clicks have no time limit and are detected\n\ |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8035 by position only."); |
3994
df443e5f391e
Fix initialization of Vdouble_click_time in syms_of_keyboard.
Jim Blandy <jimb@redhat.com>
parents:
3993
diff
changeset
|
8036 Vdouble_click_time = make_number (500); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8037 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
8038 DEFVAR_BOOL ("inhibit-local-menu-bar-menus", &inhibit_local_menu_bar_menus, |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
8039 "*Non-nil means inhibit local map menu bar menus."); |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
8040 inhibit_local_menu_bar_menus = 0; |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
8041 |
518 | 8042 DEFVAR_INT ("num-input-keys", &num_input_keys, |
16610 | 8043 "Number of complete key sequences read from the keyboard so far.\n\ |
8044 This includes key sequences read from keyboard macros.\n\ | |
8045 The number is effectively the number of interactive command invocations."); | |
518 | 8046 num_input_keys = 0; |
8047 | |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
8048 DEFVAR_LISP ("last-event-frame", &Vlast_event_frame, |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
8049 "The frame in which the most recently read event occurred.\n\ |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
8050 If the last event came from a keyboard macro, this is set to `macro'."); |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
8051 Vlast_event_frame = Qnil; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
8052 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8053 DEFVAR_LISP ("help-char", &Vhelp_char, |
518 | 8054 "Character to recognize as meaning Help.\n\ |
8055 When it is read, do `(eval help-form)', and display result if it's a string.\n\ | |
8056 If the value of `help-form' is nil, this char can be read normally."); | |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
8057 XSETINT (Vhelp_char, Ctl ('H')); |
518 | 8058 |
12144 | 8059 DEFVAR_LISP ("help-event-list", &Vhelp_event_list, |
8060 "List of input events to recognize as meaning Help.\n\ | |
8061 These work just like the value of `help-char' (see that)."); | |
8062 Vhelp_event_list = Qnil; | |
8063 | |
518 | 8064 DEFVAR_LISP ("help-form", &Vhelp_form, |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8065 "Form to execute when character `help-char' is read.\n\ |
518 | 8066 If the form returns a string, that string is displayed.\n\ |
8067 If `help-form' is nil, the help char is not recognized."); | |
8068 Vhelp_form = Qnil; | |
8069 | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8070 DEFVAR_LISP ("prefix-help-command", &Vprefix_help_command, |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8071 "Command to run when `help-char' character follows a prefix key.\n\ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8072 This command is used only when there is no actual binding\n\ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8073 for that character after that prefix key."); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8074 Vprefix_help_command = Qnil; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8075 |
518 | 8076 DEFVAR_LISP ("top-level", &Vtop_level, |
8077 "Form to evaluate when Emacs starts up.\n\ | |
8078 Useful to set before you dump a modified Emacs."); | |
8079 Vtop_level = Qnil; | |
8080 | |
8081 DEFVAR_LISP ("keyboard-translate-table", &Vkeyboard_translate_table, | |
13246
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
8082 "Translate table for keyboard input, or nil.\n\ |
518 | 8083 Each character is looked up in this string and the contents used instead.\n\ |
13246
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
8084 The value may be a string, a vector, or a char-table.\n\ |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
8085 If it is a string or vector of length N,\n\ |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
8086 character codes N and up are untranslated.\n\ |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
8087 In a vector or a char-table, an element which is nil means \"no translation\"."); |
518 | 8088 Vkeyboard_translate_table = Qnil; |
8089 | |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
8090 DEFVAR_BOOL ("cannot-suspend", &cannot_suspend, |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
8091 "Non-nil means to always spawn a subshell instead of suspending,\n\ |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
8092 even if the operating system has support for stopping a process."); |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
8093 cannot_suspend = 0; |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
8094 |
518 | 8095 DEFVAR_BOOL ("menu-prompting", &menu_prompting, |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8096 "Non-nil means prompt with menus when appropriate.\n\ |
518 | 8097 This is done when reading from a keymap that has a prompt string,\n\ |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8098 for elements that have prompt strings.\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8099 The menu is displayed on the screen\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8100 if X menus were enabled at configuration\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8101 time and the previous event was a mouse click prefix key.\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8102 Otherwise, menu prompting uses the echo area."); |
518 | 8103 menu_prompting = 1; |
8104 | |
8105 DEFVAR_LISP ("menu-prompt-more-char", &menu_prompt_more_char, | |
8106 "Character to see next line of menu prompt.\n\ | |
8107 Type this character while in a menu prompt to rotate around the lines of it."); | |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
8108 XSETINT (menu_prompt_more_char, ' '); |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
8109 |
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
8110 DEFVAR_INT ("extra-keyboard-modifiers", &extra_keyboard_modifiers, |
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
8111 "A mask of additional modifier keys to use with every keyboard character.\n\ |
2726
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
8112 Emacs applies the modifiers of the character stored here to each keyboard\n\ |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
8113 character it reads. For example, after evaluating the expression\n\ |
10602
05a3cfc7a5ba
(syms_of_keyboard): Fix missing backslashes.
Karl Heuer <kwzh@gnu.org>
parents:
10579
diff
changeset
|
8114 (setq extra-keyboard-modifiers ?\\C-x)\n\ |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
8115 all input characters will have the control modifier applied to them.\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
8116 \n\ |
10602
05a3cfc7a5ba
(syms_of_keyboard): Fix missing backslashes.
Karl Heuer <kwzh@gnu.org>
parents:
10579
diff
changeset
|
8117 Note that the character ?\\C-@, equivalent to the integer zero, does\n\ |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
8118 not count as a control character; rather, it counts as a character\n\ |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
8119 with no modifiers; thus, setting `extra-keyboard-modifiers' to zero\n\ |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
8120 cancels any modification."); |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
8121 extra_keyboard_modifiers = 0; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8122 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8123 DEFVAR_LISP ("deactivate-mark", &Vdeactivate_mark, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8124 "If an editing command sets this to t, deactivate the mark afterward.\n\ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8125 The command loop sets this to nil before each command,\n\ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8126 and tests the value when the command returns.\n\ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8127 Buffer modification stores t in this variable."); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8128 Vdeactivate_mark = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8129 |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
8130 DEFVAR_LISP ("command-hook-internal", &Vcommand_hook_internal, |
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
8131 "Temporary storage of pre-command-hook or post-command-hook."); |
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
8132 Vcommand_hook_internal = Qnil; |
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
8133 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8134 DEFVAR_LISP ("pre-command-hook", &Vpre_command_hook, |
7433
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
8135 "Normal hook run before each command is executed.\n\ |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
8136 Errors running the hook are caught and ignored."); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8137 Vpre_command_hook = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8138 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8139 DEFVAR_LISP ("post-command-hook", &Vpost_command_hook, |
7433
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
8140 "Normal hook run after each command is executed.\n\ |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
8141 Errors running the hook are caught and ignored."); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
8142 Vpost_command_hook = Qnil; |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
8143 |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
8144 DEFVAR_LISP ("post-command-idle-hook", &Vpost_command_idle_hook, |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
8145 "Normal hook run after each command is executed, if idle.\n\ |
15045
9b779a05115a
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
14997
diff
changeset
|
8146 Errors running the hook are caught and ignored.\n\ |
9b779a05115a
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
14997
diff
changeset
|
8147 This feature is obsolete; use idle timers instead. See `etc/NEWS'."); |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
8148 Vpost_command_idle_hook = Qnil; |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
8149 |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
8150 DEFVAR_INT ("post-command-idle-delay", &post_command_idle_delay, |
14592 | 8151 "Delay time before running `post-command-idle-hook'.\n\ |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
8152 This is measured in microseconds."); |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
8153 post_command_idle_delay = 100000; |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
8154 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
8155 DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag, |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
8156 "t means menu bar, specified Lucid style, needs to be recomputed."); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
8157 Vlucid_menu_bar_dirty_flag = Qnil; |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
8158 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
8159 DEFVAR_LISP ("menu-bar-final-items", &Vmenu_bar_final_items, |
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
8160 "List of menu bar items to move to the end of the menu bar.\n\ |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8161 The elements of the list are event types that may have menu bar bindings."); |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
8162 Vmenu_bar_final_items = Qnil; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
8163 |
12264 | 8164 DEFVAR_KBOARD ("overriding-terminal-local-map", |
8165 Voverriding_terminal_local_map, | |
8166 "Keymap that overrides all other local keymaps.\n\ | |
8167 If this variable is non-nil, it is used as a keymap instead of the\n\ | |
8168 buffer's local map, and the minor mode keymaps and text property keymaps."); | |
8169 | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
8170 DEFVAR_LISP ("overriding-local-map", &Voverriding_local_map, |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
8171 "Keymap that overrides all other local keymaps.\n\ |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
8172 If this variable is non-nil, it is used as a keymap instead of the\n\ |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
8173 buffer's local map, and the minor mode keymaps and text property keymaps."); |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
8174 Voverriding_local_map = Qnil; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
8175 |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
8176 DEFVAR_LISP ("overriding-local-map-menu-flag", &Voverriding_local_map_menu_flag, |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
8177 "Non-nil means `overriding-local-map' applies to the menu bar.\n\ |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
8178 Otherwise, the menu bar continues to reflect the buffer's local map\n\ |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
8179 and the minor mode maps regardless of `overriding-local-map'."); |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
8180 Voverriding_local_map_menu_flag = Qnil; |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
8181 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8182 DEFVAR_LISP ("special-event-map", &Vspecial_event_map, |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8183 "Keymap defining bindings for special events to execute at low level."); |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8184 Vspecial_event_map = Fcons (intern ("keymap"), Qnil); |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8185 |
9881
02cd4dde69e1
(tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents:
9864
diff
changeset
|
8186 DEFVAR_LISP ("track-mouse", &do_mouse_tracking, |
11832
7c2d57ac784f
(syms_of_keyboard): Always define track-mouse.
Karl Heuer <kwzh@gnu.org>
parents:
11777
diff
changeset
|
8187 "*Non-nil means generate motion events for mouse motion."); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
8188 |
11543
317e5825008b
(Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents:
11540
diff
changeset
|
8189 DEFVAR_KBOARD ("system-key-alist", Vsystem_key_alist, |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
8190 "Alist of system-specific X windows key symbols.\n\ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
8191 Each element should have the form (N . SYMBOL) where N is the\n\ |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
8192 numeric keysym code (sans the \"system-specific\" bit 1<<28)\n\ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
8193 and SYMBOL is its name."); |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8194 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8195 DEFVAR_LISP ("deferred-action-list", &Vdeferred_action_list, |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8196 "List of deferred actions to be performed at a later time.\n\ |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8197 The precise format isn't relevant here; we just check whether it is nil."); |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8198 Vdeferred_action_list = Qnil; |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8199 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8200 DEFVAR_LISP ("deferred-action-function", &Vdeferred_action_function, |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8201 "Function to call to handle deferred actions, after each command.\n\ |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8202 This function is called with no arguments after each command\n\ |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8203 whenever `deferred-action-list' is non-nil."); |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
8204 Vdeferred_action_function = Qnil; |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
8205 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
8206 DEFVAR_LISP ("suggest-key-bindings", &Vsuggest_key_bindings, |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
8207 "Non-nil means show the equivalent key-binding when M-x command has one.\n\ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
8208 The value can be a length of time to show the message for.\n\ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
8209 If the value is non-nil and not a number, we wait 2 seconds."); |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
8210 Vsuggest_key_bindings = Qt; |
13329
3bd6e6e466f7
(command_loop_1): No direct display if Column Number mode.
Richard M. Stallman <rms@gnu.org>
parents:
13324
diff
changeset
|
8211 |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
8212 DEFVAR_LISP ("timer-list", &Vtimer_list, |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
8213 "List of active absolute time timers in order of increasing time"); |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
8214 Vtimer_list = Qnil; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
8215 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
8216 DEFVAR_LISP ("timer-idle-list", &Vtimer_idle_list, |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
8217 "List of active idle-time timers in order of increasing time"); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
8218 Vtimer_idle_list = Qnil; |
518 | 8219 } |
8220 | |
8221 keys_of_keyboard () | |
8222 { | |
8223 initial_define_key (global_map, Ctl ('Z'), "suspend-emacs"); | |
8224 initial_define_key (control_x_map, Ctl ('Z'), "suspend-emacs"); | |
8225 initial_define_key (meta_map, Ctl ('C'), "exit-recursive-edit"); | |
8226 initial_define_key (global_map, Ctl (']'), "abort-recursive-edit"); | |
8227 initial_define_key (meta_map, 'x', "execute-extended-command"); | |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8228 |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8229 initial_define_lispy_key (Vspecial_event_map, "delete-frame", |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8230 "handle-delete-frame"); |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8231 initial_define_lispy_key (Vspecial_event_map, "iconify-frame", |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8232 "ignore-event"); |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8233 initial_define_lispy_key (Vspecial_event_map, "make-frame-visible", |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
8234 "ignore-event"); |
518 | 8235 } |