Mercurial > emacs
annotate src/keyboard.c @ 9668:38a4e4386aed
(kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 23 Oct 1994 07:49:24 +0000 |
parents | 13a13988685a |
children | fb713e1560d1 |
rev | line source |
---|---|
518 | 1 /* Keyboard and mouse input; editor command loop. |
7307 | 2 Copyright (C) 1985,86,87,88,89,93,94 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 | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
20 /* Allow config.h to undefine symbols found here. */ | |
21 #include <signal.h> | |
22 | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4600
diff
changeset
|
23 #include <config.h> |
518 | 24 #include <stdio.h> |
25 #undef NULL | |
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 |
7807
cd93cee36101
(modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents:
7787
diff
changeset
|
60 /* 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
|
61 #include "systime.h" |
cd93cee36101
(modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents:
7787
diff
changeset
|
62 |
518 | 63 extern int errno; |
64 | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
65 /* 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
|
66 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
67 /* 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
|
68 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
|
69 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
70 /* 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
|
71 during the current critical section. */ |
2481
a7a0f89c1f64
* keyboard.c (interrupt_input_blocked, interrupt_input_pending):
Jim Blandy <jimb@redhat.com>
parents:
2439
diff
changeset
|
72 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
|
73 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
74 |
518 | 75 #ifdef HAVE_X_WINDOWS |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
76 /* File descriptor to use for input. */ |
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
77 extern int input_fd; |
518 | 78 |
79 /* Make all keyboard buffers much bigger when using X windows. */ | |
80 #define KBD_BUFFER_SIZE 4096 | |
81 #else /* No X-windows, character input */ | |
82 #define KBD_BUFFER_SIZE 256 | |
83 #endif /* No X-windows */ | |
84 | |
85 /* Following definition copied from eval.c */ | |
86 | |
87 struct backtrace | |
88 { | |
89 struct backtrace *next; | |
90 Lisp_Object *function; | |
91 Lisp_Object *args; /* Points to vector of args. */ | |
92 int nargs; /* length of vector. If nargs is UNEVALLED, | |
93 args points to slot holding list of | |
94 unevalled args */ | |
95 char evalargs; | |
96 }; | |
97 | |
98 /* Non-nil disable property on a command means | |
99 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
|
100 Lisp_Object Qdisabled, Qdisabled_command_hook; |
518 | 101 |
102 #define NUM_RECENT_KEYS (100) | |
103 int recent_keys_index; /* Index for storing next element into recent_keys */ | |
104 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
|
105 Lisp_Object recent_keys; /* A vector, holding the last 100 keystrokes */ |
518 | 106 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
107 /* 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
|
108 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
|
109 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
|
110 actually mean something. |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
111 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
|
112 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
|
113 int this_command_key_count; |
518 | 114 |
115 extern int minbuf_level; | |
116 | |
117 extern struct backtrace *backtrace_list; | |
118 | |
119 /* Nonzero means do menu prompting. */ | |
120 static int menu_prompting; | |
121 | |
122 /* Character to see next line of menu prompt. */ | |
123 static Lisp_Object menu_prompt_more_char; | |
124 | |
125 /* For longjmp to where kbd input is being done. */ | |
126 static jmp_buf getcjmp; | |
127 | |
128 /* True while doing kbd input. */ | |
129 int waiting_for_input; | |
130 | |
131 /* True while displaying for echoing. Delays C-g throwing. */ | |
132 static int echoing; | |
133 | |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
134 /* 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
|
135 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
|
136 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
137 /* Nonzero means C-g should cause immediate error-signal. */ |
518 | 138 int immediate_quit; |
139 | |
140 /* 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
|
141 Lisp_Object Vhelp_char; |
518 | 142 |
143 /* Form to execute when help char is typed. */ | |
144 Lisp_Object Vhelp_form; | |
145 | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
146 /* 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
|
147 Lisp_Object Vprefix_help_command; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
148 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
149 /* 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
|
150 Lisp_Object Vmenu_bar_final_items; |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
151 |
518 | 152 /* Character that causes a quit. Normally C-g. |
153 | |
154 If we are running on an ordinary terminal, this must be an ordinary | |
155 ASCII char, since we want to make it our interrupt character. | |
156 | |
157 If we are not running on an ordinary terminal, it still needs to be | |
158 an ordinary ASCII char. This character needs to be recognized in | |
159 the input interrupt handler. At this point, the keystroke is | |
160 represented as a struct input_event, while the desired quit | |
161 character is specified as a lispy event. The mapping from struct | |
162 input_events to lispy events cannot run in an interrupt handler, | |
163 and the reverse mapping is difficult for anything but ASCII | |
164 keystrokes. | |
165 | |
166 FOR THESE ELABORATE AND UNSATISFYING REASONS, quit_char must be an | |
167 ASCII character. */ | |
168 int quit_char; | |
169 | |
170 extern Lisp_Object current_global_map; | |
171 extern int minibuf_level; | |
172 | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
173 /* 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
|
174 Lisp_Object Voverriding_local_map; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
175 |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
176 /* 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
|
177 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
|
178 |
518 | 179 /* Current depth in recursive edits. */ |
180 int command_loop_level; | |
181 | |
182 /* Total number of times command_loop has read a key sequence. */ | |
183 int num_input_keys; | |
184 | |
185 /* Last input character read as a command. */ | |
186 Lisp_Object last_command_char; | |
187 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
188 /* 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
|
189 reached by the mouse. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
190 Lisp_Object last_nonmenu_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
191 |
518 | 192 /* Last input character read for any purpose. */ |
193 Lisp_Object last_input_char; | |
194 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
195 /* 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
|
196 Lisp_Object Vunread_command_events; |
518 | 197 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
198 /* 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
|
199 int unread_command_char; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
200 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
201 /* 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
|
202 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
|
203 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
|
204 |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
205 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
|
206 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
|
207 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
|
208 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
|
209 |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
210 /* 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
|
211 int extra_keyboard_modifiers; |
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
212 |
518 | 213 /* Char to use as prefix when a meta character is typed in. |
214 This is bound on entry to minibuffer in case ESC is changed there. */ | |
215 | |
216 Lisp_Object meta_prefix_char; | |
217 | |
218 /* Last size recorded for a current buffer which is not a minibuffer. */ | |
219 static int last_non_minibuf_size; | |
220 | |
687
e2b747dd6a6e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
682
diff
changeset
|
221 /* Number of idle seconds before an auto-save and garbage collection. */ |
518 | 222 static Lisp_Object Vauto_save_timeout; |
223 | |
224 /* Total number of times read_char has returned. */ | |
225 int num_input_chars; | |
226 | |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
227 /* 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
|
228 int num_nonmacro_input_chars; |
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
229 |
518 | 230 /* Auto-save automatically when this many characters have been typed |
231 since the last time. */ | |
232 | |
233 static int auto_save_interval; | |
234 | |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
235 /* Value of num_nonmacro_input_chars as of last auto save. */ |
518 | 236 |
237 int last_auto_save; | |
238 | |
239 /* Last command executed by the editor command loop, not counting | |
240 commands that set the prefix argument. */ | |
241 | |
242 Lisp_Object last_command; | |
243 | |
244 /* The command being executed by the command loop. | |
245 Commands may set this, and the value set will be copied into last_command | |
246 instead of the actual command. */ | |
247 Lisp_Object this_command; | |
248 | |
6178
ad3864a4e0bc
(command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents:
6159
diff
changeset
|
249 /* 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
|
250 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
|
251 |
7345
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
252 /* 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
|
253 Lisp_Object last_point_position_buffer; |
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
254 |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
255 #ifdef MULTI_FRAME |
1239
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
256 /* The frame in which the last input event occurred, or Qmacro if the |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
257 last event came from a macro. We use this to determine when to |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
258 generate switch-frame events. This may be cleared by functions |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
259 like Fselect_frame, to make sure that a switch-frame event is |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
260 generated by the next character. */ |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
261 Lisp_Object internal_last_event_frame; |
6968
20acd87f9180
(Vlast_event_frame): Define unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
6964
diff
changeset
|
262 #endif |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
263 |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
264 /* A user-visible version of the above, intended to allow users to |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
265 figure out where the last event came from, if the event doesn't |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
266 carry that information itself (i.e. if it was a character). */ |
765 | 267 Lisp_Object Vlast_event_frame; |
518 | 268 |
708 | 269 /* The timestamp of the last input event we received from the X server. |
270 X Windows wants this for selection ownership. */ | |
518 | 271 unsigned long last_event_timestamp; |
272 | |
273 Lisp_Object Qself_insert_command; | |
274 Lisp_Object Qforward_char; | |
275 Lisp_Object Qbackward_char; | |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
276 Lisp_Object Qundefined; |
518 | 277 |
278 /* read_key_sequence stores here the command definition of the | |
279 key sequence that it reads. */ | |
280 Lisp_Object read_key_sequence_cmd; | |
281 | |
282 /* Form to evaluate (if non-nil) when Emacs is started. */ | |
283 Lisp_Object Vtop_level; | |
284 | |
285 /* User-supplied string to translate input characters through. */ | |
286 Lisp_Object Vkeyboard_translate_table; | |
287 | |
288 /* Keymap mapping ASCII function key sequences onto their preferred forms. */ | |
289 extern Lisp_Object Vfunction_key_map; | |
290 | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
291 /* Keymap mapping ASCII function key sequences onto their preferred forms. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
292 Lisp_Object Vkey_translation_map; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
293 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
294 /* 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
|
295 Lisp_Object Vdeactivate_mark; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
296 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
297 /* 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
|
298 |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
299 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
|
300 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
|
301 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
302 /* Hooks to run before and after each command. */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
303 Lisp_Object Qpre_command_hook, Qpost_command_hook; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
304 Lisp_Object Vpre_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
|
305 Lisp_Object Qcommand_hook_internal, Vcommand_hook_internal; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
306 |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
307 /* 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
|
308 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
|
309 Lisp_Object Vdeferred_action_list; |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
310 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
311 /* 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
|
312 Lisp_Object Vdeferred_action_function; |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
313 |
518 | 314 /* File in which we write all commands we read. */ |
315 FILE *dribble; | |
316 | |
317 /* Nonzero if input is available. */ | |
318 int input_pending; | |
319 | |
2690
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
320 /* 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
|
321 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
|
322 |
518 | 323 int meta_key; |
324 | |
325 extern char *pending_malloc_warning; | |
326 | |
327 /* Circular buffer for pre-read keyboard input. */ | |
328 static struct input_event kbd_buffer[KBD_BUFFER_SIZE]; | |
329 | |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
330 /* Vector to GCPRO the frames and windows mentioned in kbd_buffer. |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
331 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
332 The interrupt-level event handlers will never enqueue an event on a |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
333 frame which is not in Vframe_list, and once an event is dequeued, |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
334 internal_last_event_frame or the event itself points to the frame. |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
335 So that's all fine. |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
336 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
337 But while the event is sitting in the queue, it's completely |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
338 unprotected. Suppose the user types one command which will run for |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
339 a while and then delete a frame, and then types another event at |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
340 the frame that will be deleted, before the command gets around to |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
341 it. Suppose there are no references to this frame elsewhere in |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
342 Emacs, and a GC occurs before the second event is dequeued. Now we |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
343 have an event referring to a freed frame, which will crash Emacs |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
344 when it is dequeued. |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
345 |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
346 Similar things happen when an event on a scroll bar is enqueued; the |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
347 window may be deleted while the event is in the queue. |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
348 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
349 So, we use this vector to protect the frame_or_window field in the |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
350 event queue. That way, they'll be dequeued as dead frames or |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
351 windows, but still valid lisp objects. |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
352 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
353 If kbd_buffer[i].kind != no_event, then |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
354 (XVECTOR (kbd_buffer_frame_or_window)->contents[i] |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
355 == kbd_buffer[i].frame_or_window. */ |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
356 static Lisp_Object kbd_buffer_frame_or_window; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
357 |
518 | 358 /* Pointer to next available character in kbd_buffer. |
359 If kbd_fetch_ptr == kbd_store_ptr, the buffer is empty. | |
360 This may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the the | |
361 next available char is in kbd_buffer[0]. */ | |
362 static struct input_event *kbd_fetch_ptr; | |
363 | |
364 /* Pointer to next place to store character in kbd_buffer. This | |
365 may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the next | |
366 character should go in kbd_buffer[0]. */ | |
8936
bcf92490217e
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8727
diff
changeset
|
367 static volatile struct input_event *kbd_store_ptr; |
518 | 368 |
369 /* The above pair of variables forms a "queue empty" flag. When we | |
370 enqueue a non-hook event, we increment kbd_write_count. When we | |
371 dequeue a non-hook event, we increment kbd_read_count. We say that | |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
372 there is input available iff the two counters are not equal. |
518 | 373 |
374 Why not just have a flag set and cleared by the enqueuing and | |
375 dequeuing functions? Such a flag could be screwed up by interrupts | |
376 at inopportune times. */ | |
377 | |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
378 /* If this flag is a frame, we check mouse_moved to see when the |
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
379 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
|
380 Otherwise, mouse motion is ignored. */ |
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
381 static Lisp_Object do_mouse_tracking; |
518 | 382 |
383 /* The window system handling code should set this if the mouse has | |
384 moved since the last call to the mouse_position_hook. Calling that | |
385 hook should clear this. Code assumes that if this is set, it can | |
386 call mouse_position_hook to get the promised position, so don't set | |
387 it unless you're prepared to substantiate the claim! */ | |
388 int mouse_moved; | |
389 | |
390 /* True iff there is an event in kbd_buffer, or if mouse tracking is | |
391 enabled and there is a new mouse position in the mouse movement | |
392 buffer. Note that if this is false, that doesn't mean that there | |
393 is readable input; all the events in the queue might be button-up | |
394 events, and do_mouse_tracking might be off. */ | |
395 #define EVENT_QUEUES_EMPTY \ | |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
396 ((kbd_fetch_ptr == kbd_store_ptr) \ |
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
397 && (! FRAMEP (do_mouse_tracking) || !mouse_moved)) |
518 | 398 |
399 | |
400 /* Symbols to head events. */ | |
401 Lisp_Object Qmouse_movement; | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
402 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
|
403 Lisp_Object Qswitch_frame; |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
404 Lisp_Object Qdelete_frame; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
405 |
518 | 406 /* Symbols to denote kinds of events. */ |
407 Lisp_Object Qfunction_key; | |
408 Lisp_Object Qmouse_click; | |
409 /* Lisp_Object Qmouse_movement; - also an event header */ | |
410 | |
411 /* Properties of event headers. */ | |
412 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
|
413 Lisp_Object Qevent_symbol_elements; |
518 | 414 |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
415 Lisp_Object Qmenu_enable; |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
416 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
417 /* 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
|
418 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
|
419 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
|
420 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
|
421 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
|
422 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
|
423 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
424 /* 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
|
425 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
|
426 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
|
427 apply_modifiers. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
428 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
|
429 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
430 /* Symbols to use for parts of windows. */ |
518 | 431 Lisp_Object Qmode_line; |
732 | 432 Lisp_Object Qvertical_line; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
433 Lisp_Object Qvertical_scroll_bar; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
434 Lisp_Object Qmenu_bar; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
435 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
436 extern Lisp_Object Qmenu_enable; |
518 | 437 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
438 Lisp_Object recursive_edit_unwind (), command_loop (); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
439 Lisp_Object Fthis_command_keys (); |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
440 Lisp_Object Qextended_command_history; |
518 | 441 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
442 Lisp_Object Qpolling_period; |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
443 |
648 | 444 /* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt |
445 happens. */ | |
446 EMACS_TIME *input_available_clear_time; | |
518 | 447 |
448 /* Nonzero means use SIGIO interrupts; zero means use CBREAK mode. | |
449 Default is 1 if INTERRUPT_INPUT is defined. */ | |
450 int interrupt_input; | |
451 | |
452 /* Nonzero while interrupts are temporarily deferred during redisplay. */ | |
453 int interrupts_deferred; | |
454 | |
455 /* nonzero means use ^S/^Q for flow control. */ | |
456 int flow_control; | |
457 | |
458 /* Allow m- file to inhibit use of FIONREAD. */ | |
459 #ifdef BROKEN_FIONREAD | |
460 #undef FIONREAD | |
461 #endif | |
462 | |
463 /* We are unable to use interrupts if FIONREAD is not available, | |
464 so flush SIGIO so we won't try. */ | |
465 #ifndef FIONREAD | |
466 #ifdef SIGIO | |
467 #undef SIGIO | |
468 #endif | |
469 #endif | |
470 | |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
471 /* If we support X Windows, turn on the code to poll periodically |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
472 to detect C-g. It isn't actually used when doing interrupt input. */ |
518 | 473 #ifdef HAVE_X_WINDOWS |
474 #define POLL_FOR_INPUT | |
475 #endif | |
476 | |
477 /* Global variable declarations. */ | |
478 | |
479 /* Function for init_keyboard to call with no args (if nonzero). */ | |
480 void (*keyboard_init_hook) (); | |
481 | |
482 static int read_avail_input (); | |
483 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
|
484 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
|
485 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
|
486 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
|
487 static Lisp_Object make_lispy_event (); |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
488 static Lisp_Object make_lispy_movement (); |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
489 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
|
490 static Lisp_Object make_lispy_switch_frame (); |
518 | 491 |
492 /* > 0 if we are to echo keystrokes. */ | |
493 static int echo_keystrokes; | |
494 | |
495 /* Nonzero means echo each character as typed. */ | |
496 static int immediate_echo; | |
497 | |
498 /* The text we're echoing in the modeline - partial key sequences, | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
499 usually. '\0'-terminated. This really shouldn't have a fixed size. */ |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
500 static char echobuf[300]; |
518 | 501 |
502 /* Where to append more text to echobuf if we want to. */ | |
503 static char *echoptr; | |
504 | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
505 /* If we have echoed a prompt string specified by the user, |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
506 this is its length. Otherwise this is -1. */ |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
507 static int echo_after_prompt; |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
508 |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
509 /* 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
|
510 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
|
511 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
|
512 |
518 | 513 #define min(a,b) ((a)<(b)?(a):(b)) |
514 #define max(a,b) ((a)>(b)?(a):(b)) | |
515 | |
516 /* Install the string STR as the beginning of the string of echoing, | |
517 so that it serves as a prompt for the next character. | |
518 Also start echoing. */ | |
519 | |
520 echo_prompt (str) | |
521 char *str; | |
522 { | |
523 int len = strlen (str); | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
524 |
518 | 525 if (len > sizeof echobuf - 4) |
526 len = sizeof echobuf - 4; | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
527 bcopy (str, echobuf, len); |
518 | 528 echoptr = echobuf + len; |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
529 *echoptr = '\0'; |
518 | 530 |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
531 echo_after_prompt = len; |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
532 |
518 | 533 echo (); |
534 } | |
535 | |
536 /* Add C to the echo string, if echoing is going on. | |
537 C can be a character, which is printed prettily ("M-C-x" and all that | |
538 jazz), or a symbol, whose name is printed. */ | |
539 | |
540 echo_char (c) | |
541 Lisp_Object c; | |
542 { | |
543 extern char *push_key_description (); | |
544 | |
545 if (immediate_echo) | |
546 { | |
547 char *ptr = echoptr; | |
548 | |
549 if (ptr != echobuf) | |
550 *ptr++ = ' '; | |
551 | |
552 /* 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
|
553 c = EVENT_HEAD (c); |
518 | 554 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
555 if (INTEGERP (c)) |
518 | 556 { |
557 if (ptr - echobuf > sizeof echobuf - 6) | |
558 return; | |
559 | |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
560 ptr = push_key_description (XINT (c), ptr); |
518 | 561 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
562 else if (SYMBOLP (c)) |
518 | 563 { |
564 struct Lisp_String *name = XSYMBOL (c)->name; | |
565 if (((ptr - echobuf) + name->size + 4) > sizeof echobuf) | |
566 return; | |
567 bcopy (name->data, ptr, name->size); | |
568 ptr += name->size; | |
569 } | |
570 | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
571 if (echoptr == echobuf && EQ (c, Vhelp_char)) |
518 | 572 { |
573 strcpy (ptr, " (Type ? for further options)"); | |
574 ptr += strlen (ptr); | |
575 } | |
576 | |
577 *ptr = 0; | |
578 echoptr = ptr; | |
579 | |
580 echo (); | |
581 } | |
582 } | |
583 | |
584 /* Temporarily add a dash to the end of the echo string if it's not | |
585 empty, so that it serves as a mini-prompt for the very next character. */ | |
586 | |
587 echo_dash () | |
588 { | |
589 if (!immediate_echo && echoptr == echobuf) | |
590 return; | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
591 /* Do nothing if we just printed a prompt. */ |
8067
1aaf0461446d
(echo_dash): Fix backwards conditional.
Richard M. Stallman <rms@gnu.org>
parents:
8039
diff
changeset
|
592 if (echo_after_prompt == echoptr - echobuf) |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
593 return; |
2505
c0a13d078f68
* keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents:
2482
diff
changeset
|
594 /* Do nothing if not echoing at all. */ |
c0a13d078f68
* keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents:
2482
diff
changeset
|
595 if (echoptr == 0) |
c0a13d078f68
* keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents:
2482
diff
changeset
|
596 return; |
518 | 597 |
598 /* Put a dash at the end of the buffer temporarily, | |
599 but make it go away when the next character is added. */ | |
600 echoptr[0] = '-'; | |
601 echoptr[1] = 0; | |
602 | |
603 echo (); | |
604 } | |
605 | |
606 /* Display the current echo string, and begin echoing if not already | |
607 doing so. */ | |
608 | |
609 echo () | |
610 { | |
611 if (!immediate_echo) | |
612 { | |
613 int i; | |
614 immediate_echo = 1; | |
615 | |
616 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
|
617 { |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
618 Lisp_Object c; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
619 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
|
620 if (! (EVENT_HAS_PARAMETERS (c) |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
621 && 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
|
622 echo_char (c); |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
623 } |
518 | 624 echo_dash (); |
625 } | |
626 | |
627 echoing = 1; | |
628 message1 (echobuf); | |
629 echoing = 0; | |
630 | |
631 if (waiting_for_input && !NILP (Vquit_flag)) | |
632 quit_throw_to_read_char (); | |
633 } | |
634 | |
635 /* Turn off echoing, for the start of a new command. */ | |
636 | |
637 cancel_echoing () | |
638 { | |
639 immediate_echo = 0; | |
640 echoptr = echobuf; | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
641 echo_after_prompt = -1; |
518 | 642 } |
643 | |
644 /* Return the length of the current echo string. */ | |
645 | |
646 static int | |
647 echo_length () | |
648 { | |
649 return echoptr - echobuf; | |
650 } | |
651 | |
652 /* Truncate the current echo message to its first LEN chars. | |
653 This and echo_char get used by read_key_sequence when the user | |
765 | 654 switches frames while entering a key sequence. */ |
518 | 655 |
656 static void | |
657 echo_truncate (len) | |
658 int len; | |
659 { | |
660 echobuf[len] = '\0'; | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
661 echoptr = 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
|
662 truncate_echo_area (len); |
518 | 663 } |
664 | |
665 | |
666 /* Functions for manipulating this_command_keys. */ | |
667 static void | |
668 add_command_key (key) | |
669 Lisp_Object key; | |
670 { | |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
671 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
|
672 |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
673 if (this_command_key_count >= size) |
518 | 674 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
675 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
|
676 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
677 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
|
678 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
|
679 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
|
680 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
|
681 |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
682 this_command_keys = new_keys; |
518 | 683 } |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
684 |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
685 XVECTOR (this_command_keys)->contents[this_command_key_count++] = key; |
518 | 686 } |
687 | |
688 Lisp_Object | |
689 recursive_edit_1 () | |
690 { | |
691 int count = specpdl_ptr - specpdl; | |
692 Lisp_Object val; | |
693 | |
694 if (command_loop_level > 0) | |
695 { | |
696 specbind (Qstandard_output, Qt); | |
697 specbind (Qstandard_input, Qt); | |
698 } | |
699 | |
700 val = command_loop (); | |
701 if (EQ (val, Qt)) | |
702 Fsignal (Qquit, Qnil); | |
703 | |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
704 return unbind_to (count, Qnil); |
518 | 705 } |
706 | |
707 /* 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
|
708 |
518 | 709 record_auto_save () |
710 { | |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
711 last_auto_save = num_nonmacro_input_chars; |
518 | 712 } |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
713 |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
714 /* 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
|
715 |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
716 force_auto_save_soon () |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
717 { |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
718 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
|
719 |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
720 record_asynch_buffer_change (); |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
721 } |
518 | 722 |
723 DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "", | |
724 "Invoke the editor command loop recursively.\n\ | |
725 To get out of the recursive edit, a command can do `(throw 'exit nil)';\n\ | |
726 that tells this function to return.\n\ | |
727 Alternately, `(throw 'exit t)' makes this function signal an error.\n\ | |
728 This function is called by the editor initialization to begin editing.") | |
729 () | |
730 { | |
731 int count = specpdl_ptr - specpdl; | |
732 Lisp_Object val; | |
733 | |
734 command_loop_level++; | |
735 update_mode_lines = 1; | |
736 | |
737 record_unwind_protect (recursive_edit_unwind, | |
738 (command_loop_level | |
739 && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer)) | |
740 ? Fcurrent_buffer () | |
741 : Qnil); | |
742 recursive_edit_1 (); | |
743 return unbind_to (count, Qnil); | |
744 } | |
745 | |
746 Lisp_Object | |
747 recursive_edit_unwind (buffer) | |
748 Lisp_Object buffer; | |
749 { | |
750 if (!NILP (buffer)) | |
751 Fset_buffer (buffer); | |
752 | |
753 command_loop_level--; | |
754 update_mode_lines = 1; | |
755 return Qnil; | |
756 } | |
757 | |
758 Lisp_Object | |
759 cmd_error (data) | |
760 Lisp_Object data; | |
761 { | |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
762 Vstandard_output = Qt; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
763 Vstandard_input = Qt; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
764 Vexecuting_macro = Qnil; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
765 cmd_error_internal (data, 0); |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
766 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
767 Vquit_flag = Qnil; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
768 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
769 Vinhibit_quit = Qnil; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
770 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
771 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
|
772 } |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
773 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
774 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
|
775 Lisp_Object data; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
776 char *context; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
777 { |
518 | 778 Lisp_Object errmsg, tail, errname, file_error; |
779 Lisp_Object stream; | |
780 struct gcpro gcpro1; | |
781 int i; | |
782 | |
783 Vquit_flag = Qnil; | |
784 Vinhibit_quit = Qt; | |
785 echo_area_glyphs = 0; | |
786 | |
765 | 787 /* If the window system or terminal frame hasn't been initialized |
518 | 788 yet, or we're not interactive, it's best to dump this message out |
789 to stderr and exit. */ | |
765 | 790 if (! FRAME_MESSAGE_BUF (selected_frame) |
518 | 791 || noninteractive) |
792 stream = Qexternal_debugging_output; | |
793 else | |
794 { | |
795 Fdiscard_input (); | |
796 bitch_at_user (); | |
797 stream = Qt; | |
798 } | |
799 | |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
800 if (context != 0) |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
801 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
|
802 |
518 | 803 errname = Fcar (data); |
804 | |
805 if (EQ (errname, Qerror)) | |
806 { | |
807 data = Fcdr (data); | |
808 if (!CONSP (data)) data = Qnil; | |
809 errmsg = Fcar (data); | |
810 file_error = Qnil; | |
811 } | |
812 else | |
813 { | |
814 errmsg = Fget (errname, Qerror_message); | |
815 file_error = Fmemq (Qfile_error, | |
816 Fget (errname, Qerror_conditions)); | |
817 } | |
818 | |
819 /* Print an error message including the data items. | |
820 This is done by printing it into a scratch buffer | |
821 and then making a copy of the text in the buffer. */ | |
822 | |
823 if (!CONSP (data)) data = Qnil; | |
824 tail = Fcdr (data); | |
825 GCPRO1 (tail); | |
826 | |
827 /* For file-error, make error message by concatenating | |
828 all the data items. They are all strings. */ | |
829 if (!NILP (file_error) && !NILP (tail)) | |
830 errmsg = XCONS (tail)->car, tail = XCONS (tail)->cdr; | |
831 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
832 if (STRINGP (errmsg)) |
518 | 833 Fprinc (errmsg, stream); |
834 else | |
835 write_string_1 ("peculiar error", -1, stream); | |
836 | |
837 for (i = 0; CONSP (tail); tail = Fcdr (tail), i++) | |
838 { | |
839 write_string_1 (i ? ", " : ": ", 2, stream); | |
840 if (!NILP (file_error)) | |
841 Fprinc (Fcar (tail), stream); | |
842 else | |
843 Fprin1 (Fcar (tail), stream); | |
844 } | |
845 UNGCPRO; | |
846 | |
765 | 847 /* If the window system or terminal frame hasn't been initialized |
518 | 848 yet, or we're in -batch mode, this error should cause Emacs to exit. */ |
765 | 849 if (! FRAME_MESSAGE_BUF (selected_frame) |
518 | 850 || noninteractive) |
851 { | |
852 Fterpri (stream); | |
853 Fkill_emacs (make_number (-1)); | |
854 } | |
855 } | |
856 | |
857 Lisp_Object command_loop_1 (); | |
858 Lisp_Object command_loop_2 (); | |
859 Lisp_Object top_level_1 (); | |
860 | |
861 /* Entry to editor-command-loop. | |
862 This level has the catches for exiting/returning to editor command loop. | |
863 It returns nil to exit recursive edit, t to abort it. */ | |
864 | |
865 Lisp_Object | |
866 command_loop () | |
867 { | |
868 if (command_loop_level > 0 || minibuf_level > 0) | |
869 { | |
870 return internal_catch (Qexit, command_loop_2, Qnil); | |
871 } | |
872 else | |
873 while (1) | |
874 { | |
875 internal_catch (Qtop_level, top_level_1, Qnil); | |
876 internal_catch (Qtop_level, command_loop_2, Qnil); | |
877 | |
878 /* End of file in -batch run causes exit here. */ | |
879 if (noninteractive) | |
880 Fkill_emacs (Qt); | |
881 } | |
882 } | |
883 | |
884 /* Here we catch errors in execution of commands within the | |
885 editing loop, and reenter the editing loop. | |
886 When there is an error, cmd_error runs and returns a non-nil | |
887 value to us. A value of nil means that cmd_loop_1 itself | |
888 returned due to end of file (or end of kbd macro). */ | |
889 | |
890 Lisp_Object | |
891 command_loop_2 () | |
892 { | |
893 register Lisp_Object val; | |
894 | |
895 do | |
896 val = internal_condition_case (command_loop_1, Qerror, cmd_error); | |
897 while (!NILP (val)); | |
898 | |
899 return Qnil; | |
900 } | |
901 | |
902 Lisp_Object | |
903 top_level_2 () | |
904 { | |
905 return Feval (Vtop_level); | |
906 } | |
907 | |
908 Lisp_Object | |
909 top_level_1 () | |
910 { | |
911 /* On entry to the outer level, run the startup file */ | |
912 if (!NILP (Vtop_level)) | |
913 internal_condition_case (top_level_2, Qerror, cmd_error); | |
914 else if (!NILP (Vpurify_flag)) | |
915 message ("Bare impure Emacs (standard Lisp code not loaded)"); | |
916 else | |
917 message ("Bare Emacs (standard Lisp code not loaded)"); | |
918 return Qnil; | |
919 } | |
920 | |
921 DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "", | |
922 "Exit all recursive editing levels.") | |
923 () | |
924 { | |
925 Fthrow (Qtop_level, Qnil); | |
926 } | |
927 | |
928 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "", | |
929 "Exit from the innermost recursive edit or minibuffer.") | |
930 () | |
931 { | |
932 if (command_loop_level > 0 || minibuf_level > 0) | |
933 Fthrow (Qexit, Qnil); | |
934 | |
935 error ("No recursive edit is in progress"); | |
936 } | |
937 | |
938 DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0, 0, "", | |
939 "Abort the command that requested this recursive edit or minibuffer input.") | |
940 () | |
941 { | |
942 if (command_loop_level > 0 || minibuf_level > 0) | |
943 Fthrow (Qexit, Qt); | |
944 | |
945 error ("No recursive edit is in progress"); | |
946 } | |
947 | |
948 /* This is the actual command reading loop, | |
949 sans error-handling encapsulation. */ | |
950 | |
951 Lisp_Object Fcommand_execute (); | |
952 static int read_key_sequence (); | |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
953 static void safe_run_hooks (); |
518 | 954 |
955 Lisp_Object | |
956 command_loop_1 () | |
957 { | |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
958 Lisp_Object cmd, tem; |
518 | 959 int lose; |
960 int nonundocount; | |
961 Lisp_Object keybuf[30]; | |
962 int i; | |
963 int no_redisplay; | |
964 int no_direct; | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
965 int prev_modiff; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
966 struct buffer *prev_buffer; |
518 | 967 |
968 Vprefix_arg = Qnil; | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
969 Vdeactivate_mark = Qnil; |
518 | 970 waiting_for_input = 0; |
971 cancel_echoing (); | |
972 | |
973 nonundocount = 0; | |
974 no_redisplay = 0; | |
975 this_command_key_count = 0; | |
976 | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
977 /* 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
|
978 throw to top level. */ |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
979 /* 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
|
980 if the symbol is a local variable. */ |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
981 if (!NILP (XSYMBOL (Qpost_command_hook)->value) && !NILP (Vrun_hooks)) |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
982 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
|
983 |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
984 if (!NILP (Vdeferred_action_list)) |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
985 call0 (Vdeferred_action_function); |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
986 |
6290
6ecf8ea4bd8d
(command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents:
6208
diff
changeset
|
987 /* Do this after running Vpost_command_hook, for consistency. */ |
6ecf8ea4bd8d
(command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents:
6208
diff
changeset
|
988 last_command = this_command; |
6ecf8ea4bd8d
(command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents:
6208
diff
changeset
|
989 |
518 | 990 while (1) |
991 { | |
992 /* Install chars successfully executed in kbd macro. */ | |
993 | |
994 if (defining_kbd_macro && NILP (Vprefix_arg)) | |
995 finalize_kbd_macro_chars (); | |
996 | |
997 /* Make sure the current window's buffer is selected. */ | |
998 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer) | |
999 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer)); | |
1000 | |
1001 /* Display any malloc warning that just came out. Use while because | |
1002 displaying one warning can cause another. */ | |
1003 | |
1004 while (pending_malloc_warning) | |
1005 display_malloc_warning (); | |
1006 | |
1007 no_direct = 0; | |
1008 | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1009 Vdeactivate_mark = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1010 |
518 | 1011 /* 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
|
1012 wait 2 sec and redraw minibuffer. */ |
518 | 1013 |
1014 if (minibuf_level && echo_area_glyphs) | |
1015 { | |
1097
d9efc1c88574
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents:
1083
diff
changeset
|
1016 /* 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
|
1017 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
|
1018 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
|
1019 specbind (Qinhibit_quit, Qt); |
518 | 1020 Fsit_for (make_number (2), Qnil, Qnil); |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
1021 unbind_to (count, Qnil); |
1097
d9efc1c88574
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents:
1083
diff
changeset
|
1022 |
518 | 1023 echo_area_glyphs = 0; |
1024 no_direct = 1; | |
1025 if (!NILP (Vquit_flag)) | |
1026 { | |
1027 Vquit_flag = Qnil; | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1028 Vunread_command_events = Fcons (make_number (quit_char), Qnil); |
518 | 1029 } |
1030 } | |
1031 | |
1032 #ifdef C_ALLOCA | |
1033 alloca (0); /* Cause a garbage collection now */ | |
1034 /* Since we can free the most stuff here. */ | |
1035 #endif /* C_ALLOCA */ | |
1036 | |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1037 #if 0 |
765 | 1038 #ifdef MULTI_FRAME |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1039 /* 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
|
1040 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
|
1041 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
|
1042 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
|
1043 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
|
1044 && 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
|
1045 Fselect_frame (internal_last_event_frame, Qnil); |
518 | 1046 #endif |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1047 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1048 /* 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
|
1049 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
|
1050 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
|
1051 && !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
|
1052 call0 (Qrecompute_lucid_menubar); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1053 |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1054 /* Read next key sequence; i gets its length. */ |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
1055 i = read_key_sequence (keybuf, (sizeof keybuf / sizeof (keybuf[0])), Qnil); |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1056 |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1057 ++num_input_keys; |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1058 |
518 | 1059 /* Now we have read a key sequence of length I, |
1060 or else I is 0 and we found end of file. */ | |
1061 | |
1062 if (i == 0) /* End of file -- happens only in */ | |
1063 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
|
1064 /* -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
|
1065 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
|
1066 if (i == -1) |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1067 { |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1068 cancel_echoing (); |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1069 this_command_key_count = 0; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1070 continue; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1071 } |
518 | 1072 |
1073 last_command_char = keybuf[i - 1]; | |
1074 | |
2406
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1075 /* 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
|
1076 forget about that, in case this command moves point far away |
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1077 from that position. */ |
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1078 XWINDOW (selected_window)->force_start = Qnil; |
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1079 |
518 | 1080 cmd = read_key_sequence_cmd; |
1081 if (!NILP (Vexecuting_macro)) | |
1082 { | |
1083 if (!NILP (Vquit_flag)) | |
1084 { | |
1085 Vexecuting_macro = Qt; | |
1086 QUIT; /* Make some noise. */ | |
1087 /* Will return since macro now empty. */ | |
1088 } | |
1089 } | |
1090 | |
1091 /* 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
|
1092 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
|
1093 (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
|
1094 and no_redisplay is ignored. |
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
1095 Perhaps someday we will really implement it. */ |
518 | 1096 no_redisplay = 0; |
1097 | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1098 prev_buffer = current_buffer; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1099 prev_modiff = MODIFF; |
6204
ba6268a3dee9
(command_loop_1): Fix misplaced assignment of last_point_position.
Karl Heuer <kwzh@gnu.org>
parents:
6178
diff
changeset
|
1100 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
|
1101 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
|
1102 |
518 | 1103 /* Execute the command. */ |
1104 | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1105 this_command = cmd; |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1106 /* 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
|
1107 if the symbol is a local variable. */ |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1108 if (!NILP (XSYMBOL (Qpre_command_hook)->value) && !NILP (Vrun_hooks)) |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1109 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
|
1110 |
2924
6e233798a3f7
(read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents:
2898
diff
changeset
|
1111 if (NILP (this_command)) |
518 | 1112 { |
1113 /* nil means key is undefined. */ | |
1114 bitch_at_user (); | |
1115 defining_kbd_macro = 0; | |
1116 update_mode_lines = 1; | |
1117 Vprefix_arg = Qnil; | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1118 |
518 | 1119 } |
1120 else | |
1121 { | |
1122 if (NILP (Vprefix_arg) && ! no_direct) | |
1123 { | |
1124 /* Recognize some common commands in common situations and | |
1125 do them directly. */ | |
7427 | 1126 if (EQ (this_command, Qforward_char) && PT < ZV) |
518 | 1127 { |
1128 struct Lisp_Vector *dp | |
1129 = window_display_table (XWINDOW (selected_window)); | |
7427 | 1130 lose = FETCH_CHAR (PT); |
1131 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
|
1132 if ((dp |
5352
6b91471d9f0f
(command_loop_1): Test of whether disp tab elt
Richard M. Stallman <rms@gnu.org>
parents:
5225
diff
changeset
|
1133 ? (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
|
1134 ? 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
|
1135 : (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
|
1136 && (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
|
1137 : (lose >= 0x20 && lose < 0x7f)) |
518 | 1138 && (XFASTINT (XWINDOW (selected_window)->last_modified) |
1139 >= MODIFF) | |
1140 && (XFASTINT (XWINDOW (selected_window)->last_point) | |
7427 | 1141 == PT - 1) |
518 | 1142 && !windows_or_buffers_changed |
1143 && EQ (current_buffer->selective_display, Qnil) | |
1144 && !detect_input_pending () | |
1145 && NILP (Vexecuting_macro)) | |
1146 no_redisplay = direct_output_forward_char (1); | |
1147 goto directly_done; | |
1148 } | |
7427 | 1149 else if (EQ (this_command, Qbackward_char) && PT > BEGV) |
518 | 1150 { |
1151 struct Lisp_Vector *dp | |
1152 = window_display_table (XWINDOW (selected_window)); | |
7427 | 1153 SET_PT (PT - 1); |
1154 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
|
1155 if ((dp |
7532
996928472982
(command_loop_1): Fix test for valid display table entry,
Richard M. Stallman <rms@gnu.org>
parents:
7502
diff
changeset
|
1156 ? (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
|
1157 ? 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
|
1158 : (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
|
1159 && (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
|
1160 : (lose >= 0x20 && lose < 0x7f)) |
518 | 1161 && (XFASTINT (XWINDOW (selected_window)->last_modified) |
1162 >= MODIFF) | |
1163 && (XFASTINT (XWINDOW (selected_window)->last_point) | |
7427 | 1164 == PT + 1) |
518 | 1165 && !windows_or_buffers_changed |
1166 && EQ (current_buffer->selective_display, Qnil) | |
1167 && !detect_input_pending () | |
1168 && NILP (Vexecuting_macro)) | |
1169 no_redisplay = direct_output_forward_char (-1); | |
1170 goto directly_done; | |
1171 } | |
2924
6e233798a3f7
(read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents:
2898
diff
changeset
|
1172 else if (EQ (this_command, Qself_insert_command) |
518 | 1173 /* 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
|
1174 && INTEGERP (last_command_char)) |
518 | 1175 { |
1176 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
|
1177 int value; |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1178 |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1179 if (NILP (Vexecuting_macro) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1180 && !EQ (minibuf_window, selected_window)) |
518 | 1181 { |
1182 if (!nonundocount || nonundocount >= 20) | |
1183 { | |
1184 Fundo_boundary (); | |
1185 nonundocount = 0; | |
1186 } | |
1187 nonundocount++; | |
1188 } | |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1189 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
|
1190 < MODIFF) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1191 || (XFASTINT (XWINDOW (selected_window)->last_point) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1192 != PT) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1193 || MODIFF <= current_buffer->save_modified |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1194 || windows_or_buffers_changed |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1195 || !EQ (current_buffer->selective_display, Qnil) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1196 || detect_input_pending () |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1197 || !NILP (Vexecuting_macro)); |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1198 value = internal_self_insert (c, 0); |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1199 if (value) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1200 lose = 1; |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1201 if (value == 2) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1202 nonundocount = 0; |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1203 |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1204 if (!lose |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1205 && (PT == ZV || FETCH_CHAR (PT) == '\n')) |
518 | 1206 { |
1207 struct Lisp_Vector *dp | |
1208 = 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
|
1209 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
|
1210 |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1211 if (dp) |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1212 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
1213 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
|
1214 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
1215 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
|
1216 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
|
1217 { |
cfe470ebd714
(command_loop_1): Treat nil in display tab like no display tab.
Richard M. Stallman <rms@gnu.org>
parents:
7807
diff
changeset
|
1218 /* 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
|
1219 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
|
1220 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
|
1221 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
|
1222 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1223 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
|
1224 && 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
|
1225 && (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
|
1226 INTEGERP (obj)) |
7787
add6e866d6a2
(command_loop_1): Properly handle nil in display table.
Richard M. Stallman <rms@gnu.org>
parents:
7758
diff
changeset
|
1227 /* 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
|
1228 && (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
|
1229 no_redisplay |
ce538d63b1e9
(command_loop_1): Allow direct output for insert
Richard M. Stallman <rms@gnu.org>
parents:
7727
diff
changeset
|
1230 = 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
|
1231 } |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1232 else |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1233 { |
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1234 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
|
1235 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
|
1236 } |
518 | 1237 } |
1238 goto directly_done; | |
1239 } | |
1240 } | |
1241 | |
1242 /* Here for a command that isn't executed directly */ | |
1243 | |
1244 nonundocount = 0; | |
1245 if (NILP (Vprefix_arg)) | |
1246 Fundo_boundary (); | |
2924
6e233798a3f7
(read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents:
2898
diff
changeset
|
1247 Fcommand_execute (this_command, Qnil); |
518 | 1248 |
1249 } | |
547 | 1250 directly_done: ; |
518 | 1251 |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1252 /* 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
|
1253 if the symbol is a local variable. */ |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1254 if (!NILP (XSYMBOL (Qpost_command_hook)->value) && !NILP (Vrun_hooks)) |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1255 safe_run_hooks (Qpost_command_hook); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1256 |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
1257 if (!NILP (Vdeferred_action_list)) |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
1258 call0 (Vdeferred_action_function); |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
1259 |
518 | 1260 /* If there is a prefix argument, |
1261 1) We don't want last_command to be ``universal-argument'' | |
1262 (that would be dumb), so don't set last_command, | |
1263 2) we want to leave echoing on so that the prefix will be | |
1264 echoed as part of this key sequence, so don't call | |
1265 cancel_echoing, and | |
1266 3) we want to leave this_command_key_count non-zero, so that | |
1267 read_char will realize that it is re-reading a character, and | |
1268 not echo it a second time. */ | |
1269 if (NILP (Vprefix_arg)) | |
1270 { | |
1271 last_command = this_command; | |
1272 cancel_echoing (); | |
1273 this_command_key_count = 0; | |
1274 } | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1275 |
6208
db4139d43f8a
(command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents:
6204
diff
changeset
|
1276 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
|
1277 { |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1278 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
|
1279 { |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1280 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
|
1281 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
|
1282 } |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1283 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
|
1284 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
|
1285 } |
518 | 1286 } |
1287 } | |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1288 |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1289 /* 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
|
1290 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
|
1291 to mysteriously evaporate. */ |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1292 static void |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1293 safe_run_hooks (hook) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1294 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
|
1295 { |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
1296 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
|
1297 int count = specpdl_ptr - specpdl; |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1298 specbind (Qinhibit_quit, Qt); |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1299 |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1300 /* We read and set the variable with functions, |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1301 in case it's buffer-local. */ |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
1302 value = Vcommand_hook_internal = Fsymbol_value (hook); |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1303 Fset (hook, Qnil); |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1304 call1 (Vrun_hooks, Qcommand_hook_internal); |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
1305 Fset (hook, value); |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1306 |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1307 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
|
1308 } |
518 | 1309 |
1310 /* Number of seconds between polling for input. */ | |
1311 int polling_period; | |
1312 | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3538
diff
changeset
|
1313 /* Nonzero means polling for input is temporarily suppressed. */ |
518 | 1314 int poll_suppress_count; |
1315 | |
8653
07cc798f5cab
(polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
8589
diff
changeset
|
1316 /* 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
|
1317 int polling_for_input; |
07cc798f5cab
(polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
8589
diff
changeset
|
1318 |
518 | 1319 #ifdef POLL_FOR_INPUT |
1320 | |
1321 /* Handle an alarm once each second and read pending input | |
1322 so as to handle a C-g if it comces in. */ | |
1323 | |
1324 SIGTYPE | |
1325 input_poll_signal () | |
1326 { | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
1327 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
|
1328 && !waiting_for_input) |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
1329 read_avail_input (0); |
518 | 1330 signal (SIGALRM, input_poll_signal); |
1331 alarm (polling_period); | |
1332 } | |
1333 | |
1334 #endif | |
1335 | |
1336 /* Begin signals to poll for input, if they are appropriate. | |
1337 This function is called unconditionally from various places. */ | |
1338 | |
1339 start_polling () | |
1340 { | |
1341 #ifdef POLL_FOR_INPUT | |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
1342 if (read_socket_hook && !interrupt_input) |
518 | 1343 { |
1344 poll_suppress_count--; | |
1345 if (poll_suppress_count == 0) | |
1346 { | |
1347 signal (SIGALRM, input_poll_signal); | |
1348 polling_for_input = 1; | |
1349 alarm (polling_period); | |
1350 } | |
1351 } | |
1352 #endif | |
1353 } | |
1354 | |
8673
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1355 /* 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
|
1356 |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1357 int |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1358 input_polling_used () |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1359 { |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1360 #ifdef POLL_FOR_INPUT |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1361 return read_socket_hook && !interrupt_input; |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1362 #else |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1363 return 0; |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1364 #endif |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1365 } |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1366 |
518 | 1367 /* Turn off polling. */ |
1368 | |
1369 stop_polling () | |
1370 { | |
1371 #ifdef POLL_FOR_INPUT | |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
1372 if (read_socket_hook && !interrupt_input) |
518 | 1373 { |
1374 if (poll_suppress_count == 0) | |
1375 { | |
1376 polling_for_input = 0; | |
1377 alarm (0); | |
1378 } | |
1379 poll_suppress_count++; | |
1380 } | |
1381 #endif | |
1382 } | |
4475
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1383 |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1384 /* 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
|
1385 and start or stop polling accordingly. */ |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1386 |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1387 void |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1388 set_poll_suppress_count (count) |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1389 int count; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1390 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1391 #ifdef POLL_FOR_INPUT |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1392 if (count == 0 && poll_suppress_count != 0) |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1393 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1394 poll_suppress_count = 1; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1395 start_polling (); |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1396 } |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1397 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
|
1398 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1399 stop_polling (); |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1400 } |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1401 poll_suppress_count = count; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1402 #endif |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1403 } |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1404 |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1405 /* 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
|
1406 But don't decrease it. */ |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1407 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1408 bind_polling_period (n) |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1409 int n; |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1410 { |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1411 #ifdef POLL_FOR_INPUT |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1412 int new = polling_period; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1413 |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1414 if (n > new) |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1415 new = n; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1416 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1417 stop_polling (); |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1418 specbind (Qpolling_period, make_number (new)); |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1419 /* 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
|
1420 start_polling (); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1421 #endif |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1422 } |
518 | 1423 |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1424 /* Applying the control modifier to CHARACTER. */ |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1425 int |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1426 make_ctrl_char (c) |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1427 int c; |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1428 { |
2954
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1429 /* Save the upper bits here. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1430 int upper = c & ~0177; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1431 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1432 c &= 0177; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1433 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1434 /* Everything in the columns containing the upper-case letters |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1435 denotes a control character. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1436 if (c >= 0100 && c < 0140) |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1437 { |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1438 int oc = c; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1439 c &= ~0140; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1440 /* Set the shift modifier for a control char |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1441 made from a shifted letter. But only for letters! */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1442 if (oc >= 'A' && oc <= 'Z') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1443 c |= shift_modifier; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1444 } |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1445 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1446 /* The lower-case letters denote control characters too. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1447 else if (c >= 'a' && c <= 'z') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1448 c &= ~0140; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1449 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1450 /* Include the bits for control and shift |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1451 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
|
1452 else if (c >= ' ') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1453 c |= ctrl_modifier; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1454 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1455 /* Replace the high bits. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1456 c |= (upper & ~ctrl_modifier); |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1457 |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1458 return c; |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1459 } |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1460 |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1461 |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1462 |
518 | 1463 /* Input of single characters from keyboard */ |
1464 | |
1465 Lisp_Object print_help (); | |
1466 static Lisp_Object kbd_buffer_get_event (); | |
1467 | |
1468 /* read a character from the keyboard; call the redisplay if needed */ | |
1469 /* commandflag 0 means do not do auto-saving, but do do redisplay. | |
1470 -1 means do not do redisplay, but do do autosaving. | |
1471 1 means do both. */ | |
1472 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1473 /* 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
|
1474 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
|
1475 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1476 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
|
1477 the first event of a key sequence. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1478 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
1479 If USED_MOUSE_MENU is non-zero, then we set *USED_MOUSE_MENU to 1 |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
1480 if we used a mouse menu to read the input, or zero otherwise. If |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1481 USED_MOUSE_MENU is zero, *USED_MOUSE_MENU is left alone. |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1482 |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1483 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
|
1484 |
518 | 1485 Lisp_Object |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1486 read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu) |
518 | 1487 int commandflag; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1488 int nmaps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1489 Lisp_Object *maps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1490 Lisp_Object prev_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1491 int *used_mouse_menu; |
518 | 1492 { |
1493 register Lisp_Object c; | |
1494 int count; | |
1495 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
|
1496 int key_already_recorded = 0; |
518 | 1497 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1498 if (CONSP (Vunread_command_events)) |
518 | 1499 { |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1500 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
|
1501 Vunread_command_events = XCONS (Vunread_command_events)->cdr; |
518 | 1502 |
1503 if (this_command_key_count == 0) | |
1504 goto reread_first; | |
1505 else | |
1506 goto reread; | |
1507 } | |
1508 | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1509 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
|
1510 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
1511 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
|
1512 unread_command_char = -1; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1513 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1514 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
|
1515 goto reread_first; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1516 else |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1517 goto reread; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1518 } |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1519 |
518 | 1520 if (!NILP (Vexecuting_macro)) |
1521 { | |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
1522 #ifdef MULTI_FRAME |
1239
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
1523 /* 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
|
1524 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
|
1525 remain unchanged. |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
1526 |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
1527 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
|
1528 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
|
1529 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
|
1530 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
|
1531 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
|
1532 selected. */ |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1533 Vlast_event_frame = internal_last_event_frame = Qmacro; |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
1534 #endif |
1239
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
1535 |
2719
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
1536 /* 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
|
1537 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
|
1538 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
|
1539 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
|
1540 || executing_macro_index >= XFASTINT (Flength (Vexecuting_macro))) |
518 | 1541 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
1542 XSETINT (c, -1); |
518 | 1543 return c; |
1544 } | |
1545 | |
1546 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
|
1547 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
|
1548 && (XINT (c) & 0x80)) |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
1549 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
|
1550 |
518 | 1551 executing_macro_index++; |
1552 | |
1553 goto from_macro; | |
1554 } | |
1555 | |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1556 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
|
1557 { |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1558 c = unread_switch_frame; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1559 unread_switch_frame = Qnil; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1560 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1561 /* 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
|
1562 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
|
1563 goto reread_first; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1564 } |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
1565 |
7246
7f6b5e9ba2c7
(Ftrack_mouse): Call prepare_menu_bars at the start.
Richard M. Stallman <rms@gnu.org>
parents:
7225
diff
changeset
|
1566 /* Don't bother updating menu bars while doing mouse tracking. |
7f6b5e9ba2c7
(Ftrack_mouse): Call prepare_menu_bars at the start.
Richard M. Stallman <rms@gnu.org>
parents:
7225
diff
changeset
|
1567 We get events very rapidly then, and the menu bar won't be changing. |
7f6b5e9ba2c7
(Ftrack_mouse): Call prepare_menu_bars at the start.
Richard M. Stallman <rms@gnu.org>
parents:
7225
diff
changeset
|
1568 We do update the menu bar once on entry to Ftrack_mouse. */ |
7396
3774d6d8a5ee
(read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents:
7351
diff
changeset
|
1569 if (commandflag > 0 && !input_pending && !detect_input_pending ()) |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
1570 prepare_menu_bars (); |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
1571 |
518 | 1572 /* Save outer setjmp data, in case called recursively. */ |
650 | 1573 save_getcjmp (save_jump); |
518 | 1574 |
1575 stop_polling (); | |
1576 | |
1577 if (commandflag >= 0 && !input_pending && !detect_input_pending ()) | |
1578 redisplay (); | |
1579 | |
1580 if (_setjmp (getcjmp)) | |
1581 { | |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
1582 XSETINT (c, quit_char); |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
1583 #ifdef MULTI_FRAME |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
1584 XSETFRAME (internal_last_event_frame, selected_frame); |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1585 Vlast_event_frame = internal_last_event_frame; |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
1586 #endif |
2434
39c696510c64
(read_char): Clear Vquit_flag when we return C-g for it.
Richard M. Stallman <rms@gnu.org>
parents:
2406
diff
changeset
|
1587 /* 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
|
1588 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
|
1589 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
|
1590 Vquit_flag = Qnil; |
518 | 1591 |
1592 goto non_reread; | |
1593 } | |
1594 | |
1595 /* Message turns off echoing unless more keystrokes turn it on again. */ | |
1596 if (echo_area_glyphs && *echo_area_glyphs && echo_area_glyphs != echobuf) | |
1597 cancel_echoing (); | |
1598 else | |
1599 /* If already echoing, continue. */ | |
1600 echo_dash (); | |
1601 | |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1602 /* Try reading a character via menu prompting in the minibuf. |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1603 Try this before the sit-for, because the sit-for |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1604 would do the wrong thing if we are supposed to do |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1605 menu prompting. If EVENT_HAS_PARAMETERS then we are reading |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1606 after a mouse event so don't try a minibuf menu. */ |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1607 c = Qnil; |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1608 if (nmaps > 0 && INTERACTIVE |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1609 && !NILP (prev_event) && ! EVENT_HAS_PARAMETERS (prev_event) |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1610 /* 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
|
1611 && NILP (Vunread_command_events) |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1612 && unread_command_char < 0 |
7396
3774d6d8a5ee
(read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents:
7351
diff
changeset
|
1613 && !detect_input_pending ()) |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1614 { |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1615 c = read_char_minibuf_menu_prompt (commandflag, nmaps, maps); |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1616 if (! NILP (c)) |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1617 { |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1618 key_already_recorded = 1; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1619 goto non_reread; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1620 } |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1621 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1622 |
518 | 1623 /* If in middle of key sequence and minibuffer not active, |
1624 start echoing if enough time elapses. */ | |
1625 if (minibuf_level == 0 && !immediate_echo && 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
|
1626 && ! noninteractive |
518 | 1627 && echo_keystrokes > 0 |
1628 && (echo_area_glyphs == 0 || *echo_area_glyphs == 0)) | |
1629 { | |
1630 Lisp_Object tem0; | |
1631 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1632 /* After a mouse event, start echoing right away. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1633 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
|
1634 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
|
1635 if (EVENT_HAS_PARAMETERS (prev_event)) |
518 | 1636 echo (); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1637 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1638 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1639 tem0 = sit_for (echo_keystrokes, 0, 1, 1); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1640 if (EQ (tem0, Qt)) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1641 echo (); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1642 } |
518 | 1643 } |
1644 | |
1645 /* Maybe auto save due to number of keystrokes or idle time. */ | |
1646 | |
1647 if (commandflag != 0 | |
1648 && auto_save_interval > 0 | |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
1649 && num_nonmacro_input_chars - last_auto_save > max (auto_save_interval, 20) |
518 | 1650 && !detect_input_pending ()) |
1651 { | |
1652 jmp_buf temp; | |
1653 save_getcjmp (temp); | |
1654 Fdo_auto_save (Qnil, Qnil); | |
1655 restore_getcjmp (temp); | |
1656 } | |
1657 | |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
1658 /* 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
|
1659 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
|
1660 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
|
1661 does not pass on any keymaps. */ |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1662 if (nmaps > 0 && INTERACTIVE |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1663 && !NILP (prev_event) && EVENT_HAS_PARAMETERS (prev_event) |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1664 /* 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
|
1665 && NILP (Vunread_command_events) |
7396
3774d6d8a5ee
(read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents:
7351
diff
changeset
|
1666 && 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
|
1667 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
|
1668 |
518 | 1669 /* Slow down auto saves logarithmically in size of current buffer, |
1670 and garbage collect while we're at it. */ | |
3920
81d29cf5b232
* keyboard.c (read_char): Don't do idle autosaves if we're not
Jim Blandy <jimb@redhat.com>
parents:
3887
diff
changeset
|
1671 if (INTERACTIVE && NILP (c)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1672 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1673 int delay_level, buffer_size; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1674 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1675 if (! MINI_WINDOW_P (XWINDOW (selected_window))) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1676 last_non_minibuf_size = Z - BEG; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1677 buffer_size = (last_non_minibuf_size >> 8) + 1; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1678 delay_level = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1679 while (buffer_size > 64) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1680 delay_level++, buffer_size -= buffer_size >> 2; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1681 if (delay_level < 4) delay_level = 4; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1682 /* 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
|
1683 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
|
1684 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1685 /* 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
|
1686 if (commandflag != 0 |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
1687 && 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
|
1688 && INTEGERP (Vauto_save_timeout) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1689 && XINT (Vauto_save_timeout) > 0) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1690 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1691 Lisp_Object tem0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1692 int delay = delay_level * XFASTINT (Vauto_save_timeout) / 4; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1693 tem0 = sit_for (delay, 0, 1, 1); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1694 if (EQ (tem0, Qt)) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1695 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1696 jmp_buf temp; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1697 save_getcjmp (temp); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1698 Fdo_auto_save (Qnil, Qnil); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1699 restore_getcjmp (temp); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1700 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1701 /* 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
|
1702 available, garbage collect if there has been enough |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1703 consing going on to make it worthwhile. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1704 if (!detect_input_pending () |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1705 && consing_since_gc > gc_cons_threshold / 2) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
1706 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
1707 Fgarbage_collect (); |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
1708 /* prepare_menu_bars isn't safe here, but it should |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
1709 also be unnecessary. */ |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
1710 redisplay (); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
1711 } |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1712 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1713 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
1714 } |
518 | 1715 |
1716 /* Actually read a character, waiting if necessary. */ | |
3174
719776bc7f7d
(read_char): Correct previous change.
Richard M. Stallman <rms@gnu.org>
parents:
3117
diff
changeset
|
1717 while (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
|
1718 { |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
1719 c = kbd_buffer_get_event (); |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
1720 if (!NILP (c)) |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
1721 break; |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
1722 if (commandflag >= 0 && !input_pending && !detect_input_pending ()) |
7857
e735b56f7423
(read_char): When we loop and call redisplay,
Richard M. Stallman <rms@gnu.org>
parents:
7828
diff
changeset
|
1723 { |
e735b56f7423
(read_char): When we loop and call redisplay,
Richard M. Stallman <rms@gnu.org>
parents:
7828
diff
changeset
|
1724 prepare_menu_bars (); |
e735b56f7423
(read_char): When we loop and call redisplay,
Richard M. Stallman <rms@gnu.org>
parents:
7828
diff
changeset
|
1725 redisplay (); |
e735b56f7423
(read_char): When we loop and call redisplay,
Richard M. Stallman <rms@gnu.org>
parents:
7828
diff
changeset
|
1726 } |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
1727 } |
518 | 1728 |
1729 /* 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
|
1730 if (noninteractive && INTEGERP (c) && XINT (c) < 0) |
518 | 1731 Fkill_emacs (make_number (1)); |
1732 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1733 if (INTEGERP (c)) |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
1734 { |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
1735 /* Add in any extra modifiers, where appropriate. */ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
1736 if ((extra_keyboard_modifiers & CHAR_CTL) |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
1737 || ((extra_keyboard_modifiers & 0177) < ' ' |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
1738 && (extra_keyboard_modifiers & 0177) != 0)) |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1739 XSETINT (c, make_ctrl_char (XINT (c))); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
1740 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
1741 /* Transfer any other modifier bits directly from |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
1742 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
|
1743 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
|
1744 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
|
1745 } |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
1746 |
518 | 1747 non_reread: |
1748 | |
650 | 1749 restore_getcjmp (save_jump); |
518 | 1750 |
1751 start_polling (); | |
1752 | |
8569
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
1753 /* 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
|
1754 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
|
1755 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
|
1756 return c; |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
1757 |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1758 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
|
1759 return c; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1760 |
8569
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
1761 /* 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
|
1762 echo_area_glyphs = 0; |
518 | 1763 |
1764 /* 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
|
1765 if (INTEGERP (c)) |
518 | 1766 { |
1767 /* 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
|
1768 if (XINT (c) == -1) |
518 | 1769 return c; |
1770 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1771 if (STRINGP (Vkeyboard_translate_table) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
1772 && XSTRING (Vkeyboard_translate_table)->size > XFASTINT (c)) |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
1773 XSETINT (c, XSTRING (Vkeyboard_translate_table)->data[XFASTINT (c)]); |
518 | 1774 } |
1775 | |
1776 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
|
1777 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
|
1778 if (++recent_keys_index >= NUM_RECENT_KEYS) |
518 | 1779 recent_keys_index = 0; |
1780 | |
1781 /* Write c to the dribble file. If c is a lispy event, write | |
1782 the event's symbol to the dribble file, in <brackets>. Bleaugh. | |
1783 If you, dear reader, have a better idea, you've got the source. :-) */ | |
1784 if (dribble) | |
1785 { | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1786 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
|
1787 { |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
1788 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
|
1789 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
|
1790 else |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
1791 fprintf (dribble, " 0x%x", XUINT (c)); |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
1792 } |
518 | 1793 else |
1794 { | |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
1795 Lisp_Object dribblee; |
518 | 1796 |
1797 /* 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
|
1798 dribblee = EVENT_HEAD (c); |
518 | 1799 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1800 if (SYMBOLP (dribblee)) |
518 | 1801 { |
1802 putc ('<', dribble); | |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1803 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
|
1804 XSYMBOL (dribblee)->name->size, |
518 | 1805 dribble); |
1806 putc ('>', dribble); | |
1807 } | |
1808 } | |
1809 | |
1810 fflush (dribble); | |
1811 } | |
1812 | |
1813 store_kbd_macro_char (c); | |
1814 | |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
1815 num_nonmacro_input_chars++; |
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
1816 |
518 | 1817 from_macro: |
1818 reread_first: | |
1819 | |
7396
3774d6d8a5ee
(read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents:
7351
diff
changeset
|
1820 /* Don't echo mouse motion events. */ |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
1821 if (! (EVENT_HAS_PARAMETERS (c) |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
1822 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement))) |
7396
3774d6d8a5ee
(read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents:
7351
diff
changeset
|
1823 echo_char (c); |
3774d6d8a5ee
(read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents:
7351
diff
changeset
|
1824 |
7500 | 1825 /* Record this character as part of the current key. */ |
7396
3774d6d8a5ee
(read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents:
7351
diff
changeset
|
1826 add_command_key (c); |
518 | 1827 |
1828 /* Re-reading in the middle of a command */ | |
1829 reread: | |
1830 last_input_char = c; | |
1831 num_input_chars++; | |
1832 | |
1833 /* Process the help character specially if enabled */ | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
1834 if (EQ (c, Vhelp_char) && !NILP (Vhelp_form)) |
518 | 1835 { |
1836 Lisp_Object tem0; | |
1837 count = specpdl_ptr - specpdl; | |
1838 | |
1839 record_unwind_protect (Fset_window_configuration, | |
1840 Fcurrent_window_configuration (Qnil)); | |
1841 | |
1842 tem0 = Feval (Vhelp_form); | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
1843 if (STRINGP (tem0)) |
518 | 1844 internal_with_output_to_temp_buffer ("*Help*", print_help, tem0); |
1845 | |
1846 cancel_echoing (); | |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
1847 do |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
1848 c = read_char (0, 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
|
1849 while (BUFFERP (c)); |
765 | 1850 /* Remove the help from the frame */ |
518 | 1851 unbind_to (count, Qnil); |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
1852 prepare_menu_bars (); |
518 | 1853 redisplay (); |
1854 if (EQ (c, make_number (040))) | |
1855 { | |
1856 cancel_echoing (); | |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
1857 do |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
1858 c = read_char (0, 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
|
1859 while (BUFFERP (c)); |
518 | 1860 } |
1861 } | |
1862 | |
1863 return c; | |
1864 } | |
1865 | |
1866 Lisp_Object | |
1867 print_help (object) | |
1868 Lisp_Object object; | |
1869 { | |
1870 Fprinc (object, Qnil); | |
1871 return Qnil; | |
1872 } | |
1873 | |
1874 /* Copy out or in the info on where C-g should throw to. | |
1875 This is used when running Lisp code from within get_char, | |
1876 in case get_char is called recursively. | |
1877 See read_process_output. */ | |
1878 | |
1879 save_getcjmp (temp) | |
1880 jmp_buf temp; | |
1881 { | |
1882 bcopy (getcjmp, temp, sizeof getcjmp); | |
1883 } | |
1884 | |
1885 restore_getcjmp (temp) | |
1886 jmp_buf temp; | |
1887 { | |
1888 bcopy (temp, getcjmp, sizeof getcjmp); | |
1889 } | |
1890 | |
1891 | |
1892 /* Restore mouse tracking enablement. See Ftrack_mouse for the only use | |
1893 of this function. */ | |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
1894 |
518 | 1895 static Lisp_Object |
1896 tracking_off (old_value) | |
1897 Lisp_Object old_value; | |
1898 { | |
1899 if (! XFASTINT (old_value)) | |
1900 { | |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
1901 do_mouse_tracking = Qnil; |
518 | 1902 |
1903 /* Redisplay may have been preempted because there was input | |
1904 available, and it assumes it will be called again after the | |
1905 input has been processed. If the only input available was | |
1906 the sort that we have just disabled, then we need to call | |
1907 redisplay. */ | |
1908 if (!readable_events ()) | |
1909 { | |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
1910 prepare_menu_bars (); |
518 | 1911 redisplay_preserve_echo_area (); |
1912 get_input_pending (&input_pending); | |
1913 } | |
1914 } | |
1915 } | |
1916 | |
1917 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
|
1918 "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
|
1919 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
|
1920 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
|
1921 Normally, mouse motion is ignored.") |
518 | 1922 (args) |
1923 Lisp_Object args; | |
1924 { | |
1925 int count = specpdl_ptr - specpdl; | |
1926 Lisp_Object val; | |
1927 | |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
1928 record_unwind_protect (tracking_off, do_mouse_tracking); |
518 | 1929 |
7246
7f6b5e9ba2c7
(Ftrack_mouse): Call prepare_menu_bars at the start.
Richard M. Stallman <rms@gnu.org>
parents:
7225
diff
changeset
|
1930 if (!input_pending && !detect_input_pending ()) |
7f6b5e9ba2c7
(Ftrack_mouse): Call prepare_menu_bars at the start.
Richard M. Stallman <rms@gnu.org>
parents:
7225
diff
changeset
|
1931 prepare_menu_bars (); |
7f6b5e9ba2c7
(Ftrack_mouse): Call prepare_menu_bars at the start.
Richard M. Stallman <rms@gnu.org>
parents:
7225
diff
changeset
|
1932 |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
1933 XSETFRAME (do_mouse_tracking, selected_frame); |
518 | 1934 |
1935 val = Fprogn (args); | |
1936 return unbind_to (count, val); | |
1937 } | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1938 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1939 /* 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
|
1940 kbd_buffer_store_event places events in kbd_buffer, and |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1941 kbd_buffer_get_event retrieves them. |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1942 mouse_moved indicates when the mouse has moved again, and |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1943 *mouse_position_hook provides the mouse position. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1944 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1945 /* 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
|
1946 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
|
1947 static int |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1948 readable_events () |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1949 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1950 return ! EVENT_QUEUES_EMPTY; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1951 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1952 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1953 /* 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
|
1954 int stop_character; |
518 | 1955 |
1956 /* Store an event obtained at interrupt level into kbd_buffer, fifo */ | |
1957 | |
1958 void | |
1959 kbd_buffer_store_event (event) | |
1960 register struct input_event *event; | |
1961 { | |
1962 if (event->kind == no_event) | |
1963 abort (); | |
1964 | |
1965 if (event->kind == ascii_keystroke) | |
1966 { | |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
1967 register int c = event->code & 0377; |
518 | 1968 |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1969 if (event->modifiers & ctrl_modifier) |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1970 c = make_ctrl_char (c); |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1971 |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
1972 c |= (event->modifiers |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
1973 & (meta_modifier | alt_modifier |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
1974 | hyper_modifier | super_modifier)); |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
1975 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1976 if (c == quit_char) |
518 | 1977 { |
985
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
1978 extern SIGTYPE interrupt_signal (); |
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
1979 |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
1980 #ifdef MULTI_FRAME |
518 | 1981 /* 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
|
1982 input, set Vlast_event_frame properly. If this doesn't |
518 | 1983 get returned to Emacs as an event, the next event read |
765 | 1984 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
|
1985 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
1986 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
|
1987 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
1988 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
|
1989 if (NILP (focus)) |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1990 internal_last_event_frame = 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
|
1991 else |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1992 internal_last_event_frame = focus; |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
1993 Vlast_event_frame = internal_last_event_frame; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
1994 } |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
1995 #endif |
985
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
1996 |
648 | 1997 last_event_timestamp = event->timestamp; |
518 | 1998 interrupt_signal (); |
1999 return; | |
2000 } | |
2001 | |
2002 if (c && c == stop_character) | |
2003 { | |
2004 sys_suspend (); | |
2005 return; | |
2006 } | |
2007 } | |
2008 | |
2009 if (kbd_store_ptr - kbd_buffer == KBD_BUFFER_SIZE) | |
2010 kbd_store_ptr = kbd_buffer; | |
2011 | |
2012 /* Don't let the very last slot in the buffer become full, | |
2013 since that would make the two pointers equal, | |
2014 and that is indistinguishable from an empty buffer. | |
2015 Discard the event if it would fill the last slot. */ | |
2016 if (kbd_fetch_ptr - 1 != kbd_store_ptr) | |
2017 { | |
2018 kbd_store_ptr->kind = event->kind; | |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2019 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
|
2020 { |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2021 /* 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
|
2022 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
|
2023 in this case. */ |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2024 bcopy (event, kbd_store_ptr, sizeof (*event)); |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2025 } |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2026 else |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2027 { |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2028 kbd_store_ptr->code = event->code; |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2029 kbd_store_ptr->part = event->part; |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2030 kbd_store_ptr->frame_or_window = event->frame_or_window; |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2031 kbd_store_ptr->modifiers = event->modifiers; |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2032 kbd_store_ptr->x = event->x; |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2033 kbd_store_ptr->y = event->y; |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2034 kbd_store_ptr->timestamp = event->timestamp; |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
2035 } |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2036 (XVECTOR (kbd_buffer_frame_or_window)->contents[kbd_store_ptr |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2037 - kbd_buffer] |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2038 = event->frame_or_window); |
518 | 2039 |
2040 kbd_store_ptr++; | |
2041 } | |
2042 } | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2043 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2044 /* 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
|
2045 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
|
2046 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
|
2047 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
|
2048 We always read and discard one event. */ |
518 | 2049 |
2050 static Lisp_Object | |
2051 kbd_buffer_get_event () | |
2052 { | |
2053 register int c; | |
2054 Lisp_Object obj; | |
2055 | |
2056 if (noninteractive) | |
2057 { | |
2058 c = getchar (); | |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2059 XSETINT (obj, c); |
518 | 2060 return obj; |
2061 } | |
2062 | |
2063 /* Wait until there is input available. */ | |
2064 for (;;) | |
2065 { | |
2066 if (!EVENT_QUEUES_EMPTY) | |
2067 break; | |
2068 | |
2069 /* If the quit flag is set, then read_char will return | |
2070 quit_char, so that counts as "available input." */ | |
2071 if (!NILP (Vquit_flag)) | |
2072 quit_throw_to_read_char (); | |
2073 | |
2074 /* One way or another, wait until input is available; then, if | |
2075 interrupt handlers have not read it, read it now. */ | |
2076 | |
2077 #ifdef OLDVMS | |
2078 wait_for_kbd_input (); | |
2079 #else | |
2080 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
2081 #ifdef SIGIO | |
2082 gobble_input (0); | |
2083 #endif /* SIGIO */ | |
2084 if (EVENT_QUEUES_EMPTY) | |
2085 { | |
650 | 2086 Lisp_Object minus_one; |
2087 | |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2088 XSETINT (minus_one, -1); |
650 | 2089 wait_reading_process_input (0, 0, minus_one, 1); |
518 | 2090 |
2091 if (!interrupt_input && EVENT_QUEUES_EMPTY) | |
5779
8fae1a51e9c5
(kbd_buffer_get_event): Pass 1 to read_avail_input.
Richard M. Stallman <rms@gnu.org>
parents:
5684
diff
changeset
|
2092 /* Pass 1 for EXPECT since we just waited to have input. */ |
8fae1a51e9c5
(kbd_buffer_get_event): Pass 1 to read_avail_input.
Richard M. Stallman <rms@gnu.org>
parents:
5684
diff
changeset
|
2093 read_avail_input (1); |
518 | 2094 } |
2095 #endif /* not VMS */ | |
2096 } | |
2097 | |
2098 /* At this point, we know that there is a readable event available | |
2099 somewhere. If the event queue is empty, then there must be a | |
2100 mouse movement enabled and available. */ | |
2101 if (kbd_fetch_ptr != kbd_store_ptr) | |
2102 { | |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2103 struct input_event *event; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2104 |
1404
1c2080f78a36
* keyboard.c (kbd_buffer_get_event): Fix fencepost bug in
Jim Blandy <jimb@redhat.com>
parents:
1402
diff
changeset
|
2105 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE) |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2106 ? kbd_fetch_ptr |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2107 : kbd_buffer); |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2108 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2109 last_event_timestamp = event->timestamp; |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
2110 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2111 obj = Qnil; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2112 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2113 /* 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
|
2114 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
|
2115 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
|
2116 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
|
2117 { |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2118 #ifdef HAVE_X11 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2119 x_handle_selection_request (event); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2120 kbd_fetch_ptr = event + 1; |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2121 #else |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2122 /* 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
|
2123 a window system. */ |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2124 abort (); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2125 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2126 } |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2127 |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2128 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
|
2129 { |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2130 #ifdef HAVE_X11 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2131 x_handle_selection_clear (event); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2132 kbd_fetch_ptr = event + 1; |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2133 #else |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2134 /* 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
|
2135 a window system. */ |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2136 abort (); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2137 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2138 } |
5133
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
2139 #ifdef HAVE_X11 |
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
2140 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
|
2141 { |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
2142 /* Make an event (delete-frame (FRAME)). */ |
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
2143 obj = Fcons (event->frame_or_window, Qnil); |
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
2144 obj = Fcons (intern ("delete-frame"), Fcons (obj, Qnil)); |
5133
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
2145 kbd_fetch_ptr = event + 1; |
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
2146 } |
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
2147 #endif |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
2148 else if (event->kind == menu_bar_event) |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
2149 { |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
2150 /* The event value is in the frame_or_window slot. */ |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
2151 obj = event->frame_or_window; |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
2152 kbd_fetch_ptr = event + 1; |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
2153 } |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
2154 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
|
2155 { |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
2156 /* 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
|
2157 XSETBUFFER (obj, current_buffer); |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
2158 kbd_fetch_ptr = event + 1; |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
2159 } |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2160 /* Just discard these, by returning nil. |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2161 (They shouldn't be found in the buffer, |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2162 but on some machines it appears they do show up.) */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2163 else if (event->kind == no_event) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2164 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
|
2165 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2166 /* 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
|
2167 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
|
2168 else |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2169 { |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
2170 #ifdef MULTI_FRAME |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2171 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
|
2172 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
|
2173 |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2174 frame = event->frame_or_window; |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2175 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
|
2176 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
|
2177 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2178 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
|
2179 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
|
2180 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
|
2181 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2182 if (! EQ (frame, internal_last_event_frame) |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2183 && 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
|
2184 obj = make_lispy_switch_frame (frame); |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2185 internal_last_event_frame = frame; |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
2186 #endif /* MULTI_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
|
2187 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2188 /* 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
|
2189 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
|
2190 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2191 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
|
2192 { |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2193 obj = make_lispy_event (event); |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2194 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2195 /* 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
|
2196 event->kind = no_event; |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2197 (XVECTOR (kbd_buffer_frame_or_window)->contents[event - kbd_buffer] |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2198 = Qnil); |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2199 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2200 kbd_fetch_ptr = event + 1; |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2201 } |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2202 } |
518 | 2203 } |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2204 /* Try generating a mouse motion event. */ |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
2205 else if (FRAMEP (do_mouse_tracking) && mouse_moved) |
518 | 2206 { |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
2207 FRAME_PTR f = XFRAME (do_mouse_tracking); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2208 Lisp_Object bar_window; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2209 enum scroll_bar_part part; |
732 | 2210 Lisp_Object x, y; |
2211 unsigned long time; | |
518 | 2212 |
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
|
2213 /* 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
|
2214 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
|
2215 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
|
2216 x = Qnil; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2217 (*mouse_position_hook) (&f, &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
|
2218 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2219 obj = Qnil; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2220 |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
2221 #ifdef MULTI_FRAME |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2222 /* 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
|
2223 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
|
2224 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
|
2225 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
|
2226 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2227 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
|
2228 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2229 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
|
2230 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
|
2231 XSETFRAME (frame, f); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2232 |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2233 if (! EQ (frame, internal_last_event_frame) |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2234 && XFRAME (frame) != selected_frame) |
3929
d620db2bc420
* keyboard.c (kbd_buffer_get_event): Correctly generate
Jim Blandy <jimb@redhat.com>
parents:
3920
diff
changeset
|
2235 obj = make_lispy_switch_frame (frame); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2236 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
|
2237 } |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2238 #endif |
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2239 |
9572 | 2240 #if defined (MULTI_FRAME) || defined (HAVE_MOUSE) |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2241 /* If we didn't decide to make a switch-frame event, go ahead and |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2242 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
|
2243 if (!NILP (x) && NILP (obj)) |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2244 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
|
2245 #endif |
8310b2eb6b06
(make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents:
6749
diff
changeset
|
2246 } |
518 | 2247 else |
2248 /* We were promised by the above while loop that there was | |
2249 something for us to read! */ | |
2250 abort (); | |
2251 | |
2252 input_pending = readable_events (); | |
2253 | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2254 #ifdef MULTI_FRAME |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2255 Vlast_event_frame = internal_last_event_frame; |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2256 #endif |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2257 |
518 | 2258 return (obj); |
2259 } | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2260 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2261 /* 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
|
2262 then return, without reading any user-visible events. */ |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2263 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2264 void |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2265 swallow_events () |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2266 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2267 while (kbd_fetch_ptr != kbd_store_ptr) |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2268 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2269 struct input_event *event; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2270 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2271 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE) |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2272 ? kbd_fetch_ptr |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2273 : kbd_buffer); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2274 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2275 last_event_timestamp = event->timestamp; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2276 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2277 /* These two kinds of events get special handling |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2278 and don't actually appear to the command loop. */ |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2279 if (event->kind == selection_request_event) |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2280 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2281 #ifdef HAVE_X11 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2282 x_handle_selection_request (event); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2283 kbd_fetch_ptr = event + 1; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2284 #else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2285 /* 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
|
2286 a window system. */ |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2287 abort (); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2288 #endif |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2289 } |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2290 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2291 else if (event->kind == selection_clear_event) |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2292 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2293 #ifdef HAVE_X11 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2294 x_handle_selection_clear (event); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2295 kbd_fetch_ptr = event + 1; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2296 #else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2297 /* 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
|
2298 a window system. */ |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2299 abort (); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2300 #endif |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2301 } |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2302 else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2303 break; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2304 } |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2305 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2306 get_input_pending (&input_pending); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
2307 } |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
2308 |
518 | 2309 /* 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
|
2310 static Lisp_Object accent_key_syms; |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
2311 static Lisp_Object system_key_syms; |
518 | 2312 static Lisp_Object func_key_syms; |
2313 static Lisp_Object mouse_syms; | |
2314 | |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
2315 Lisp_Object Vsystem_key_alist; |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2316 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2317 /* 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
|
2318 It parallels lispy_accent_keys. */ |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2319 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2320 static int lispy_accent_codes[] = |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2321 { |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2322 #ifdef XK_dead_circumflex |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2323 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
|
2324 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2325 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2326 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2327 #ifdef XK_dead_grave |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2328 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
|
2329 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2330 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2331 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2332 #ifdef XK_dead_tilde |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2333 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
|
2334 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2335 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2336 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2337 #ifdef XK_dead_diaeresis |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2338 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
|
2339 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2340 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2341 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2342 #ifdef XK_dead_macron |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2343 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
|
2344 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2345 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2346 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2347 #ifdef XK_dead_degree |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2348 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
|
2349 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2350 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2351 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2352 #ifdef XK_dead_acute |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2353 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
|
2354 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2355 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2356 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2357 #ifdef XK_dead_cedilla |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2358 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
|
2359 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2360 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2361 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2362 #ifdef XK_dead_breve |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2363 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
|
2364 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2365 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2366 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2367 #ifdef XK_dead_ogonek |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2368 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
|
2369 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2370 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2371 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2372 #ifdef XK_dead_caron |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2373 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
|
2374 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2375 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2376 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2377 #ifdef XK_dead_doubleacute |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2378 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
|
2379 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2380 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2381 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2382 #ifdef XK_dead_abovedot |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2383 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
|
2384 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2385 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2386 #endif |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2387 }; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2388 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2389 /* 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
|
2390 It parallels lispy_accent_codes. */ |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2391 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2392 static char *lispy_accent_keys[] = |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2393 { |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2394 "dead-circumflex", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2395 "dead-grave", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2396 "dead-tilde", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2397 "dead-diaeresis", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2398 "dead-macron", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2399 "dead-degree", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2400 "dead-acute", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2401 "dead-cedilla", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2402 "dead-breve", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2403 "dead-ogonek", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2404 "dead-caron", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2405 "dead-doubleacute", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2406 "dead-abovedot", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2407 }; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2408 |
518 | 2409 /* You'll notice that this table is arranged to be conveniently |
2410 indexed by X Windows keysym values. */ | |
2411 static char *lispy_function_keys[] = | |
2412 { | |
2413 /* X Keysym value */ | |
2414 | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2415 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
|
2416 "backspace", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2417 "tab", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2418 "linefeed", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2419 "clear", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2420 0, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2421 "return", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2422 0, 0, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2423 0, 0, 0, /* 0xff10 */ |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2424 "pause", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2425 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
|
2426 "escape", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2427 0, 0, 0, 0, |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2428 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
|
2429 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
|
2430 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
|
2431 |
518 | 2432 "home", /* 0xff50 */ /* IsCursorKey */ |
2433 "left", | |
2434 "up", | |
2435 "right", | |
2436 "down", | |
2437 "prior", | |
2438 "next", | |
2439 "end", | |
2440 "begin", | |
2441 0, /* 0xff59 */ | |
2442 0, 0, 0, 0, 0, 0, | |
2443 "select", /* 0xff60 */ /* IsMiscFunctionKey */ | |
2444 "print", | |
2445 "execute", | |
2446 "insert", | |
2447 0, /* 0xff64 */ | |
2448 "undo", | |
2449 "redo", | |
2450 "menu", | |
2451 "find", | |
2452 "cancel", | |
2453 "help", | |
2454 "break", /* 0xff6b */ | |
2455 | |
7587
efaee8861ad4
(read_char_minibuf_menu_prompt): Don't forget to initialize nobindings.
Richard M. Stallman <rms@gnu.org>
parents:
7547
diff
changeset
|
2456 0, 0, 0, 0, 0, 0, 0, 0, "backtab", 0, |
518 | 2457 0, /* 0xff76 */ |
3054
57814bb76b37
(lispy_function_keys): Add kp-numlock. Fix kp-backspace.
Richard M. Stallman <rms@gnu.org>
parents:
3042
diff
changeset
|
2458 0, 0, 0, 0, 0, 0, 0, 0, "kp-numlock", /* 0xff7f */ |
518 | 2459 "kp-space", /* 0xff80 */ /* IsKeypadKey */ |
2460 0, 0, 0, 0, 0, 0, 0, 0, | |
2461 "kp-tab", /* 0xff89 */ | |
2462 0, 0, 0, | |
2463 "kp-enter", /* 0xff8d */ | |
2464 0, 0, 0, | |
2465 "kp-f1", /* 0xff91 */ | |
2466 "kp-f2", | |
2467 "kp-f3", | |
2468 "kp-f4", | |
7547
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2469 "kp-home", /* 0xff95 */ |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2470 "kp-left", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2471 "kp-up", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2472 "kp-right", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2473 "kp-down", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2474 "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
|
2475 "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
|
2476 "kp-end", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2477 "kp-begin", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2478 "kp-insert", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2479 "kp-delete", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2480 0, /* 0xffa0 */ |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
2481 0, 0, 0, 0, 0, 0, 0, 0, 0, |
518 | 2482 "kp-multiply", /* 0xffaa */ |
2483 "kp-add", | |
2484 "kp-separator", | |
2485 "kp-subtract", | |
2486 "kp-decimal", | |
2487 "kp-divide", /* 0xffaf */ | |
2488 "kp-0", /* 0xffb0 */ | |
2489 "kp-1", "kp-2", "kp-3", "kp-4", "kp-5", "kp-6", "kp-7", "kp-8", "kp-9", | |
2490 0, /* 0xffba */ | |
2491 0, 0, | |
2492 "kp-equal", /* 0xffbd */ | |
2493 "f1", /* 0xffbe */ /* IsFunctionKey */ | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2494 "f2", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2495 "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
|
2496 "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
|
2497 "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
|
2498 "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
|
2499 "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
|
2500 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
|
2501 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
|
2502 0, 0, 0, 0, 0, 0, 0, "delete" |
518 | 2503 }; |
2504 | |
2505 static char *lispy_mouse_names[] = | |
2506 { | |
2507 "mouse-1", "mouse-2", "mouse-3", "mouse-4", "mouse-5" | |
2508 }; | |
2509 | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2510 /* Scroll bar parts. */ |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2511 Lisp_Object Qabove_handle, Qhandle, Qbelow_handle; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2512 |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2513 /* 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
|
2514 Lisp_Object *scroll_bar_parts[] = { |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2515 &Qabove_handle, &Qhandle, &Qbelow_handle |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2516 }; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2517 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2518 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2519 /* 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
|
2520 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
|
2521 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2522 The elements have the form |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2523 (BUTTON-NUMBER MODIFIER-MASK . REST) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2524 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
|
2525 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2526 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
|
2527 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
|
2528 location to be included in drag events. */ |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2529 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2530 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
|
2531 |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2532 /* 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
|
2533 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
|
2534 |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2535 static int last_mouse_button; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2536 static int last_mouse_x; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2537 static int last_mouse_y; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2538 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
|
2539 |
3993
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
2540 /* 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
|
2541 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
|
2542 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
|
2543 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
|
2544 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2545 /* 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
|
2546 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2547 int double_click_count; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2548 |
5684
6479e0eabb27
* keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5674
diff
changeset
|
2549 #ifdef USE_X_TOOLKIT |
6479e0eabb27
* keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5674
diff
changeset
|
2550 extern Lisp_Object map_event_to_object (); |
6479e0eabb27
* keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5674
diff
changeset
|
2551 #endif /* USE_X_TOOLKIT */ |
6479e0eabb27
* keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5674
diff
changeset
|
2552 |
518 | 2553 /* Given a struct input_event, build the lisp event which represents |
2554 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
|
2555 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
|
2556 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2557 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
|
2558 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
|
2559 in order to build drag events when the button is released. */ |
518 | 2560 |
2561 static Lisp_Object | |
2562 make_lispy_event (event) | |
2563 struct input_event *event; | |
2564 { | |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2565 int i; |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
2566 |
518 | 2567 #ifdef SWITCH_ENUM_BUG |
2568 switch ((int) event->kind) | |
2569 #else | |
2570 switch (event->kind) | |
2571 #endif | |
2572 { | |
2573 /* A simple keystroke. */ | |
2574 case ascii_keystroke: | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2575 { |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
2576 Lisp_Object lispy_c; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2577 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
|
2578 /* 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
|
2579 when proper. */ |
5b72eb2483e7
* xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents:
2789
diff
changeset
|
2580 if (event->modifiers & ctrl_modifier) |
2954
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2581 c = make_ctrl_char (c); |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2582 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2583 /* 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
|
2584 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
|
2585 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
|
2586 c |= (event->modifiers |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2587 & (meta_modifier | alt_modifier |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2588 | hyper_modifier | super_modifier)); |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2589 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
|
2590 XSETFASTINT (lispy_c, c); |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
2591 return lispy_c; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2592 } |
518 | 2593 |
2594 /* A function key. The symbol may need to have modifier prefixes | |
2595 tacked onto it. */ | |
2596 case non_ascii_keystroke: | |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2597 button_down_time = 0; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2598 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2599 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
|
2600 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
|
2601 return modify_event_symbol (i, |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2602 event->modifiers, |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2603 Qfunction_key, Qnil, |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2604 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
|
2605 (sizeof (lispy_accent_keys) |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2606 / sizeof (lispy_accent_keys[0]))); |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2607 |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
2608 /* Handle system-specific keysyms. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2609 if (event->code & (1 << 28)) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2610 { |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2611 /* 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
|
2612 since we can't make a vector long enuf. */ |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
2613 if (NILP (system_key_syms)) |
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
2614 system_key_syms = Fcons (Qnil, Qnil); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2615 return modify_event_symbol (event->code & 0xffffff, |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2616 event->modifiers, |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
2617 Qfunction_key, Vsystem_key_alist, |
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
2618 0, &system_key_syms, 0xffffff); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2619 } |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2620 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2621 return modify_event_symbol (event->code - 0xff00, |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2622 event->modifiers, |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
2623 Qfunction_key, Qnil, |
518 | 2624 lispy_function_keys, &func_key_syms, |
2625 (sizeof (lispy_function_keys) | |
2626 / sizeof (lispy_function_keys[0]))); | |
2627 break; | |
2628 | |
9572 | 2629 #if defined (MULTI_FRAME) || defined (HAVE_MOUSE) |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2630 /* A mouse click. Figure out where it is, decide whether it's |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2631 a press, click or drag, and build the appropriate structure. */ |
518 | 2632 case mouse_click: |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2633 case scroll_bar_click: |
518 | 2634 { |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2635 int button = event->code; |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2636 int is_double; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2637 Lisp_Object position; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2638 Lisp_Object *start_pos_ptr; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2639 Lisp_Object start_pos; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2640 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2641 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
|
2642 abort (); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2643 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2644 /* 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
|
2645 if (event->kind == mouse_click) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2646 { |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2647 int part; |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
2648 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
|
2649 Lisp_Object window; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2650 Lisp_Object posn; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2651 int row, column; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2652 |
7351
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
2653 /* 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
|
2654 have been deleted. */ |
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
2655 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
|
2656 return Qnil; |
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
2657 |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2658 pixel_to_glyph_coords (f, XINT (event->x), XINT (event->y), |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2659 &column, &row, 0, 0); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2660 |
5684
6479e0eabb27
* keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5674
diff
changeset
|
2661 #ifdef USE_X_TOOLKIT |
6479e0eabb27
* keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5674
diff
changeset
|
2662 if (FRAME_EXTERNAL_MENU_BAR (f) && XINT (event->y) == -1) |
5887
c4030d39f26d
Split #ifdef so as not to confuse c-mode.
Karl Heuer <kwzh@gnu.org>
parents:
5808
diff
changeset
|
2663 #else |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2664 if (row < FRAME_MENU_BAR_LINES (f)) |
5887
c4030d39f26d
Split #ifdef so as not to confuse c-mode.
Karl Heuer <kwzh@gnu.org>
parents:
5808
diff
changeset
|
2665 #endif |
5684
6479e0eabb27
* keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5674
diff
changeset
|
2666 { |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
2667 Lisp_Object items, item; |
8169
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
2668 int hpos; |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
2669 int i; |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
2670 |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
2671 /* 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
|
2672 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
|
2673 just ignore it. */ |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
2674 if (! (event->modifiers & down_modifier)) |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
2675 return Qnil; |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
2676 |
9228
2ac31fc0facb
(make_lispy_event): Do not set item. Now handled in xmenu.c by
Paul Reilly <pmr@pajato.com>
parents:
9215
diff
changeset
|
2677 #ifndef USE_X_TOOLKIT |
6812
ba2176fd811c
(make_lispy_event): Initialize item.
Karl Heuer <kwzh@gnu.org>
parents:
6805
diff
changeset
|
2678 item = Qnil; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2679 items = FRAME_MENU_BAR_ITEMS (f); |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
2680 for (i = 0; i < XVECTOR (items)->size; i += 3) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2681 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2682 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
|
2683 string = XVECTOR (items)->contents[i + 1]; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
2684 pos = XVECTOR (items)->contents[i + 2]; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
2685 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
|
2686 break; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2687 if (column >= XINT (pos) |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2688 && 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
|
2689 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
2690 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
|
2691 break; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
2692 } |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2693 } |
5684
6479e0eabb27
* keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5674
diff
changeset
|
2694 #endif /* not USE_X_TOOLKIT */ |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2695 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2696 position |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2697 = Fcons (event->frame_or_window, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2698 Fcons (Qmenu_bar, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2699 Fcons (Fcons (event->x, event->y), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2700 Fcons (make_number (event->timestamp), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2701 Qnil)))); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2702 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
2703 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
|
2704 } |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
2705 |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2706 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
|
2707 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2708 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
|
2709 { |
ebb72cf97695
(make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents:
8418
diff
changeset
|
2710 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
|
2711 posn = Qnil; |
ebb72cf97695
(make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents:
8418
diff
changeset
|
2712 } |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2713 else |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2714 { |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2715 int pixcolumn, pixrow; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2716 column -= XINT (XWINDOW (window)->left); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2717 row -= XINT (XWINDOW (window)->top); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2718 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
|
2719 XSETINT (event->x, pixcolumn); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2720 XSETINT (event->y, pixrow); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2721 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2722 if (part == 1) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2723 posn = Qmode_line; |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2724 else if (part == 2) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2725 posn = Qvertical_line; |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2726 else |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2727 XSETINT (posn, |
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2728 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
|
2729 column, row)); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2730 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2731 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2732 position |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2733 = Fcons (window, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2734 Fcons (posn, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2735 Fcons (Fcons (event->x, event->y), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2736 Fcons (make_number (event->timestamp), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
2737 Qnil)))); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2738 } |
518 | 2739 else |
2740 { | |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2741 Lisp_Object window; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2742 Lisp_Object portion_whole; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2743 Lisp_Object part; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2744 |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2745 window = event->frame_or_window; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2746 portion_whole = Fcons (event->x, event->y); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2747 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
|
2748 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2749 position = |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2750 Fcons (window, |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2751 Fcons (Qvertical_scroll_bar, |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2752 Fcons (portion_whole, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2753 Fcons (make_number (event->timestamp), |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2754 Fcons (part, Qnil))))); |
518 | 2755 } |
2756 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2757 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
|
2758 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2759 start_pos = *start_pos_ptr; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2760 *start_pos_ptr = Qnil; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2761 |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2762 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
|
2763 && 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
|
2764 && 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
|
2765 && button_down_time != 0 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2766 && (EQ (Vdouble_click_time, Qt) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2767 || (INTEGERP (Vdouble_click_time) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2768 && ((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
|
2769 < XINT (Vdouble_click_time))))); |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2770 last_mouse_button = button; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2771 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
|
2772 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
|
2773 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2774 /* 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
|
2775 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
|
2776 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
|
2777 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2778 if (is_double) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2779 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2780 double_click_count++; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2781 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
|
2782 ? triple_modifier |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2783 : double_modifier); |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2784 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2785 else |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2786 double_click_count = 1; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2787 button_down_time = event->timestamp; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2788 *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
|
2789 } |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2790 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2791 /* 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
|
2792 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
|
2793 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
|
2794 { |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2795 /* 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
|
2796 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
|
2797 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
|
2798 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
|
2799 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
|
2800 as a separate event. */ |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2801 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2802 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
|
2803 return Qnil; |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2804 |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2805 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
|
2806 #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
|
2807 if (!CONSP (start_pos)) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2808 event->modifiers |= click_modifier; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2809 else |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2810 #endif |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2811 { |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2812 /* 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
|
2813 pair. */ |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2814 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
|
2815 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2816 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
|
2817 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
|
2818 && 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
|
2819 { |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2820 if (is_double && double_click_count > 1) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2821 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
|
2822 ? triple_modifier |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2823 : double_modifier); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2824 else |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2825 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
|
2826 } |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2827 else |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2828 { |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
2829 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
|
2830 event->modifiers |= drag_modifier; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2831 } |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2832 } |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2833 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2834 else |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2835 /* 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
|
2836 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
|
2837 abort (); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2838 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2839 { |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2840 /* 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
|
2841 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
|
2842 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2843 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
|
2844 event->modifiers, |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2845 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
|
2846 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
|
2847 (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
|
2848 / 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
|
2849 if (event->modifiers & drag_modifier) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2850 return Fcons (head, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2851 Fcons (start_pos, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2852 Fcons (position, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
2853 Qnil))); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2854 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
|
2855 return Fcons (head, |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2856 Fcons (position, |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
2857 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
|
2858 Qnil))); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2859 else |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2860 return Fcons (head, |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2861 Fcons (position, |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2862 Qnil)); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
2863 } |
518 | 2864 } |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
2865 #endif /* MULTI_FRAME or HAVE_MOUSE */ |
518 | 2866 |
2867 /* The 'kind' field of the event is something we don't recognize. */ | |
2868 default: | |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
2869 abort (); |
518 | 2870 } |
2871 } | |
2872 | |
9572 | 2873 #if defined (MULTI_FRAME) || defined (HAVE_MOUSE) |
6805
8310b2eb6b06
(make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents:
6749
diff
changeset
|
2874 |
518 | 2875 static Lisp_Object |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2876 make_lispy_movement (frame, bar_window, part, x, y, time) |
765 | 2877 FRAME_PTR frame; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2878 Lisp_Object bar_window; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2879 enum scroll_bar_part part; |
518 | 2880 Lisp_Object x, y; |
732 | 2881 unsigned long time; |
518 | 2882 { |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2883 #ifdef MULTI_FRAME |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2884 /* Is it a scroll bar movement? */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2885 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
|
2886 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2887 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
|
2888 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2889 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
|
2890 return Fcons (Qscroll_bar_movement, |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
2891 (Fcons (Fcons (bar_window, |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
2892 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
|
2893 Fcons (Fcons (x, y), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2894 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
|
2895 Fcons (part_sym, |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2896 Qnil))))), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2897 Qnil))); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2898 } |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2899 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2900 /* Or is it an ordinary mouse movement? */ |
518 | 2901 else |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2902 #endif /* MULTI_FRAME */ |
518 | 2903 { |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2904 int area; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2905 Lisp_Object window; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2906 Lisp_Object posn; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2907 int column, row; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2908 |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2909 #ifdef MULTI_FRAME |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2910 if (frame) |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2911 #else |
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2912 if (1) |
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2913 #endif |
7345
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
2914 { |
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
2915 /* It's in a frame; which window on that frame? */ |
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
2916 pixel_to_glyph_coords (frame, XINT (x), XINT (y), &column, &row, 0, 1); |
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
2917 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
|
2918 } |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2919 else |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2920 window = Qnil; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2921 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2922 if (WINDOWP (window)) |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2923 { |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2924 int pixcolumn, pixrow; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2925 column -= XINT (XWINDOW (window)->left); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2926 row -= XINT (XWINDOW (window)->top); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2927 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
|
2928 XSETINT (x, pixcolumn); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
2929 XSETINT (y, pixrow); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2930 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2931 if (area == 1) |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2932 posn = Qmode_line; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2933 else if (area == 2) |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2934 posn = Qvertical_line; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2935 else |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2936 XSETINT (posn, |
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2937 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
|
2938 } |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2939 #ifdef MULTI_FRAME |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2940 else if (frame != 0) |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2941 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2942 XSETFRAME (window, frame); |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2943 posn = Qnil; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
2944 } |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2945 #endif |
518 | 2946 else |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2947 { |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2948 window = Qnil; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2949 posn = Qnil; |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
2950 XSETFASTINT (x, 0); |
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
2951 XSETFASTINT (y, 0); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2952 } |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2953 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2954 return Fcons (Qmouse_movement, |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2955 Fcons (Fcons (window, |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2956 Fcons (posn, |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2957 Fcons (Fcons (x, y), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2958 Fcons (make_number (time), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2959 Qnil)))), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
2960 Qnil)); |
518 | 2961 } |
2962 } | |
2963 | |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
2964 #endif /* neither MULTI_FRAME nor HAVE_MOUSE */ |
6805
8310b2eb6b06
(make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents:
6749
diff
changeset
|
2965 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2966 /* 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
|
2967 static Lisp_Object |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2968 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
|
2969 Lisp_Object frame; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2970 { |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2971 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
|
2972 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2973 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2974 /* Manipulating modifiers. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2975 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2976 /* 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
|
2977 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2978 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
|
2979 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
|
2980 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
|
2981 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2982 This doesn't use any caches. */ |
518 | 2983 static int |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2984 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
|
2985 Lisp_Object symbol; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2986 int *modifier_end; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2987 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2988 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
|
2989 int i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2990 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2991 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2992 CHECK_SYMBOL (symbol, 1); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2993 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2994 modifiers = 0; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2995 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
|
2996 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2997 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2998 for (i = 0; i+2 <= name->size; ) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
2999 switch (name->data[i]) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3000 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3001 #define SINGLE_LETTER_MOD(bit) \ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3002 if (name->data[i+1] != '-') \ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3003 goto no_more_modifiers; \ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3004 modifiers |= bit; \ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3005 i += 2; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3006 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3007 case 'A': |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3008 SINGLE_LETTER_MOD (alt_modifier); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3009 break; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3010 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3011 case 'C': |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3012 SINGLE_LETTER_MOD (ctrl_modifier); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3013 break; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3014 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3015 case 'H': |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3016 SINGLE_LETTER_MOD (hyper_modifier); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3017 break; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3018 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3019 case 'M': |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3020 SINGLE_LETTER_MOD (meta_modifier); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3021 break; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3022 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3023 case 'S': |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3024 SINGLE_LETTER_MOD (shift_modifier); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3025 break; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3026 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3027 case 's': |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3028 SINGLE_LETTER_MOD (super_modifier); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3029 break; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3030 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3031 case 'd': |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3032 if (i + 5 > name->size) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3033 goto no_more_modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3034 if (! strncmp (name->data + i, "drag-", 5)) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3035 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3036 modifiers |= drag_modifier; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3037 i += 5; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3038 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3039 else if (! strncmp (name->data + i, "down-", 5)) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3040 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3041 modifiers |= down_modifier; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3042 i += 5; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3043 } |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3044 else if (i + 7 <= name->size |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3045 && ! strncmp (name->data + i, "double-", 7)) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3046 { |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3047 modifiers |= double_modifier; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3048 i += 7; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3049 } |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3050 else |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3051 goto no_more_modifiers; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3052 break; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3053 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3054 case 't': |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3055 if (i + 7 > name->size) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3056 goto no_more_modifiers; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3057 if (! strncmp (name->data + i, "triple-", 7)) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3058 { |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3059 modifiers |= triple_modifier; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3060 i += 7; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3061 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3062 else |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3063 goto no_more_modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3064 break; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3065 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3066 default: |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3067 goto no_more_modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3068 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3069 #undef SINGLE_LETTER_MOD |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3070 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3071 no_more_modifiers: |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3072 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3073 /* 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
|
3074 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
|
3075 | 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
|
3076 && 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
|
3077 && 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
|
3078 && ('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
|
3079 modifiers |= click_modifier; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3080 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3081 if (modifier_end) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3082 *modifier_end = i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3083 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3084 return modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3085 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3086 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3087 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3088 /* 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
|
3089 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
|
3090 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
|
3091 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3092 apply_modifiers_uncached (modifiers, base, base_len) |
518 | 3093 int modifiers; |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3094 char *base; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3095 int base_len; |
518 | 3096 { |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3097 /* 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
|
3098 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
|
3099 reference to it. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3100 char *new_mods = |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3101 (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
|
3102 int mod_len; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3103 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3104 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3105 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
|
3106 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3107 /* 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
|
3108 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
|
3109 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
|
3110 abort (); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3111 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3112 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
|
3113 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
|
3114 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
|
3115 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
|
3116 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
|
3117 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
|
3118 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
|
3119 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
|
3120 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
|
3121 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
|
3122 /* 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
|
3123 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3124 *p = '\0'; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3125 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3126 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
|
3127 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3128 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3129 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3130 Lisp_Object new_name; |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3131 |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3132 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
|
3133 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
|
3134 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
|
3135 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3136 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
|
3137 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3138 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3139 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3140 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3141 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
|
3142 { |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
3143 "up", "down", "drag", "click", "double", "triple", 0, 0, |
2956
d25ffad42426
(modifier_names): Update to match *_modifier in termhooks.
Richard M. Stallman <rms@gnu.org>
parents:
2954
diff
changeset
|
3144 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
|
3145 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
|
3146 }; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3147 #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
|
3148 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3149 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
|
3150 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3151 /* 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
|
3152 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3153 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
|
3154 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3155 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3156 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
|
3157 int i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3158 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3159 modifier_list = Qnil; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3160 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
|
3161 if (modifiers & (1<<i)) |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3162 modifier_list = Fcons (XVECTOR (modifier_symbols)->contents[i], |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3163 modifier_list); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3164 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3165 return modifier_list; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3166 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3167 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3168 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3169 /* 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
|
3170 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
|
3171 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
|
3172 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
|
3173 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
|
3174 Qevent_symbol_elements property. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3175 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3176 parse_modifiers (symbol) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3177 Lisp_Object symbol; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3178 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3179 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
|
3180 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3181 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
|
3182 if (CONSP (elements)) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3183 return elements; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3184 else |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3185 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3186 int end; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3187 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
|
3188 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
|
3189 Lisp_Object mask; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3190 |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3191 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
|
3192 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
|
3193 Qnil); |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3194 |
2436
80aafda1127b
* keyboard.c (parse_modifiers, apply_modifiers): Make sure we're
Jim Blandy <jimb@redhat.com>
parents:
2434
diff
changeset
|
3195 if (modifiers & ~((1<<VALBITS) - 1)) |
80aafda1127b
* keyboard.c (parse_modifiers, apply_modifiers): Make sure we're
Jim Blandy <jimb@redhat.com>
parents:
2434
diff
changeset
|
3196 abort (); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
3197 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
|
3198 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
|
3199 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3200 /* 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
|
3201 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
|
3202 elements); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3203 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
|
3204 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
|
3205 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3206 /* 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
|
3207 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
|
3208 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
|
3209 canonical. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3210 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3211 return elements; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3212 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3213 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3214 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3215 /* 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
|
3216 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
|
3217 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3218 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
|
3219 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
|
3220 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
|
3221 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
3222 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
|
3223 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
|
3224 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3225 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
|
3226 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3227 Lisp_Object base; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3228 { |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3229 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
|
3230 |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3231 /* Mask out upper bits. We don't know where this value's been. */ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3232 modifiers &= (1<<VALBITS) - 1; |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3233 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3234 /* 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
|
3235 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
|
3236 XSETFASTINT (index, (modifiers & ~click_modifier)); |
7999
f1837249c67f
(apply_modifiers): Use assq_no_quit.
Richard M. Stallman <rms@gnu.org>
parents:
7957
diff
changeset
|
3237 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
|
3238 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3239 if (CONSP (entry)) |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3240 new_symbol = XCONS (entry)->cdr; |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3241 else |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3242 { |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3243 /* We have to create the symbol ourselves. */ |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3244 new_symbol = apply_modifiers_uncached (modifiers, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3245 XSYMBOL (base)->name->data, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3246 XSYMBOL (base)->name->size); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3247 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3248 /* 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
|
3249 entry = Fcons (index, new_symbol); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3250 Fput (base, Qmodifier_cache, Fcons (entry, cache)); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3251 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3252 /* 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
|
3253 XSETFASTINT (index, modifiers); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3254 Fput (new_symbol, Qevent_symbol_element_mask, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3255 Fcons (base, Fcons (index, Qnil))); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3256 Fput (new_symbol, Qevent_symbol_elements, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3257 Fcons (base, lispy_modifier_list (modifiers))); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3258 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3259 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3260 /* Make sure this symbol is of the same kind as BASE. |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3261 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3262 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
|
3263 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
|
3264 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
|
3265 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
|
3266 Qevent_kind set right as well. */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3267 if (NILP (Fget (new_symbol, Qevent_kind))) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3268 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3269 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
|
3270 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3271 kind = Fget (base, Qevent_kind); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3272 if (! NILP (kind)) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3273 Fput (new_symbol, Qevent_kind, kind); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3274 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3275 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3276 return new_symbol; |
518 | 3277 } |
3278 | |
3279 | |
3280 /* Given a symbol whose name begins with modifiers ("C-", "M-", etc), | |
3281 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
|
3282 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
|
3283 always come last. The 'click' modifier is never written out. |
518 | 3284 |
3285 Fdefine_key calls this to make sure that (for example) C-M-foo | |
3286 and M-C-foo end up being equivalent in the keymap. */ | |
3287 | |
3288 Lisp_Object | |
3289 reorder_modifiers (symbol) | |
3290 Lisp_Object symbol; | |
3291 { | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3292 /* 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
|
3293 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
|
3294 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
|
3295 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3296 parsed = parse_modifiers (symbol); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3297 return apply_modifiers (XCONS (XCONS (parsed)->cdr)->car, |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3298 XCONS (parsed)->car); |
518 | 3299 } |
3300 | |
3301 | |
3302 /* For handling events, we often want to produce a symbol whose name | |
3303 is a series of modifier key prefixes ("M-", "C-", etcetera) attached | |
3304 to some base, like the name of a function key or mouse button. | |
3305 modify_event_symbol produces symbols of this sort. | |
3306 | |
3307 NAME_TABLE should point to an array of strings, such that NAME_TABLE[i] | |
3308 is the name of the i'th symbol. TABLE_SIZE is the number of elements | |
3309 in the table. | |
3310 | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3311 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
|
3312 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
|
3313 |
518 | 3314 SYMBOL_TABLE should be a pointer to a Lisp_Object whose value will |
3315 persist between calls to modify_event_symbol that it can use to | |
3316 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
|
3317 before. The object stored there may be a vector or an alist. |
518 | 3318 |
3319 SYMBOL_NUM is the number of the base name we want from NAME_TABLE. | |
3320 | |
3321 MODIFIERS is a set of modifier bits (as given in struct input_events) | |
3322 whose prefixes should be applied to the symbol name. | |
3323 | |
3324 SYMBOL_KIND is the value to be placed in the event_kind property of | |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3325 the returned symbol. |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3326 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3327 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
|
3328 `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
|
3329 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
|
3330 |
518 | 3331 static Lisp_Object |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3332 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
|
3333 name_table, symbol_table, table_size) |
518 | 3334 int symbol_num; |
3335 unsigned modifiers; | |
3336 Lisp_Object symbol_kind; | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3337 Lisp_Object name_alist; |
518 | 3338 char **name_table; |
3339 Lisp_Object *symbol_table; | |
3340 int table_size; | |
3341 { | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3342 Lisp_Object value; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3343 Lisp_Object symbol_int; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3344 |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
3345 XSETINT (symbol_int, symbol_num); |
518 | 3346 |
3347 /* 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
|
3348 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
|
3349 return Qnil; |
518 | 3350 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3351 if (CONSP (*symbol_table)) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3352 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
|
3353 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3354 /* 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
|
3355 *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
|
3356 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
|
3357 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
|
3358 else |
518 | 3359 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3360 if (! VECTORP (*symbol_table) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3361 || XVECTOR (*symbol_table)->size != table_size) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3362 { |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3363 Lisp_Object size; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3364 |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
3365 XSETFASTINT (size, table_size); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3366 *symbol_table = Fmake_vector (size, Qnil); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3367 } |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3368 |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3369 value = XVECTOR (*symbol_table)->contents[symbol_num]; |
518 | 3370 } |
3371 | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3372 /* 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
|
3373 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
|
3374 { |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3375 /* No; let's create it. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3376 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
|
3377 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
|
3378 else if (name_table[symbol_num]) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3379 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
|
3380 |
34435700529d
(modify_event_symbol): Use the cdr of the alist entry.
Richard M. Stallman <rms@gnu.org>
parents:
6893
diff
changeset
|
3381 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
|
3382 { |
793f7e0dc66b
(modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents:
2980
diff
changeset
|
3383 char buf[20]; |
793f7e0dc66b
(modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents:
2980
diff
changeset
|
3384 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
|
3385 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
|
3386 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3387 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3388 if (CONSP (*symbol_table)) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3389 *symbol_table = Fcons (value, *symbol_table); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3390 else |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3391 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
|
3392 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3393 /* Fill in the cache entries for this symbol; this also |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3394 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
|
3395 cares about. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3396 apply_modifiers (modifiers & click_modifier, value); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3397 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
|
3398 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
3399 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3400 /* Apply modifiers to that symbol. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3401 return apply_modifiers (modifiers, value); |
518 | 3402 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
3403 |
518 | 3404 |
3405 /* Store into *addr a value nonzero if terminal input chars are available. | |
3406 Serves the purpose of ioctl (0, FIONREAD, addr) | |
3407 but works even if FIONREAD does not exist. | |
3408 (In fact, this may actually read some input.) */ | |
3409 | |
3410 static void | |
3411 get_input_pending (addr) | |
3412 int *addr; | |
3413 { | |
3414 /* First of all, have we already counted some input? */ | |
3415 *addr = !NILP (Vquit_flag) || readable_events (); | |
3416 | |
3417 /* If input is being read as it arrives, and we have none, there is none. */ | |
3418 if (*addr > 0 || (interrupt_input && ! interrupts_deferred)) | |
3419 return; | |
3420 | |
3421 /* Try to read some input and see how much we get. */ | |
3422 gobble_input (0); | |
3423 *addr = !NILP (Vquit_flag) || readable_events (); | |
3424 } | |
3425 | |
8727
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
3426 /* Interface to read_avail_input, blocking SIGIO or SIGALRM if necessary. */ |
518 | 3427 |
3428 int | |
3429 gobble_input (expected) | |
3430 int expected; | |
3431 { | |
3432 #ifndef VMS | |
3433 #ifdef SIGIO | |
3434 if (interrupt_input) | |
3435 { | |
624 | 3436 SIGMASKTYPE mask; |
638 | 3437 mask = sigblockx (SIGIO); |
518 | 3438 read_avail_input (expected); |
638 | 3439 sigsetmask (mask); |
518 | 3440 } |
3441 else | |
8727
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
3442 #ifdef POLL_FOR_INPUT |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
3443 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
|
3444 { |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
3445 SIGMASKTYPE mask; |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
3446 mask = sigblockx (SIGALRM); |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
3447 read_avail_input (expected); |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
3448 sigsetmask (mask); |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
3449 } |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
3450 else |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
3451 #endif |
9572 | 3452 #endif |
518 | 3453 read_avail_input (expected); |
3454 #endif | |
3455 } | |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
3456 |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3457 /* 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
|
3458 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
|
3459 |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
3460 record_asynch_buffer_change () |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
3461 { |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
3462 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
|
3463 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
|
3464 |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
3465 event.kind = buffer_switch_event; |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
3466 event.frame_or_window = Qnil; |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3467 |
8718
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
3468 #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
|
3469 /* 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
|
3470 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
|
3471 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
|
3472 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
|
3473 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
|
3474 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
|
3475 return; |
8718
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
3476 #else |
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
3477 /* 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
|
3478 return; |
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
3479 #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
|
3480 |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3481 /* 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
|
3482 #ifdef SIGIO |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3483 if (interrupt_input) |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3484 { |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3485 SIGMASKTYPE mask; |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3486 mask = sigblockx (SIGIO); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3487 kbd_buffer_store_event (&event); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3488 sigsetmask (mask); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3489 } |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3490 else |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3491 #endif |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3492 { |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3493 stop_polling (); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3494 kbd_buffer_store_event (&event); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3495 start_polling (); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
3496 } |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
3497 } |
518 | 3498 |
3499 #ifndef VMS | |
3500 | |
3501 /* Read any terminal input already buffered up by the system | |
3502 into the kbd_buffer, but do not wait. | |
3503 | |
3504 EXPECTED should be nonzero if the caller knows there is some input. | |
3505 | |
3506 Except on VMS, all input is read by this function. | |
3507 If interrupt_input is nonzero, this function MUST be called | |
3508 only when SIGIO is blocked. | |
3509 | |
3510 Returns the number of keyboard chars read, or -1 meaning | |
3511 this is a bad time to try to read input. */ | |
3512 | |
3513 static int | |
3514 read_avail_input (expected) | |
3515 int expected; | |
3516 { | |
3517 struct input_event buf[KBD_BUFFER_SIZE]; | |
3518 register int i; | |
3519 int nread; | |
3520 | |
3521 if (read_socket_hook) | |
3522 /* No need for FIONREAD or fcntl; just say don't wait. */ | |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
3523 nread = (*read_socket_hook) (input_fd, buf, KBD_BUFFER_SIZE, |
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
3524 expected, expected); |
518 | 3525 else |
3526 { | |
5032
2802aff49c77
(read_avail_input): Make cbuf 1 char shorter.
Richard M. Stallman <rms@gnu.org>
parents:
4996
diff
changeset
|
3527 /* 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
|
3528 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
|
3529 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
|
3530 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
|
3531 int n_to_read; |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
3532 |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
3533 /* Determine how many characters we should *try* to read. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3534 #ifdef MSDOS |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
3535 n_to_read = dos_keysns (); |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
3536 if (n_to_read == 0) |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
3537 return 0; |
6891
065060f1f9b8
(read_avail_input): Fix comment delimiter.
Karl Heuer <kwzh@gnu.org>
parents:
6875
diff
changeset
|
3538 #else /* not MSDOS */ |
518 | 3539 #ifdef FIONREAD |
3540 /* 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
|
3541 if (ioctl (input_fd, FIONREAD, &n_to_read) < 0) |
518 | 3542 /* Formerly simply reported no input, but that sometimes led to |
3543 a failure of Emacs to terminate. | |
3544 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
|
3545 /* ??? 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
|
3546 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
|
3547 Perhaps on systems with FIONREAD Emacs is alone in its group. */ |
518 | 3548 kill (getpid (), SIGHUP); |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
3549 if (n_to_read == 0) |
518 | 3550 return 0; |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
3551 if (n_to_read > sizeof cbuf) |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
3552 n_to_read = sizeof cbuf; |
518 | 3553 #else /* no FIONREAD */ |
4996
4414ceac33dc
(read_avail_input) [no FIONREAD]: On DGUX, as on USG,
Richard M. Stallman <rms@gnu.org>
parents:
4988
diff
changeset
|
3554 #if defined(USG) || defined(DGUX) |
518 | 3555 /* 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
|
3556 n_to_read = sizeof cbuf; |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
3557 fcntl (input_fd, F_SETFL, O_NDELAY); |
518 | 3558 #else |
3559 you lose; | |
3560 #endif | |
3561 #endif | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3562 #endif /* not MSDOS */ |
518 | 3563 |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
3564 /* 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
|
3565 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
|
3566 do |
518 | 3567 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3568 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3569 cbuf[0] = dos_keyread(); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3570 nread = 1; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3571 #else |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
3572 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
|
3573 #endif |
6936
5538df04e96a
(read_avail_input): Test both aix386 and _BSD.
Richard M. Stallman <rms@gnu.org>
parents:
6932
diff
changeset
|
3574 #if defined (AIX) && (! defined (aix386) && defined (_BSD)) |
518 | 3575 /* The kernel sometimes fails to deliver SIGHUP for ptys. |
3576 This looks incorrect, but it isn't, because _BSD causes | |
3577 O_NDELAY to be defined in fcntl.h as O_NONBLOCK, | |
3578 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
|
3579 if (nread == 0) |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3580 kill (0, SIGHUP); |
518 | 3581 #endif |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
3582 } |
6972
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
3583 while ( |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
3584 /* 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
|
3585 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
|
3586 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
|
3587 where a retry is actually needed? */ |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
3588 #if 0 |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
3589 nread < 0 && (errno == EAGAIN |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3590 #ifdef EFAULT |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
3591 || errno == EFAULT |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
3592 #endif |
518 | 3593 #ifdef EBADSLT |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
3594 || errno == EBADSLT |
518 | 3595 #endif |
6972
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
3596 ) |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
3597 #else |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
3598 0 |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
3599 #endif |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
3600 ); |
518 | 3601 |
3602 #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
|
3603 #if defined (USG) || defined (DGUX) |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
3604 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
|
3605 #endif /* USG or DGUX */ |
518 | 3606 #endif /* no FIONREAD */ |
3607 for (i = 0; i < nread; i++) | |
3608 { | |
3609 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
|
3610 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
|
3611 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
|
3612 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
|
3613 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
|
3614 cbuf[i] &= ~0x80; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3615 |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
3616 XSETINT (buf[i].code, cbuf[i]); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3617 #ifdef MULTI_FRAME |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
3618 XSETFRAME (buf[i].frame_or_window, selected_frame); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3619 #else |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3620 buf[i].frame_or_window = Qnil; |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3621 #endif |
518 | 3622 } |
3623 } | |
3624 | |
3625 /* Scan the chars for C-g and store them in kbd_buffer. */ | |
3626 for (i = 0; i < nread; i++) | |
3627 { | |
3628 kbd_buffer_store_event (&buf[i]); | |
3629 /* Don't look at input that follows a C-g too closely. | |
3630 This reduces lossage due to autorepeat on C-g. */ | |
3631 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
|
3632 && buf[i].code == quit_char) |
518 | 3633 break; |
3634 } | |
3635 | |
3636 return nread; | |
3637 } | |
3638 #endif /* not VMS */ | |
3639 | |
3640 #ifdef SIGIO /* for entire page */ | |
3641 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
3642 | |
1119
5d315d54b8b4
* keyboard.c (kbd_buffer_get_event): When performing the
Jim Blandy <jimb@redhat.com>
parents:
1104
diff
changeset
|
3643 SIGTYPE |
518 | 3644 input_available_signal (signo) |
3645 int signo; | |
3646 { | |
3647 /* Must preserve main program's value of errno. */ | |
3648 int old_errno = errno; | |
3649 #ifdef BSD4_1 | |
3650 extern int select_alarmed; | |
3651 #endif | |
3652 | |
3653 #ifdef USG | |
3654 /* USG systems forget handlers when they are used; | |
3655 must reestablish each time */ | |
3656 signal (signo, input_available_signal); | |
3657 #endif /* USG */ | |
3658 | |
3659 #ifdef BSD4_1 | |
3660 sigisheld (SIGIO); | |
3661 #endif | |
3662 | |
648 | 3663 if (input_available_clear_time) |
3664 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0); | |
518 | 3665 |
3666 while (1) | |
3667 { | |
3668 int nread; | |
3669 nread = read_avail_input (1); | |
3670 /* -1 means it's not ok to read the input now. | |
3671 UNBLOCK_INPUT will read it later; now, avoid infinite loop. | |
3672 0 means there was no keyboard input available. */ | |
3673 if (nread <= 0) | |
3674 break; | |
3675 | |
3676 #ifdef BSD4_1 | |
3677 select_alarmed = 1; /* Force the select emulator back to life */ | |
3678 #endif | |
3679 } | |
3680 | |
3681 #ifdef BSD4_1 | |
3682 sigfree (); | |
3683 #endif | |
3684 errno = old_errno; | |
3685 } | |
3686 #endif /* SIGIO */ | |
2726
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3687 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3688 /* Send ourselves a SIGIO. |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3689 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3690 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
|
3691 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
|
3692 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
|
3693 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
|
3694 void |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3695 reinvoke_input_signal () |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3696 { |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3697 #ifdef SIGIO |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3698 kill (0, SIGIO); |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3699 #endif |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3700 } |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3701 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
3702 |
518 | 3703 |
3704 /* Return the prompt-string of a sparse keymap. | |
3705 This is the first element which is a string. | |
3706 Return nil if there is none. */ | |
3707 | |
3708 Lisp_Object | |
3709 map_prompt (map) | |
3710 Lisp_Object map; | |
3711 { | |
3712 while (CONSP (map)) | |
3713 { | |
3714 register Lisp_Object tem; | |
3715 tem = Fcar (map); | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
3716 if (STRINGP (tem)) |
518 | 3717 return tem; |
3718 map = Fcdr (map); | |
3719 } | |
3720 return Qnil; | |
3721 } | |
3722 | |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3723 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
|
3724 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
|
3725 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3726 /* 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
|
3727 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
|
3728 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
|
3729 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
|
3730 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
|
3731 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3732 /* 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
|
3733 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
|
3734 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
|
3735 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3736 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
|
3737 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3738 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
|
3739 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
|
3740 Lisp_Object old; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3741 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3742 /* 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
|
3743 keymaps we have allocated space for. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3744 int nmaps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3745 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3746 /* 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
|
3747 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
|
3748 Lisp_Object *maps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3749 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
3750 Lisp_Object def, tem, tail; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3751 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3752 Lisp_Object result; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3753 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3754 int mapno; |
3255
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
3755 Lisp_Object oquit; |
2149
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 int i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3758 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3759 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
|
3760 |
3209
1166db56c752
* keyboard.c (menu_bar_items): Bind Qinhibit_quit to Qt while we
Jim Blandy <jimb@redhat.com>
parents:
3174
diff
changeset
|
3761 /* 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
|
3762 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
|
3763 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
|
3764 quitting while building the menus. |
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
3765 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
|
3766 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
|
3767 oquit = Vinhibit_quit; |
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
3768 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
|
3769 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3770 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
|
3771 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
|
3772 else |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3773 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
|
3774 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
|
3775 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3776 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
|
3777 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3778 /* Build our list of keymaps. |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3779 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
|
3780 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
|
3781 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
|
3782 the initial keymaps from the current buffer. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3783 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3784 Lisp_Object *tmaps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3785 |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3786 /* Should overriding-local-map apply, here? */ |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3787 if (!NILP (Voverriding_local_map_menu_flag)) |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
3788 { |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3789 if (NILP (Voverriding_local_map)) |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3790 { |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3791 /* Yes, and it is nil. Use just global map. */ |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3792 nmaps = 1; |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3793 maps = (Lisp_Object *) alloca (nmaps * sizeof (maps[0])); |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3794 } |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3795 else |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3796 { |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3797 /* Yes, and it is non-nil. Use it and the global map. */ |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3798 nmaps = 2; |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3799 maps = (Lisp_Object *) alloca (nmaps * sizeof (maps[0])); |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3800 maps[0] = Voverriding_local_map; |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3801 } |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
3802 } |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
3803 else |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
3804 { |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
3805 /* No, so use major and minor mode keymaps. */ |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
3806 nmaps = current_minor_maps (0, &tmaps) + 2; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
3807 maps = (Lisp_Object *) alloca (nmaps * sizeof (maps[0])); |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
3808 bcopy (tmaps, maps, (nmaps - 2) * sizeof (maps[0])); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3809 #ifdef USE_TEXT_PROPERTIES |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
3810 maps[nmaps-2] = 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
|
3811 #else |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
3812 maps[nmaps-2] = current_buffer->keymap; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3813 #endif |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
3814 } |
3887
d8eb17d07558
* keyboard.c (menu_bar_items, read_key_sequence): Use
Jim Blandy <jimb@redhat.com>
parents:
3861
diff
changeset
|
3815 maps[nmaps-1] = current_global_map; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3816 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3817 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3818 /* 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
|
3819 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3820 result = Qnil; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3821 |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
3822 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
|
3823 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3824 if (! NILP (maps[mapno])) |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
3825 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
|
3826 else |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3827 def = Qnil; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3828 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3829 tem = Fkeymapp (def); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3830 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
|
3831 menu_bar_one_keymap (def); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3832 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3833 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3834 /* 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
|
3835 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
3836 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
|
3837 { |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3838 int i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3839 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
|
3840 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3841 for (i = 0; i < end; i += 3) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3842 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
|
3843 { |
6159
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
3844 Lisp_Object tem0, tem1, tem2; |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
3845 /* 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
|
3846 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
|
3847 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
|
3848 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
|
3849 tem2 = XVECTOR (menu_bar_items_vector)->contents[i + 2]; |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
3850 if (end > i + 3) |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
3851 bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 3], |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
3852 &XVECTOR (menu_bar_items_vector)->contents[i], |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
3853 (end - i - 3) * sizeof (Lisp_Object)); |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
3854 XVECTOR (menu_bar_items_vector)->contents[end - 3] = tem0; |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
3855 XVECTOR (menu_bar_items_vector)->contents[end - 2] = tem1; |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
3856 XVECTOR (menu_bar_items_vector)->contents[end - 1] = tem2; |
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
3857 break; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3858 } |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
3859 } |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
3860 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3861 /* Add nil, nil, nil 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
|
3862 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
|
3863 if (i + 3 > XVECTOR (menu_bar_items_vector)->size) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3864 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3865 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
|
3866 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
|
3867 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
|
3868 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
|
3869 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
|
3870 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
|
3871 } |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3872 /* 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
|
3873 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
|
3874 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
|
3875 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
|
3876 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
|
3877 |
3255
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
3878 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
|
3879 UNGCPRO; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3880 return menu_bar_items_vector; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3881 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3882 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3883 /* 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
|
3884 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
|
3885 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3886 static void |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3887 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
|
3888 Lisp_Object keymap; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3889 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3890 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
|
3891 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3892 /* 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
|
3893 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
|
3894 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3895 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
|
3896 if (CONSP (item)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3897 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3898 key = XCONS (item)->car; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3899 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
|
3900 if (CONSP (binding)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3901 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3902 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
|
3903 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
|
3904 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
|
3905 } |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
3906 else if (EQ (binding, Qundefined)) |
7650 | 3907 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
|
3908 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
3909 else if (VECTORP (item)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3910 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3911 /* 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
|
3912 int len = XVECTOR (item)->size; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3913 int c; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3914 for (c = 0; c < len; c++) |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3915 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3916 Lisp_Object character; |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
3917 XSETFASTINT (character, c); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3918 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
|
3919 if (CONSP (binding)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3920 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3921 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
|
3922 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
|
3923 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
|
3924 } |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
3925 else if (EQ (binding, Qundefined)) |
7650 | 3926 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
|
3927 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3928 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3929 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3930 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3931 |
5808
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3932 /* 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
|
3933 |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3934 static Lisp_Object |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3935 menu_bar_item_1 (arg) |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3936 Lisp_Object arg; |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3937 { |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3938 return Qnil; |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3939 } |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3940 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
3941 /* 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
|
3942 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
|
3943 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3944 static void |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3945 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
|
3946 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
|
3947 { |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
3948 Lisp_Object tem; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3949 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
|
3950 int i; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3951 |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
3952 if (EQ (def, Qundefined)) |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
3953 { |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
3954 /* If a map has an explicit `undefined' as definition, |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
3955 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
|
3956 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3957 for (i = 0; i < menu_bar_items_index; i += 3) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3958 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
|
3959 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3960 if (menu_bar_items_index > i + 3) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3961 bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 3], |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3962 &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
|
3963 (menu_bar_items_index - i - 3) * 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
|
3964 menu_bar_items_index -= 3; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3965 return; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3966 } |
7650 | 3967 |
3968 /* If there's no definition for this key yet, | |
3969 just ignore `undefined'. */ | |
3970 return; | |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
3971 } |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
3972 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3973 /* See if this entry is enabled. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3974 enabled = Qt; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3975 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
3976 if (SYMBOLP (def)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3977 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3978 /* No property, or nil, means enable. |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3979 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
|
3980 tem = Fget (def, Qmenu_enable); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3981 if (!NILP (tem)) |
5808
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3982 /* (condition-case nil (eval tem) |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3983 (error nil)) */ |
995860e5f342
(menu_bar_item): Use internal_condition_case_1.
Richard M. Stallman <rms@gnu.org>
parents:
5779
diff
changeset
|
3984 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
|
3985 menu_bar_item_1); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3986 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
3987 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3988 /* 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
|
3989 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
|
3990 return; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3991 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
3992 /* Find any existing item for this KEY. */ |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3993 for (i = 0; i < menu_bar_items_index; i += 3) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3994 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
|
3995 break; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
3996 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
3997 /* 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
|
3998 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
|
3999 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4000 /* If vector is too small, get a bigger one. */ |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4001 if (i + 3 > XVECTOR (menu_bar_items_vector)->size) |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4002 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4003 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
|
4004 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
|
4005 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
|
4006 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
|
4007 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
|
4008 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
|
4009 } |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4010 /* 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
|
4011 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
|
4012 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
|
4013 XVECTOR (menu_bar_items_vector)->contents[i++] = Fcons (def, Qnil); |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4014 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
|
4015 } |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
4016 /* 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
|
4017 else |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
4018 { |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
4019 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
|
4020 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
|
4021 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
|
4022 } |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4023 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4024 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
4025 /* 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
|
4026 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
|
4027 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
|
4028 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4029 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
|
4030 the first event of a key sequence. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4031 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
4032 If USED_MOUSE_MENU is non-zero, then we set *USED_MOUSE_MENU to 1 |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
4033 if we used a mouse menu to read the input, or zero otherwise. If |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
4034 USED_MOUSE_MENU is zero, *USED_MOUSE_MENU is left alone. |
518 | 4035 |
4036 The prompting is done based on the prompt-string of the map | |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4037 and the strings associated with various map elements. |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4038 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4039 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
|
4040 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
|
4041 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
|
4042 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
|
4043 and do auto-saving in the inner call of read_char. */ |
518 | 4044 |
3453
1fd89e975a78
(read_char_menu_prompt): Now static. Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
3452
diff
changeset
|
4045 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
|
4046 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
|
4047 int nmaps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4048 Lisp_Object *maps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4049 Lisp_Object prev_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4050 int *used_mouse_menu; |
518 | 4051 { |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4052 int mapno; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4053 register Lisp_Object name; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4054 Lisp_Object rest, vector; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4055 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
4056 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
|
4057 *used_mouse_menu = 0; |
518 | 4058 |
4059 /* Use local over global Menu maps */ | |
4060 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4061 if (! menu_prompting) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4062 return Qnil; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4063 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
4064 /* 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
|
4065 if (inhibit_local_menu_bar_menus) |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
4066 { |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
4067 maps += (nmaps - 1); |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
4068 nmaps = 1; |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
4069 } |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
4070 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4071 /* 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
|
4072 for (mapno = 0; mapno < nmaps; mapno++) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4073 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4074 name = map_prompt (maps[mapno]); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4075 if (!NILP (name)) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4076 break; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4077 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4078 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4079 /* 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
|
4080 if (mapno >= nmaps) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4081 return Qnil; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4082 |
9572 | 4083 #if (defined (HAVE_X_WINDOWS) && defined (HAVE_X_MENU)) || defined (MSDOS) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4084 /* 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
|
4085 use a real menu for mouse selection. */ |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4086 if (EVENT_HAS_PARAMETERS (prev_event)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4087 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4088 /* Display the menu and get the selection. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4089 Lisp_Object *realmaps |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4090 = (Lisp_Object *) alloca (nmaps * sizeof (Lisp_Object)); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4091 Lisp_Object value; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4092 int nmaps1 = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4093 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4094 /* Use the maps that are not nil. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4095 for (mapno = 0; mapno < nmaps; mapno++) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4096 if (!NILP (maps[mapno])) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4097 realmaps[nmaps1++] = maps[mapno]; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4098 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4099 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
|
4100 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
|
4101 { |
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
4102 /* 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
|
4103 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
|
4104 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
|
4105 Vunread_command_events |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
4106 = 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
|
4107 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
|
4108 } |
6932
bde97688f58b
(read_char_x_menu_prompt): Don't check for value = nil
Richard M. Stallman <rms@gnu.org>
parents:
6925
diff
changeset
|
4109 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
|
4110 value = Qt; |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
4111 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
|
4112 *used_mouse_menu = 1; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4113 return value; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4114 } |
9572 | 4115 #endif /* (HAVE_X_WINDOWS && HAVE_X_MENU) || MSDOS */ |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4116 return Qnil ; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4117 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4118 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4119 static Lisp_Object |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
4120 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
|
4121 int commandflag ; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4122 int nmaps; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4123 Lisp_Object *maps; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4124 { |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4125 int mapno; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4126 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
|
4127 int nlength; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4128 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
|
4129 char *menu = (char *) alloca (width + 4); |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4130 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
|
4131 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
|
4132 Lisp_Object rest, vector; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4133 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4134 if (! menu_prompting) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4135 return Qnil; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4136 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4137 /* 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
|
4138 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
|
4139 { |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4140 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
|
4141 if (!NILP (name)) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4142 break; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4143 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4144 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4145 /* 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
|
4146 if (mapno >= nmaps) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4147 return Qnil; |
518 | 4148 |
4149 /* Prompt string always starts with map's prompt, and a space. */ | |
4150 strcpy (menu, XSTRING (name)->data); | |
4151 nlength = XSTRING (name)->size; | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4152 menu[nlength++] = ':'; |
518 | 4153 menu[nlength++] = ' '; |
4154 menu[nlength] = 0; | |
4155 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4156 /* Start prompting at start of first map. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4157 mapno = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4158 rest = maps[mapno]; |
518 | 4159 |
4160 /* Present the documented bindings, a line at a time. */ | |
4161 while (1) | |
4162 { | |
4163 int notfirst = 0; | |
4164 int i = nlength; | |
4165 Lisp_Object obj; | |
4166 int ch; | |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4167 int orig_defn_macro ; |
518 | 4168 |
4169 /* Loop over elements of map. */ | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4170 while (i < width) |
518 | 4171 { |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4172 Lisp_Object s, elt; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4173 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4174 /* 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
|
4175 if (NILP (rest)) |
518 | 4176 { |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4177 mapno++; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4178 /* 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
|
4179 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
|
4180 if (mapno == nmaps) |
518 | 4181 { |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4182 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
|
4183 if (notfirst || nobindings) break; |
518 | 4184 } |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4185 rest = maps[mapno]; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4186 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4187 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4188 /* Look at the next element of the map. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4189 if (idx >= 0) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4190 elt = XVECTOR (vector)->contents[idx]; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4191 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4192 elt = Fcar_safe (rest); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4193 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4194 if (idx < 0 && VECTORP (elt)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4195 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4196 /* 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
|
4197 advanced past it, but start scanning its contents. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4198 rest = Fcdr_safe (rest); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4199 vector = elt; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4200 idx = 0; |
518 | 4201 } |
4202 else | |
4203 { | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4204 /* An ordinary element. */ |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4205 if ( idx < 0 ) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4206 s = Fcar_safe (Fcdr_safe (elt)); /* alist */ |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4207 else |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4208 s = Fcar_safe(elt); /* vector */ |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4209 if (!STRINGP (s)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4210 /* Ignore the element if it has no prompt string. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4211 ; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4212 /* If we have room for the prompt string, add it to this line. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4213 If this is the first on the line, always add it. */ |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4214 else if (XSTRING (s)->size + i + 2 < width |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4215 || !notfirst) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4216 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4217 int thiswidth; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4218 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4219 /* Punctuate between strings. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4220 if (notfirst) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4221 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4222 strcpy (menu + i, ", "); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4223 i += 2; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4224 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4225 notfirst = 1; |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4226 nobindings = 0 ; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4227 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4228 /* Add as much of string as fits. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4229 thiswidth = XSTRING (s)->size; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4230 if (thiswidth + i > width) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4231 thiswidth = width - i; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4232 bcopy (XSTRING (s)->data, menu + i, thiswidth); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4233 i += thiswidth; |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4234 menu[i] = 0; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4235 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4236 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4237 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4238 /* If this element does not fit, end the line now, |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4239 and save the element for the next line. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4240 strcpy (menu + i, "..."); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4241 break; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4242 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4243 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4244 /* 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
|
4245 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
|
4246 /* Handle reaching end of dense table. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4247 idx = -1; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4248 if (idx >= 0) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4249 idx++; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4250 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4251 rest = Fcdr_safe (rest); |
518 | 4252 } |
4253 } | |
4254 | |
4255 /* Prompt with that and read response. */ | |
4256 message1 (menu); | |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4257 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4258 /* Make believe its not a keyboard macro in case the help char |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4259 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
|
4260 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
|
4261 */ |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4262 orig_defn_macro = defining_kbd_macro ; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4263 defining_kbd_macro = 0 ; |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
4264 do |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
4265 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
|
4266 while (BUFFERP (obj)); |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4267 defining_kbd_macro = orig_defn_macro ; |
518 | 4268 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4269 if (!INTEGERP (obj)) |
518 | 4270 return obj; |
4271 else | |
4272 ch = XINT (obj); | |
4273 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4274 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
|
4275 && (!INTEGERP (menu_prompt_more_char) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4276 || ! 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
|
4277 { |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4278 if ( defining_kbd_macro ) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4279 store_kbd_macro_char(obj) ; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4280 return obj; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4281 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
4282 /* Help char - go round again */ |
518 | 4283 } |
4284 } | |
4285 | |
4286 /* Reading key sequences. */ | |
4287 | |
4288 /* Follow KEY in the maps in CURRENT[0..NMAPS-1], placing its bindings | |
4289 in DEFS[0..NMAPS-1]. Set NEXT[i] to DEFS[i] if DEFS[i] is a | |
4290 keymap, or nil otherwise. Return the index of the first keymap in | |
4291 which KEY has any binding, or NMAPS if no map has a binding. | |
4292 | |
4293 If KEY is a meta ASCII character, treat it like meta-prefix-char | |
4294 followed by the corresponding non-meta character. Keymaps in | |
4295 CURRENT with non-prefix bindings for meta-prefix-char become nil in | |
4296 NEXT. | |
4297 | |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4298 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
|
4299 unmodified. |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4300 |
518 | 4301 NEXT may == CURRENT. */ |
4302 | |
4303 static int | |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
4304 follow_key (key, nmaps, current, defs, next) |
518 | 4305 Lisp_Object key; |
4306 Lisp_Object *current, *defs, *next; | |
4307 int nmaps; | |
4308 { | |
4309 int i, first_binding; | |
4310 | |
4311 /* If KEY is a meta ASCII character, treat it like meta-prefix-char | |
4312 followed by the corresponding non-meta character. */ | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4313 if (INTEGERP (key) && (XINT (key) & CHAR_META)) |
518 | 4314 { |
4315 for (i = 0; i < nmaps; i++) | |
4316 if (! NILP (current[i])) | |
4317 { | |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4318 next[i] = |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
4319 get_keyelt (access_keymap (current[i], meta_prefix_char, 1, 0)); |
518 | 4320 |
4321 /* Note that since we pass the resulting bindings through | |
4322 get_keymap_1, non-prefix bindings for meta-prefix-char | |
4323 disappear. */ | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4324 next[i] = get_keymap_1 (next[i], 0, 1); |
518 | 4325 } |
4326 else | |
4327 next[i] = Qnil; | |
4328 | |
4329 current = next; | |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
4330 XSETINT (key, XFASTINT (key) & ~CHAR_META); |
518 | 4331 } |
4332 | |
4333 first_binding = nmaps; | |
4334 for (i = nmaps - 1; i >= 0; i--) | |
4335 { | |
4336 if (! NILP (current[i])) | |
4337 { | |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
4338 defs[i] = get_keyelt (access_keymap (current[i], key, 1, 0)); |
518 | 4339 if (! NILP (defs[i])) |
4340 first_binding = i; | |
4341 } | |
4342 else | |
4343 defs[i] = Qnil; | |
4344 } | |
4345 | |
4346 /* 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
|
4347 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
|
4348 for (i = 0; i < nmaps; i++) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4349 next[i] = NILP (defs[i]) ? Qnil : get_keymap_1 (defs[i], 0, 1); |
518 | 4350 |
4351 return first_binding; | |
4352 } | |
4353 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4354 /* Read a sequence of keys that ends with a non prefix character, |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4355 storing it in KEYBUF, a buffer of size BUFSIZE. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4356 Prompt with PROMPT. |
518 | 4357 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
|
4358 Return -1 if the user rejected a command menu. |
518 | 4359 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4360 Echo starting immediately unless `prompt' is 0. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4361 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4362 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
|
4363 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
|
4364 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
|
4365 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4366 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
|
4367 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
|
4368 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
|
4369 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
|
4370 |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4371 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
|
4372 `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
|
4373 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
|
4374 then into clicks. |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4375 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4376 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
|
4377 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
|
4378 symbol denoting that area - `mode-line', `vertical-line', or |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4379 whatever. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4380 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4381 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
|
4382 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
|
4383 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4384 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
|
4385 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
|
4386 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
|
4387 |
518 | 4388 static int |
4389 read_key_sequence (keybuf, bufsize, prompt) | |
4390 Lisp_Object *keybuf; | |
4391 int bufsize; | |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
4392 Lisp_Object prompt; |
518 | 4393 { |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4394 int count = specpdl_ptr - specpdl; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4395 |
518 | 4396 /* How many keys there are in the current key sequence. */ |
4397 int t; | |
4398 | |
4399 /* The length of the echo buffer when we started reading, and | |
4400 the length of this_command_keys when we started reading. */ | |
4401 int echo_start; | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4402 int keys_start; |
518 | 4403 |
4404 /* The number of keymaps we're scanning right now, and the number of | |
4405 keymaps we have allocated space for. */ | |
4406 int nmaps; | |
4407 int nmaps_allocated = 0; | |
4408 | |
4409 /* defs[0..nmaps-1] are the definitions of KEYBUF[0..t-1] in | |
4410 the current keymaps. */ | |
4411 Lisp_Object *defs; | |
4412 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4413 /* 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
|
4414 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
|
4415 Lisp_Object *submaps; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4416 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4417 /* 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
|
4418 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
|
4419 defs[i] is non-nil. */ |
518 | 4420 int first_binding; |
4421 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4422 /* If t < mock_input, then KEYBUF[t] should be read as the next |
899 | 4423 input key. |
4424 | |
4425 We use this to recover after recognizing a function key. Once we | |
4426 realize that a suffix of the current key sequence is actually a | |
4427 function key's escape sequence, we replace the suffix with the | |
4428 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
|
4429 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
|
4430 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
|
4431 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
|
4432 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
|
4433 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
|
4434 reading characters from the keyboard. */ |
518 | 4435 int mock_input = 0; |
4436 | |
899 | 4437 /* If the sequence is unbound in submaps[], then |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4438 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
|
4439 and fkey_map is its binding. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4440 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4441 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
|
4442 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
|
4443 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
|
4444 key's again in Vfunction_key_map. */ |
518 | 4445 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
|
4446 Lisp_Object fkey_map; |
518 | 4447 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
4448 /* 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
|
4449 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
|
4450 Lisp_Object keytran_map; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
4451 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4452 /* 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
|
4453 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
|
4454 Lisp_Object delayed_switch_frame; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
4455 |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
4456 /* 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
|
4457 #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
|
4458 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
|
4459 #endif |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
4460 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
4461 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
|
4462 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4463 /* 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
|
4464 in function_key_map. */ |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4465 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
|
4466 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
|
4467 |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
4468 int junk; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
4469 |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
4470 last_nonmenu_event = Qnil; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
4471 |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
4472 delayed_switch_frame = Qnil; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
4473 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
|
4474 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
|
4475 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
4476 /* 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
|
4477 if (NILP (Fkeymapp (Vfunction_key_map))) |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4478 fkey_start = fkey_end = bufsize + 1; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4479 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
4480 /* 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
|
4481 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
|
4482 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
|
4483 |
518 | 4484 if (INTERACTIVE) |
4485 { | |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
4486 if (!NILP (prompt)) |
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
4487 echo_prompt (XSTRING (prompt)->data); |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
4488 else if (cursor_in_echo_area && echo_keystrokes) |
518 | 4489 /* This doesn't put in a dash if the echo buffer is empty, so |
4490 you don't always see a dash hanging out in the minibuffer. */ | |
4491 echo_dash (); | |
4492 } | |
4493 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4494 /* 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
|
4495 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
|
4496 if (INTERACTIVE) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4497 echo_start = echo_length (); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4498 keys_start = this_command_key_count; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4499 |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
4500 #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
|
4501 /* 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
|
4502 does cannot safely be bypassed. It seems too risky to try to make |
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
4503 this work right. */ |
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
4504 |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
4505 /* 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
|
4506 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
|
4507 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
|
4508 &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
|
4509 #endif /* GOBBLE_FIRST_EVENT */ |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
4510 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4511 /* 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
|
4512 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
|
4513 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
|
4514 replay_sequence: |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4515 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
4516 starting_buffer = current_buffer; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4517 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
|
4518 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
|
4519 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4520 /* Build our list of keymaps. |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
4521 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
|
4522 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
|
4523 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
|
4524 the initial keymaps from the current buffer. */ |
518 | 4525 { |
4526 Lisp_Object *maps; | |
4527 | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4528 if (!NILP (Voverriding_local_map)) |
518 | 4529 { |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4530 nmaps = 2; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4531 if (nmaps > nmaps_allocated) |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4532 { |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4533 submaps = (Lisp_Object *) alloca (nmaps * sizeof (submaps[0])); |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4534 defs = (Lisp_Object *) alloca (nmaps * sizeof (defs[0])); |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4535 nmaps_allocated = nmaps; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4536 } |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4537 submaps[0] = Voverriding_local_map; |
518 | 4538 } |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4539 else |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4540 { |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4541 nmaps = current_minor_maps (0, &maps) + 2; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4542 if (nmaps > nmaps_allocated) |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4543 { |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4544 submaps = (Lisp_Object *) alloca (nmaps * sizeof (submaps[0])); |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4545 defs = (Lisp_Object *) alloca (nmaps * sizeof (defs[0])); |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4546 nmaps_allocated = nmaps; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4547 } |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4548 bcopy (maps, submaps, (nmaps - 2) * sizeof (submaps[0])); |
2061 | 4549 #ifdef USE_TEXT_PROPERTIES |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4550 submaps[nmaps-2] = get_local_map (PT, current_buffer); |
2061 | 4551 #else |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4552 submaps[nmaps-2] = current_buffer->keymap; |
2061 | 4553 #endif |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
4554 } |
3887
d8eb17d07558
* keyboard.c (menu_bar_items, read_key_sequence): Use
Jim Blandy <jimb@redhat.com>
parents:
3861
diff
changeset
|
4555 submaps[nmaps-1] = current_global_map; |
518 | 4556 } |
4557 | |
4558 /* Find an accurate initial value for first_binding. */ | |
4559 for (first_binding = 0; first_binding < nmaps; first_binding++) | |
899 | 4560 if (! NILP (submaps[first_binding])) |
518 | 4561 break; |
4562 | |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
4563 /* Start from the beginning in keybuf. */ |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4564 t = 0; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4565 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4566 /* 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
|
4567 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
|
4568 this_command_key_count = keys_start; |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
4569 if (INTERACTIVE && t < mock_input) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4570 echo_truncate (echo_start); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4571 |
3809
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
4572 /* 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
|
4573 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
|
4574 reading. */ |
899 | 4575 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
|
4576 || (first_binding >= nmaps |
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
4577 && fkey_start < t |
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
4578 /* 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
|
4579 && mock_input <= fkey_start) |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
4580 || (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
|
4581 /* 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
|
4582 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
|
4583 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
|
4584 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
|
4585 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
|
4586 ) |
518 | 4587 { |
4588 Lisp_Object key; | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4589 int used_mouse_menu = 0; |
518 | 4590 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4591 /* 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
|
4592 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
|
4593 (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
|
4594 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
|
4595 of keybuf. */ |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4596 int last_real_key_start; |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4597 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4598 /* 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
|
4599 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
|
4600 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
|
4601 just one key. */ |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4602 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
|
4603 |
518 | 4604 if (t >= bufsize) |
4605 error ("key sequence too long"); | |
4606 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4607 if (INTERACTIVE) |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4608 echo_local_start = echo_length (); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4609 keys_local_start = this_command_key_count; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4610 local_first_binding = first_binding; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4611 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4612 replay_key: |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4613 /* 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
|
4614 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
|
4615 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
|
4616 loop. */ |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
4617 if (INTERACTIVE && t < mock_input) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4618 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
|
4619 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
|
4620 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
|
4621 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4622 /* 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
|
4623 last_real_key_start = t; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4624 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4625 /* Does mock_input indicate that we are re-reading a key sequence? */ |
518 | 4626 if (t < mock_input) |
4627 { | |
4628 key = keybuf[t]; | |
4629 add_command_key (key); | |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
4630 if (echo_keystrokes) |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
4631 echo_char (key); |
518 | 4632 } |
899 | 4633 |
4634 /* If not, we should actually read a character. */ | |
518 | 4635 else |
4636 { | |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
4637 struct buffer *buf = current_buffer; |
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
4638 |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
4639 key = read_char (NILP (prompt), nmaps, submaps, last_nonmenu_event, |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
4640 &used_mouse_menu); |
518 | 4641 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
4642 /* 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
|
4643 Just return -1. */ |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
4644 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
|
4645 return -1; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
4646 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4647 /* read_char returns -1 at the end of a macro. |
518 | 4648 Emacs 18 handles this by returning immediately with a |
4649 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
|
4650 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
|
4651 { |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4652 t = 0; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4653 goto done; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4654 } |
518 | 4655 |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
4656 /* 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
|
4657 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
|
4658 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
|
4659 { |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
4660 mock_input = t; |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
4661 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
|
4662 } |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
4663 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
4664 /* 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
|
4665 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
|
4666 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
|
4667 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
|
4668 { |
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
4669 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
|
4670 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
|
4671 Vquit_flag = Qnil; |
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
4672 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
|
4673 } |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
4674 |
518 | 4675 Vquit_flag = Qnil; |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4676 } |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4677 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4678 /* Clicks in non-text areas get prefixed by the symbol |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4679 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
|
4680 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
|
4681 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4682 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
|
4683 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
|
4684 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
|
4685 here. |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4686 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4687 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
|
4688 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
|
4689 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
|
4690 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
|
4691 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
|
4692 if (EVENT_HAS_PARAMETERS (key)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4693 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4694 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
|
4695 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4696 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
|
4697 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
|
4698 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4699 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
|
4700 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4701 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
|
4702 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
|
4703 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
|
4704 { |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4705 /* 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
|
4706 sequence which we expanded before. Set |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4707 last_real_key_start appropriately. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4708 if (t > 0) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4709 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
|
4710 } |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4711 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4712 /* 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
|
4713 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
|
4714 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
|
4715 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
|
4716 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
|
4717 && WINDOWP (window) |
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4718 && BUFFERP (XWINDOW (window)->buffer) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4719 && 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
|
4720 { |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4721 keybuf[t] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4722 mock_input = t + 1; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4723 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4724 /* 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
|
4725 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
|
4726 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
|
4727 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
|
4728 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
|
4729 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
|
4730 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
|
4731 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
|
4732 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
|
4733 emacsclient). */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4734 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
|
4735 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4736 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer)); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4737 goto replay_sequence; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4738 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4739 else if (SYMBOLP (posn)) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4740 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4741 /* Expand mode-line and scroll-bar events into two events: |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4742 use posn as a fake prefix key. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4743 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4744 if (t + 1 >= bufsize) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4745 error ("key sequence too long"); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4746 keybuf[t] = posn; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4747 keybuf[t+1] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4748 mock_input = t + 2; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4749 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4750 /* 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
|
4751 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
|
4752 POSN_BUFFER_POSN (EVENT_START (key)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4753 = Fcons (posn, Qnil); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4754 goto replay_key; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4755 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4756 } |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4757 else if (EQ (kind, Qswitch_frame)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4758 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4759 /* If we're at the beginning of a key sequence, go |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4760 ahead and return this event. If we're in the |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4761 midst of a key sequence, delay it until the end. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4762 if (t > 0) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4763 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4764 delayed_switch_frame = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4765 goto replay_key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4766 } |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4767 } |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
4768 else if (CONSP (XCONS (key)->cdr) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
4769 && CONSP (EVENT_START (key)) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
4770 && 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
|
4771 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4772 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
|
4773 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4774 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
|
4775 /* Handle menu-bar events: |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4776 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
|
4777 if (EQ (posn, Qmenu_bar)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4778 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4779 if (t + 1 >= bufsize) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4780 error ("key sequence too long"); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4781 /* Run the Lucid hook. */ |
6208
db4139d43f8a
(command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents:
6204
diff
changeset
|
4782 if (!NILP (Vrun_hooks)) |
db4139d43f8a
(command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents:
6204
diff
changeset
|
4783 call1 (Vrun_hooks, Qactivate_menubar_hook); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4784 /* If it has changed current-menubar from previous value, |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4785 really recompute the menubar from the value. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4786 if (! NILP (Vlucid_menu_bar_dirty_flag)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4787 call0 (Qrecompute_lucid_menubar); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4788 keybuf[t] = posn; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4789 keybuf[t+1] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4790 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4791 /* 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
|
4792 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
|
4793 POSN_BUFFER_POSN (EVENT_START (key)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4794 = Fcons (posn, Qnil); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4795 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4796 mock_input = t + 2; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4797 goto replay_sequence; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4798 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4799 else if (CONSP (posn)) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4800 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4801 /* 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
|
4802 sequence which we expanded before. Set |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4803 last_real_key_start appropriately. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4804 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
|
4805 last_real_key_start = t - 1; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4806 } |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
4807 } |
518 | 4808 } |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4809 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4810 /* 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
|
4811 to look up. */ |
518 | 4812 first_binding = (follow_key (key, |
4813 nmaps - first_binding, | |
899 | 4814 submaps + first_binding, |
518 | 4815 defs + first_binding, |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
4816 submaps + first_binding) |
518 | 4817 + first_binding); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4818 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4819 /* 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
|
4820 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
|
4821 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4822 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
|
4823 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4824 head = EVENT_HEAD (key); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4825 if (EQ (head, Vhelp_char)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4826 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4827 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
|
4828 keybuf[t++] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4829 last_nonmenu_event = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4830 goto done; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4831 } |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
4832 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4833 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
|
4834 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4835 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
|
4836 int modifiers; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4837 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4838 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
|
4839 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
|
4840 /* 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
|
4841 event that is bound: |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4842 Drags reduce to clicks. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4843 Double-clicks reduce to clicks. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4844 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
|
4845 Down-clicks are eliminated. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4846 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
|
4847 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
|
4848 then are eliminated. */ |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4849 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
|
4850 | 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
|
4851 { |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4852 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
|
4853 | 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
|
4854 { |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4855 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
|
4856 if (modifiers & triple_modifier) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4857 modifiers ^= (double_modifier | triple_modifier); |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4858 else if (modifiers & (drag_modifier | double_modifier)) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4859 modifiers &= ~(drag_modifier | double_modifier); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4860 else |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4861 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4862 /* 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
|
4863 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
|
4864 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4865 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
|
4866 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
|
4867 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
|
4868 mock input. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4869 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4870 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
|
4871 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
|
4872 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
|
4873 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
|
4874 anyway. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4875 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4876 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
|
4877 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
|
4878 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
|
4879 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
|
4880 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
|
4881 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
|
4882 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
|
4883 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
|
4884 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
|
4885 it. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4886 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4887 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
|
4888 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
|
4889 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
|
4890 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
|
4891 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4892 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
|
4893 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
|
4894 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4895 mock_input = 0; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4896 goto replay_key; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4897 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4898 else |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4899 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4900 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
|
4901 goto replay_sequence; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4902 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4903 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4904 |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
4905 new_head |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
4906 = 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
|
4907 new_click |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
4908 = 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
|
4909 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4910 /* 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
|
4911 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
|
4912 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
|
4913 first_binding |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
4914 = (follow_key (new_click, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
4915 nmaps - local_first_binding, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
4916 submaps + local_first_binding, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
4917 defs + local_first_binding, |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
4918 submaps + local_first_binding) |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
4919 + local_first_binding); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4920 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4921 /* 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
|
4922 if (first_binding < nmaps) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4923 { |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4924 key = new_click; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4925 break; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4926 } |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4927 /* 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
|
4928 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4929 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4930 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4931 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
4932 |
518 | 4933 keybuf[t++] = key; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4934 /* 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
|
4935 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
|
4936 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
|
4937 event that preceded the first level of menu. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4938 if (!used_mouse_menu) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
4939 last_nonmenu_event = key; |
518 | 4940 |
4941 /* If the sequence is unbound, see if we can hang a function key | |
899 | 4942 off the end of it. We only want to scan real keyboard input |
4943 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
|
4944 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
|
4945 if (first_binding >= nmaps |
899 | 4946 && t >= mock_input) |
518 | 4947 { |
4948 Lisp_Object fkey_next; | |
4949 | |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4950 /* 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
|
4951 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
|
4952 and start fkey_end from there. */ |
518 | 4953 while (fkey_end < t) |
4954 { | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4955 Lisp_Object key; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4956 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4957 key = keybuf[fkey_end++]; |
853 | 4958 /* Look up meta-characters by prefixing them |
4959 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
|
4960 if (INTEGERP (key) && XINT (key) & meta_modifier) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4961 { |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
4962 fkey_next |
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
4963 = get_keymap_1 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4964 (get_keyelt |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
4965 (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
|
4966 0, 1); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
4967 XSETFASTINT (key, XFASTINT (key) & ~meta_modifier); |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
4968 } |
853 | 4969 else |
4970 fkey_next = fkey_map; | |
4971 | |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
4972 fkey_next |
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
4973 = 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
|
4974 |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
4975 #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
|
4976 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
|
4977 /* 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
|
4978 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
|
4979 if (SYMBOLP (key) && !NILP (Vinhibit_function_key_mapping)) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
4980 fkey_next = Qnil; |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
4981 #endif |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
4982 |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
4983 /* 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
|
4984 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
|
4985 its value instead. */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
4986 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
|
4987 && fkey_end == t) |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
4988 { |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
4989 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
|
4990 Lisp_Object tem; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
4991 tem = fkey_next; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
4992 |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
4993 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
|
4994 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
|
4995 UNGCPRO; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
4996 /* 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
|
4997 barf--don't ignore it. |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
4998 (To ignore it safely, we would need to gcpro a bunch of |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
4999 other variables.) */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5000 if (! (VECTORP (fkey_next) || STRINGP (fkey_next))) |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5001 error ("Function in function-key-map returns invalid key sequence"); |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5002 } |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5003 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5004 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
|
5005 |
939
c4dcdc9aed70
Clear the eighth bit of the character from the key sequence, NOT the
Jim Blandy <jimb@redhat.com>
parents:
899
diff
changeset
|
5006 /* If keybuf[fkey_start..fkey_end] is bound in the |
547 | 5007 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
|
5008 sequence (i.e. fkey_end == t), replace it with |
547 | 5009 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
|
5010 if ((VECTORP (fkey_next) || STRINGP (fkey_next)) |
518 | 5011 && fkey_end == t) |
5012 { | |
4417
02b7d9476fae
(read_key_sequence): Use XFASTINT to convert value
Richard M. Stallman <rms@gnu.org>
parents:
4397
diff
changeset
|
5013 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
|
5014 |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
5015 t = fkey_start + len; |
518 | 5016 if (t >= bufsize) |
5017 error ("key sequence too long"); | |
5018 | |
4137
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
5019 if (VECTORP (fkey_next)) |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
5020 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
|
5021 keybuf + fkey_start, |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
5022 (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
|
5023 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
|
5024 { |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
5025 int i; |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
5026 |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
5027 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
|
5028 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
|
5029 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
|
5030 } |
518 | 5031 |
5032 mock_input = t; | |
5033 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
|
5034 fkey_map = Vfunction_key_map; |
518 | 5035 |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
5036 /* 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
|
5037 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
|
5038 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
|
5039 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5040 goto replay_sequence; |
518 | 5041 } |
5042 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5043 fkey_map = get_keymap_1 (fkey_next, 0, 1); |
518 | 5044 |
547 | 5045 /* If we no longer have a bound suffix, try a new positions for |
5046 fkey_start. */ | |
518 | 5047 if (NILP (fkey_map)) |
5048 { | |
5049 fkey_end = ++fkey_start; | |
5050 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
|
5051 function_key_possible = 0; |
518 | 5052 } |
5053 } | |
5054 } | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5055 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5056 /* 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
|
5057 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5058 Lisp_Object keytran_next; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5059 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5060 /* 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
|
5061 while (keytran_end < t) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5062 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5063 Lisp_Object key; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5064 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5065 key = keybuf[keytran_end++]; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5066 /* 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
|
5067 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
|
5068 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
|
5069 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5070 keytran_next |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5071 = get_keymap_1 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5072 (get_keyelt |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5073 (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
|
5074 0, 1); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
5075 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
|
5076 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5077 else |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5078 keytran_next = keytran_map; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5079 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5080 keytran_next |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5081 = 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
|
5082 |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5083 /* 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
|
5084 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
|
5085 its value instead. */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5086 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
|
5087 && keytran_end == t) |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5088 { |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5089 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
|
5090 Lisp_Object tem; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5091 tem = keytran_next; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5092 |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
5093 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
|
5094 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
|
5095 UNGCPRO; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5096 /* 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
|
5097 barf--don't ignore it. |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5098 (To ignore it safely, we would need to gcpro a bunch of |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5099 other variables.) */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5100 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
|
5101 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
|
5102 } |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
5103 |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
5104 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
|
5105 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5106 /* 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
|
5107 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
|
5108 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
|
5109 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
|
5110 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
|
5111 && keytran_end == t) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5112 { |
4417
02b7d9476fae
(read_key_sequence): Use XFASTINT to convert value
Richard M. Stallman <rms@gnu.org>
parents:
4397
diff
changeset
|
5113 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
|
5114 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5115 t = keytran_start + len; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5116 if (t >= bufsize) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5117 error ("key sequence too long"); |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5118 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5119 if (VECTORP (keytran_next)) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5120 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
|
5121 keybuf + keytran_start, |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5122 (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
|
5123 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
|
5124 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5125 int i; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5126 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5127 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
|
5128 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
|
5129 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
|
5130 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5131 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5132 mock_input = t; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5133 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
|
5134 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
|
5135 |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
5136 /* 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
|
5137 through function-key-map. */ |
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
5138 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
|
5139 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
|
5140 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5141 goto replay_sequence; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5142 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5143 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5144 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
|
5145 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5146 /* If we no longer have a bound suffix, try a new positions for |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5147 keytran_start. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5148 if (NILP (keytran_map)) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5149 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5150 keytran_end = ++keytran_start; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5151 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
|
5152 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
|
5153 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5154 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5155 } |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5156 |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5157 /* 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
|
5158 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
|
5159 and is an upper case letter |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5160 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
|
5161 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
|
5162 && ! key_translation_possible |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5163 && INTEGERP (key) |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5164 && ((((XINT (key) & 0x3ffff) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5165 < XSTRING (current_buffer->downcase_table)->size) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5166 && UPPERCASEP (XINT (key) & 0x3ffff)) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5167 || (XINT (key) & shift_modifier))) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5168 { |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5169 if (XINT (key) & shift_modifier) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5170 XSETINT (key, XINT (key) & ~shift_modifier); |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5171 else |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5172 XSETINT (key, (DOWNCASE (XINT (key) & 0x3ffff) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5173 | (XINT (key) & ~0x3ffff))); |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5174 |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5175 keybuf[t - 1] = key; |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5176 mock_input = t; |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5177 goto replay_sequence; |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
5178 } |
518 | 5179 } |
5180 | |
5181 read_key_sequence_cmd = (first_binding < nmaps | |
5182 ? defs[first_binding] | |
5183 : Qnil); | |
5184 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5185 done: |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
5186 unread_switch_frame = delayed_switch_frame; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
5187 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
|
5188 |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
5189 /* 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
|
5190 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
|
5191 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
|
5192 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
|
5193 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
|
5194 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
|
5195 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
|
5196 |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
5197 Better ideas? */ |
3809
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
5198 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
|
5199 { |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
5200 if (echo_keystrokes) |
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
5201 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
|
5202 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
|
5203 } |
3799
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
5204 |
518 | 5205 return t; |
5206 } | |
5207 | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5208 #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
|
5209 This commented-out definition serves for DOC. */ |
691
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
5210 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 2, 0, |
518 | 5211 "Read a sequence of keystrokes and return as a string or vector.\n\ |
5212 The sequence is sufficient to specify a non-prefix command in the\n\ | |
5213 current local and global maps.\n\ | |
5214 \n\ | |
691
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
5215 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
|
5216 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
|
5217 as a continuation of the previous key.\n\ |
518 | 5218 \n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
5219 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
|
5220 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
|
5221 \n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
5222 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
|
5223 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
|
5224 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
|
5225 ""\n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
5226 `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
|
5227 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
|
5228 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
|
5229 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
|
5230 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
|
5231 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
|
5232 \n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
5233 `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
|
5234 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
|
5235 `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
|
5236 \n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
5237 If the user switches frames in the middle of a key sequence, the\n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
5238 frame-switch event is put off until after the current key sequence.\n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
5239 \n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
5240 `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
|
5241 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
|
5242 `function-key-map' for more details.") |
691
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
5243 (prompt, continue_echo) |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5244 #endif |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5245 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5246 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 2, 0, |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5247 0) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
5248 (prompt, continue_echo) |
691
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
5249 Lisp_Object prompt, continue_echo; |
518 | 5250 { |
5251 Lisp_Object keybuf[30]; | |
5252 register int i; | |
5253 struct gcpro gcpro1, gcpro2; | |
5254 | |
5255 if (!NILP (prompt)) | |
5256 CHECK_STRING (prompt, 0); | |
5257 QUIT; | |
5258 | |
5259 bzero (keybuf, sizeof keybuf); | |
5260 GCPRO1 (keybuf[0]); | |
5261 gcpro1.nvars = (sizeof keybuf/sizeof (keybuf[0])); | |
5262 | |
727 | 5263 if (NILP (continue_echo)) |
691
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
5264 this_command_key_count = 0; |
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
5265 |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
5266 i = read_key_sequence (keybuf, (sizeof keybuf/sizeof (keybuf[0])), prompt); |
518 | 5267 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
5268 if (i == -1) |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
5269 { |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
5270 Vquit_flag = Qt; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
5271 QUIT; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
5272 } |
518 | 5273 UNGCPRO; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5274 return make_event_array (i, keybuf); |
518 | 5275 } |
5276 | |
5277 DEFUN ("command-execute", Fcommand_execute, Scommand_execute, 1, 2, 0, | |
5278 "Execute CMD as an editor command.\n\ | |
5279 CMD must be a symbol that satisfies the `commandp' predicate.\n\ | |
5280 Optional second arg RECORD-FLAG non-nil\n\ | |
5281 means unconditionally put this command in `command-history'.\n\ | |
5282 Otherwise, that is done only if an arg is read using the minibuffer.") | |
5283 (cmd, record) | |
5284 Lisp_Object cmd, record; | |
5285 { | |
5286 register Lisp_Object final; | |
5287 register Lisp_Object tem; | |
5288 Lisp_Object prefixarg; | |
5289 struct backtrace backtrace; | |
5290 extern int debug_on_next_call; | |
5291 | |
5292 prefixarg = Vprefix_arg, Vprefix_arg = Qnil; | |
5293 Vcurrent_prefix_arg = prefixarg; | |
5294 debug_on_next_call = 0; | |
5295 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5296 if (SYMBOLP (cmd)) |
518 | 5297 { |
5298 tem = Fget (cmd, Qdisabled); | |
6208
db4139d43f8a
(command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents:
6204
diff
changeset
|
5299 if (!NILP (tem) && !NILP (Vrun_hooks)) |
4094
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
5300 return call1 (Vrun_hooks, Qdisabled_command_hook); |
518 | 5301 } |
5302 | |
5303 while (1) | |
5304 { | |
648 | 5305 final = Findirect_function (cmd); |
518 | 5306 |
5307 if (CONSP (final) && (tem = Fcar (final), EQ (tem, Qautoload))) | |
5308 do_autoload (final, cmd); | |
5309 else | |
5310 break; | |
5311 } | |
5312 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5313 if (STRINGP (final) || VECTORP (final)) |
518 | 5314 { |
5315 /* If requested, place the macro in the command history. For | |
5316 other sorts of commands, call-interactively takes care of | |
5317 this. */ | |
5318 if (!NILP (record)) | |
5319 Vcommand_history | |
5320 = Fcons (Fcons (Qexecute_kbd_macro, | |
5321 Fcons (final, Fcons (prefixarg, Qnil))), | |
5322 Vcommand_history); | |
5323 | |
5324 return Fexecute_kbd_macro (final, prefixarg); | |
5325 } | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5326 if (CONSP (final) || SUBRP (final) || COMPILEDP (final)) |
518 | 5327 { |
5328 backtrace.next = backtrace_list; | |
5329 backtrace_list = &backtrace; | |
5330 backtrace.function = &Qcall_interactively; | |
5331 backtrace.args = &cmd; | |
5332 backtrace.nargs = 1; | |
5333 backtrace.evalargs = 0; | |
5334 | |
5335 tem = Fcall_interactively (cmd, record); | |
5336 | |
5337 backtrace_list = backtrace.next; | |
5338 return tem; | |
5339 } | |
5340 return Qnil; | |
5341 } | |
5342 | |
5343 DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command, | |
5344 1, 1, "P", | |
5345 "Read function name, then read its arguments and call it.") | |
5346 (prefixarg) | |
5347 Lisp_Object prefixarg; | |
5348 { | |
5349 Lisp_Object function; | |
5350 char buf[40]; | |
5351 Lisp_Object saved_keys; | |
5352 struct gcpro gcpro1; | |
5353 | |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
5354 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
|
5355 XVECTOR (this_command_keys)->contents); |
518 | 5356 buf[0] = 0; |
5357 GCPRO1 (saved_keys); | |
5358 | |
5359 if (EQ (prefixarg, Qminus)) | |
5360 strcpy (buf, "- "); | |
5361 else if (CONSP (prefixarg) && XINT (XCONS (prefixarg)->car) == 4) | |
5362 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
|
5363 else if (CONSP (prefixarg) && INTEGERP (XCONS (prefixarg)->car)) |
518 | 5364 sprintf (buf, "%d ", XINT (XCONS (prefixarg)->car)); |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5365 else if (INTEGERP (prefixarg)) |
518 | 5366 sprintf (buf, "%d ", XINT (prefixarg)); |
5367 | |
5368 /* This isn't strictly correct if execute-extended-command | |
5369 is bound to anything else. Perhaps it should use | |
5370 this_command_keys? */ | |
5371 strcat (buf, "M-x "); | |
5372 | |
5373 /* Prompt with buf, and then read a string, completing from and | |
5374 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
|
5375 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
|
5376 history list. */ |
518 | 5377 function = Fcompleting_read (build_string (buf), |
5378 Vobarray, Qcommandp, | |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
5379 Qt, Qnil, Qextended_command_history); |
518 | 5380 |
708 | 5381 /* Set this_command_keys to the concatenation of saved_keys and |
5382 function, followed by a RET. */ | |
518 | 5383 { |
708 | 5384 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
|
5385 Lisp_Object *keys; |
518 | 5386 int i; |
5387 Lisp_Object tem; | |
5388 | |
708 | 5389 this_command_key_count = 0; |
5390 | |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
5391 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
|
5392 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
|
5393 add_command_key (keys[i]); |
708 | 5394 |
5395 str = XSTRING (function); | |
5396 for (i = 0; i < str->size; i++) | |
5397 { | |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
5398 XSETFASTINT (tem, str->data[i]); |
708 | 5399 add_command_key (tem); |
5400 } | |
5401 | |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
5402 XSETFASTINT (tem, '\015'); |
708 | 5403 add_command_key (tem); |
518 | 5404 } |
5405 | |
5406 UNGCPRO; | |
5407 | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5408 function = Fintern (function, Qnil); |
518 | 5409 Vprefix_arg = prefixarg; |
5410 this_command = function; | |
5411 | |
5412 return Fcommand_execute (function, Qt); | |
5413 } | |
5414 | |
5415 | |
5416 detect_input_pending () | |
5417 { | |
5418 if (!input_pending) | |
5419 get_input_pending (&input_pending); | |
5420 | |
5421 return input_pending; | |
5422 } | |
5423 | |
648 | 5424 /* This is called in some cases before a possible quit. |
5425 It cases the next call to detect_input_pending to recompute input_pending. | |
5426 So calling this function unnecessarily can't do any harm. */ | |
5427 clear_input_pending () | |
5428 { | |
5429 input_pending = 0; | |
5430 } | |
5431 | |
518 | 5432 DEFUN ("input-pending-p", Finput_pending_p, Sinput_pending_p, 0, 0, 0, |
5433 "T if command input is currently available with no waiting.\n\ | |
5434 Actually, the value is nil only if we can be sure that no input is available.") | |
5435 () | |
5436 { | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
5437 if (!NILP (Vunread_command_events) || unread_command_char != -1) |
518 | 5438 return (Qt); |
5439 | |
5440 return detect_input_pending () ? Qt : Qnil; | |
5441 } | |
5442 | |
5443 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
|
5444 "Return vector of last 100 events, not counting those from keyboard macros.") |
518 | 5445 () |
5446 { | |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
5447 Lisp_Object *keys = XVECTOR (recent_keys)->contents; |
518 | 5448 Lisp_Object val; |
5449 | |
5450 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
|
5451 return Fvector (total_keys, keys); |
518 | 5452 else |
5453 { | |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
5454 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
|
5455 bcopy (keys + recent_keys_index, |
518 | 5456 XVECTOR (val)->contents, |
5457 (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
|
5458 bcopy (keys, |
518 | 5459 XVECTOR (val)->contents + NUM_RECENT_KEYS - recent_keys_index, |
5460 recent_keys_index * sizeof (Lisp_Object)); | |
5461 return val; | |
5462 } | |
5463 } | |
5464 | |
5465 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
|
5466 "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
|
5467 The value is a string or a vector.") |
518 | 5468 () |
5469 { | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5470 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
|
5471 XVECTOR (this_command_keys)->contents); |
518 | 5472 } |
5473 | |
5474 DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0, | |
5475 "Return the current depth in recursive edits.") | |
5476 () | |
5477 { | |
5478 Lisp_Object temp; | |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
5479 XSETFASTINT (temp, command_loop_level + minibuf_level); |
518 | 5480 return temp; |
5481 } | |
5482 | |
5483 DEFUN ("open-dribble-file", Fopen_dribble_file, Sopen_dribble_file, 1, 1, | |
5484 "FOpen dribble file: ", | |
1888
86ff3942d7e1
(Fopen_dribble_file): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
1842
diff
changeset
|
5485 "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
|
5486 If FILE is nil, close any open dribble file.") |
518 | 5487 (file) |
5488 Lisp_Object file; | |
5489 { | |
5490 if (NILP (file)) | |
5491 { | |
5492 fclose (dribble); | |
5493 dribble = 0; | |
5494 } | |
5495 else | |
5496 { | |
5497 file = Fexpand_file_name (file, Qnil); | |
5498 dribble = fopen (XSTRING (file)->data, "w"); | |
5499 } | |
5500 return Qnil; | |
5501 } | |
5502 | |
5503 DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0, | |
5504 "Discard the contents of the terminal input buffer.\n\ | |
5505 Also cancel any kbd macro being defined.") | |
5506 () | |
5507 { | |
5508 defining_kbd_macro = 0; | |
5509 update_mode_lines++; | |
5510 | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
5511 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
|
5512 unread_command_char = -1; |
518 | 5513 |
5514 discard_tty_input (); | |
5515 | |
1654
fe6f6e55182f
* keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents:
1590
diff
changeset
|
5516 /* 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
|
5517 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
|
5518 with that? */ |
fe6f6e55182f
* keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents:
1590
diff
changeset
|
5519 kbd_fetch_ptr = (struct input_event *) kbd_store_ptr; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5520 Ffillarray (kbd_buffer_frame_or_window, Qnil); |
518 | 5521 input_pending = 0; |
5522 | |
5523 return Qnil; | |
5524 } | |
5525 | |
5526 DEFUN ("suspend-emacs", Fsuspend_emacs, Ssuspend_emacs, 0, 1, "", | |
5527 "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
|
5528 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
|
5529 control, run a subshell instead.\n\n\ |
518 | 5530 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
|
5531 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
|
5532 \n\ |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
5533 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
|
5534 After resumption run the normal hook `suspend-resume-hook'.\n\ |
518 | 5535 \n\ |
5536 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
|
5537 On such systems, Emacs starts a subshell instead of suspending.") |
518 | 5538 (stuffstring) |
5539 Lisp_Object stuffstring; | |
5540 { | |
1895
b497a7ec0d58
(Fsuspend_emacs): Make tem not register.
Richard M. Stallman <rms@gnu.org>
parents:
1891
diff
changeset
|
5541 Lisp_Object tem; |
518 | 5542 int count = specpdl_ptr - specpdl; |
5543 int old_height, old_width; | |
5544 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
|
5545 struct gcpro gcpro1, gcpro2; |
518 | 5546 extern init_sys_modes (); |
5547 | |
5548 if (!NILP (stuffstring)) | |
5549 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
|
5550 |
2338
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
5551 /* Run the functions in suspend-hook. */ |
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
5552 if (!NILP (Vrun_hooks)) |
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
5553 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
|
5554 |
518 | 5555 GCPRO1 (stuffstring); |
765 | 5556 get_frame_size (&old_width, &old_height); |
518 | 5557 reset_sys_modes (); |
5558 /* sys_suspend can get an error if it tries to fork a subshell | |
5559 and the system resources aren't available for that. */ | |
5560 record_unwind_protect (init_sys_modes, 0); | |
5561 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
|
5562 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
|
5563 sys_subshell (); |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
5564 else |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
5565 sys_suspend (); |
518 | 5566 unbind_to (count, Qnil); |
5567 | |
5568 /* Check if terminal/window size has changed. | |
5569 Note that this is not useful when we are running directly | |
5570 with a window system; but suspend should be disabled in that case. */ | |
765 | 5571 get_frame_size (&width, &height); |
518 | 5572 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
|
5573 change_frame_size (selected_frame, height, width, 0, 0); |
518 | 5574 |
2338
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
5575 /* Run suspend-resume-hook. */ |
518 | 5576 if (!NILP (Vrun_hooks)) |
5577 call1 (Vrun_hooks, intern ("suspend-resume-hook")); | |
5578 | |
5579 UNGCPRO; | |
5580 return Qnil; | |
5581 } | |
5582 | |
5583 /* 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
|
5584 Then in any case stuff anything Emacs has read ahead and not used. */ |
518 | 5585 |
5586 stuff_buffered_input (stuffstring) | |
5587 Lisp_Object stuffstring; | |
5588 { | |
5589 register unsigned char *p; | |
5590 | |
5591 /* stuff_char works only in BSD, versions 4.2 and up. */ | |
5592 #ifdef BSD | |
5593 #ifndef BSD4_1 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5594 if (STRINGP (stuffstring)) |
518 | 5595 { |
5596 register int count; | |
5597 | |
5598 p = XSTRING (stuffstring)->data; | |
5599 count = XSTRING (stuffstring)->size; | |
5600 while (count-- > 0) | |
5601 stuff_char (*p++); | |
5602 stuff_char ('\n'); | |
5603 } | |
5604 /* Anything we have read ahead, put back for the shell to read. */ | |
5605 while (kbd_fetch_ptr != kbd_store_ptr) | |
5606 { | |
5607 if (kbd_fetch_ptr == kbd_buffer + KBD_BUFFER_SIZE) | |
5608 kbd_fetch_ptr = kbd_buffer; | |
5609 if (kbd_fetch_ptr->kind == ascii_keystroke) | |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5610 stuff_char (kbd_fetch_ptr->code); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5611 kbd_fetch_ptr->kind = no_event; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5612 (XVECTOR (kbd_buffer_frame_or_window)->contents[kbd_fetch_ptr |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5613 - kbd_buffer] |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5614 = Qnil); |
518 | 5615 kbd_fetch_ptr++; |
5616 } | |
5617 input_pending = 0; | |
5618 #endif | |
5619 #endif /* BSD and not BSD4_1 */ | |
5620 } | |
5621 | |
648 | 5622 set_waiting_for_input (time_to_clear) |
5623 EMACS_TIME *time_to_clear; | |
518 | 5624 { |
648 | 5625 input_available_clear_time = time_to_clear; |
518 | 5626 |
5627 /* Tell interrupt_signal to throw back to read_char, */ | |
5628 waiting_for_input = 1; | |
5629 | |
5630 /* If interrupt_signal was called before and buffered a C-g, | |
5631 make it run again now, to avoid timing error. */ | |
5632 if (!NILP (Vquit_flag)) | |
5633 quit_throw_to_read_char (); | |
5634 } | |
5635 | |
5636 clear_waiting_for_input () | |
5637 { | |
5638 /* Tell interrupt_signal not to throw back to read_char, */ | |
5639 waiting_for_input = 0; | |
648 | 5640 input_available_clear_time = 0; |
518 | 5641 } |
5642 | |
5643 /* This routine is called at interrupt level in response to C-G. | |
5644 If interrupt_input, this is the handler for SIGINT. | |
5645 Otherwise, it is called from kbd_buffer_store_event, | |
5646 in handling SIGIO or SIGTINT. | |
5647 | |
5648 If `waiting_for_input' is non zero, then unless `echoing' is nonzero, | |
5649 immediately throw back to read_char. | |
5650 | |
5651 Otherwise it sets the Lisp variable quit-flag not-nil. | |
5652 This causes eval to throw, when it gets a chance. | |
5653 If quit-flag is already non-nil, it stops the job right away. */ | |
5654 | |
5655 SIGTYPE | |
5656 interrupt_signal () | |
5657 { | |
5658 char c; | |
5659 /* Must preserve main program's value of errno. */ | |
5660 int old_errno = errno; | |
5661 | |
5662 #ifdef USG | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5663 if (!read_socket_hook && NILP (Vwindow_system)) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5664 { |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5665 /* USG systems forget handlers when they are used; |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5666 must reestablish each time */ |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5667 signal (SIGINT, interrupt_signal); |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5668 signal (SIGQUIT, interrupt_signal); |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5669 } |
518 | 5670 #endif /* USG */ |
5671 | |
5672 cancel_echoing (); | |
5673 | |
966
eb74884fc95a
* keyboard.c (Fsuspend_emacs): Call change_frame_size with the
Jim Blandy <jimb@redhat.com>
parents:
939
diff
changeset
|
5674 if (!NILP (Vquit_flag) && FRAME_TERMCAP_P (selected_frame)) |
518 | 5675 { |
5676 fflush (stdout); | |
5677 reset_sys_modes (); | |
5678 sigfree (); | |
5679 #ifdef SIGTSTP /* Support possible in later USG versions */ | |
5680 /* | |
5681 * On systems which can suspend the current process and return to the original | |
5682 * shell, this command causes the user to end up back at the shell. | |
5683 * The "Auto-save" and "Abort" questions are not asked until | |
5684 * the user elects to return to emacs, at which point he can save the current | |
5685 * job and either dump core or continue. | |
5686 */ | |
5687 sys_suspend (); | |
5688 #else | |
5689 #ifdef VMS | |
5690 if (sys_suspend () == -1) | |
5691 { | |
5692 printf ("Not running as a subprocess;\n"); | |
5693 printf ("you can continue or abort.\n"); | |
5694 } | |
5695 #else /* not VMS */ | |
5696 /* Perhaps should really fork an inferior shell? | |
5697 But that would not provide any way to get back | |
5698 to the original shell, ever. */ | |
5699 printf ("No support for stopping a process on this operating system;\n"); | |
5700 printf ("you can continue or abort.\n"); | |
5701 #endif /* not VMS */ | |
5702 #endif /* not SIGTSTP */ | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5703 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5704 /* 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
|
5705 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
|
5706 cursor_to (0, 0); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5707 #endif |
518 | 5708 printf ("Auto-save? (y or n) "); |
5709 fflush (stdout); | |
5710 if (((c = getchar ()) & ~040) == 'Y') | |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
5711 { |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
5712 Fdo_auto_save (Qt, Qnil); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5713 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5714 printf ("\r\nAuto-save done"); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5715 #else /* not MSDOS */ |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
5716 printf ("Auto-save done\n"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5717 #endif /* not MSDOS */ |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
5718 } |
518 | 5719 while (c != '\n') c = getchar (); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5720 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5721 printf ("\r\nAbort? (y or n) "); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5722 #else /* not MSDOS */ |
518 | 5723 #ifdef VMS |
5724 printf ("Abort (and enter debugger)? (y or n) "); | |
5725 #else /* not VMS */ | |
5726 printf ("Abort (and dump core)? (y or n) "); | |
5727 #endif /* not VMS */ | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5728 #endif /* not MSDOS */ |
518 | 5729 fflush (stdout); |
5730 if (((c = getchar ()) & ~040) == 'Y') | |
5731 abort (); | |
5732 while (c != '\n') c = getchar (); | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5733 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5734 printf ("\r\nContinuing...\r\n"); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5735 #else /* not MSDOS */ |
518 | 5736 printf ("Continuing...\n"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5737 #endif /* not MSDOS */ |
518 | 5738 fflush (stdout); |
5739 init_sys_modes (); | |
5740 } | |
5741 else | |
5742 { | |
5743 /* If executing a function that wants to be interrupted out of | |
5744 and the user has not deferred quitting by binding `inhibit-quit' | |
5745 then quit right away. */ | |
5746 if (immediate_quit && NILP (Vinhibit_quit)) | |
5747 { | |
5748 immediate_quit = 0; | |
5749 sigfree (); | |
5750 Fsignal (Qquit, Qnil); | |
5751 } | |
5752 else | |
5753 /* Else request quit when it's safe */ | |
5754 Vquit_flag = Qt; | |
5755 } | |
5756 | |
5757 if (waiting_for_input && !echoing) | |
5758 quit_throw_to_read_char (); | |
5759 | |
5760 errno = old_errno; | |
5761 } | |
5762 | |
5763 /* Handle a C-g by making read_char return C-g. */ | |
5764 | |
5765 quit_throw_to_read_char () | |
5766 { | |
5767 quit_error_check (); | |
5768 sigfree (); | |
5769 /* Prevent another signal from doing this before we finish. */ | |
650 | 5770 clear_waiting_for_input (); |
518 | 5771 input_pending = 0; |
5772 | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
5773 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
|
5774 unread_command_char = -1; |
518 | 5775 |
2340
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
5776 #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
|
5777 /* 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
|
5778 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
|
5779 abort (); |
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
5780 #endif |
5178
e2ebd4e12279
(quit_throw_to_read_char):
Richard M. Stallman <rms@gnu.org>
parents:
5133
diff
changeset
|
5781 #ifdef MULTI_FRAME |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5782 if (FRAMEP (internal_last_event_frame) |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5783 && XFRAME (internal_last_event_frame) != selected_frame) |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
5784 Fhandle_switch_frame (make_lispy_switch_frame (internal_last_event_frame)); |
5178
e2ebd4e12279
(quit_throw_to_read_char):
Richard M. Stallman <rms@gnu.org>
parents:
5133
diff
changeset
|
5785 #endif |
2340
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
5786 |
518 | 5787 _longjmp (getcjmp, 1); |
5788 } | |
5789 | |
5790 DEFUN ("set-input-mode", Fset_input_mode, Sset_input_mode, 3, 4, 0, | |
5791 "Set mode of reading keyboard input.\n\ | |
695
e3fac20d3015
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
691
diff
changeset
|
5792 First arg INTERRUPT non-nil means use input interrupts;\n\ |
e3fac20d3015
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
691
diff
changeset
|
5793 nil means use CBREAK mode.\n\ |
e3fac20d3015
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
691
diff
changeset
|
5794 Second arg FLOW non-nil means use ^S/^Q flow control for output to terminal\n\ |
518 | 5795 (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
|
5796 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
|
5797 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
|
5798 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
|
5799 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
|
5800 See also `current-input-mode'.") |
518 | 5801 (interrupt, flow, meta, quit) |
5802 Lisp_Object interrupt, flow, meta, quit; | |
5803 { | |
5804 if (!NILP (quit) | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5805 && (!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
|
5806 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
|
5807 |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
5808 #ifdef POLL_FOR_INPUT |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
5809 stop_polling (); |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
5810 #endif |
518 | 5811 |
5812 reset_sys_modes (); | |
5813 #ifdef SIGIO | |
5814 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
5815 #ifdef NO_SOCK_SIGIO | |
5816 if (read_socket_hook) | |
5817 interrupt_input = 0; /* No interrupts if reading from a socket. */ | |
5818 else | |
5819 #endif /* NO_SOCK_SIGIO */ | |
5820 interrupt_input = !NILP (interrupt); | |
5821 #else /* not SIGIO */ | |
5822 interrupt_input = 0; | |
5823 #endif /* not SIGIO */ | |
5824 /* Our VMS input only works by interrupts, as of now. */ | |
5825 #ifdef VMS | |
5826 interrupt_input = 1; | |
5827 #endif | |
5828 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
|
5829 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
|
5830 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
|
5831 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
|
5832 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
|
5833 else |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
5834 meta_key = 2; |
518 | 5835 if (!NILP (quit)) |
5836 /* Don't let this value be out of range. */ | |
5837 quit_char = XINT (quit) & (meta_key ? 0377 : 0177); | |
5838 | |
5839 init_sys_modes (); | |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
5840 |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
5841 #ifdef POLL_FOR_INPUT |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
5842 poll_suppress_count = 1; |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
5843 start_polling (); |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
5844 #endif |
518 | 5845 return Qnil; |
5846 } | |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5847 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5848 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
|
5849 "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
|
5850 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
|
5851 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
|
5852 nil, Emacs is using CBREAK mode.\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5853 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
|
5854 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
|
5855 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
|
5856 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
|
5857 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
|
5858 all 8 bits as the character code.\n\ |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5859 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
|
5860 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
|
5861 `set-input-mode'.") |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5862 () |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5863 { |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5864 Lisp_Object val[4]; |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5865 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5866 val[0] = interrupt_input ? Qt : Qnil; |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5867 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
|
5868 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
|
5869 XSETFASTINT (val[3], quit_char); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5870 |
3116
05c3ef28bb6b
(Fcurrent_input_mode): Fix the call to Flist.
Richard M. Stallman <rms@gnu.org>
parents:
3104
diff
changeset
|
5871 return Flist (sizeof (val) / sizeof (val[0]), val); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5872 } |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5873 |
518 | 5874 |
5875 init_keyboard () | |
5876 { | |
5877 /* This is correct before outermost invocation of the editor loop */ | |
5878 command_loop_level = -1; | |
5879 immediate_quit = 0; | |
5880 quit_char = Ctl ('g'); | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
5881 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
|
5882 unread_command_char = -1; |
518 | 5883 total_keys = 0; |
1262
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
5884 recent_keys_index = 0; |
518 | 5885 kbd_fetch_ptr = kbd_buffer; |
5886 kbd_store_ptr = kbd_buffer; | |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
5887 do_mouse_tracking = Qnil; |
518 | 5888 input_pending = 0; |
5889 | |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
5890 #ifdef MULTI_FRAME |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
5891 /* This means that command_loop_1 won't try to select anything the first |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
5892 time through. */ |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
5893 internal_last_event_frame = Qnil; |
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
5894 Vlast_event_frame = internal_last_event_frame; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5895 #endif |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5896 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5897 /* If we're running a dumped Emacs, we need to clear out |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5898 kbd_buffer_frame_or_window, in case some events got into it |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5899 before we dumped. |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5900 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5901 If we're running an undumped Emacs, it hasn't been initialized by |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5902 syms_of_keyboard yet. */ |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5903 if (initialized) |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5904 Ffillarray (kbd_buffer_frame_or_window, Qnil); |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
5905 |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5906 if (!noninteractive && !read_socket_hook && NILP (Vwindow_system)) |
518 | 5907 { |
5908 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
|
5909 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS) |
518 | 5910 /* For systems with SysV TERMIO, C-g is set up for both SIGINT and |
5911 SIGQUIT and we can't tell which one it will give us. */ | |
5912 signal (SIGQUIT, interrupt_signal); | |
5913 #endif /* HAVE_TERMIO */ | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5914 } |
518 | 5915 /* Note SIGIO has been undef'd if FIONREAD is missing. */ |
5916 #ifdef SIGIO | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5917 if (!noninteractive) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
5918 signal (SIGIO, input_available_signal); |
1008
f1df63f98e5c
* keyboard.c (init_keyboard): Changed "#endif SIGIO" to
Jim Blandy <jimb@redhat.com>
parents:
985
diff
changeset
|
5919 #endif /* SIGIO */ |
518 | 5920 |
5921 /* Use interrupt input by default, if it works and noninterrupt input | |
5922 has deficiencies. */ | |
5923 | |
5924 #ifdef INTERRUPT_INPUT | |
5925 interrupt_input = 1; | |
5926 #else | |
5927 interrupt_input = 0; | |
5928 #endif | |
5929 | |
5930 /* Our VMS input only works by interrupts, as of now. */ | |
5931 #ifdef VMS | |
5932 interrupt_input = 1; | |
5933 #endif | |
5934 | |
5935 sigfree (); | |
5936 dribble = 0; | |
5937 | |
5938 if (keyboard_init_hook) | |
5939 (*keyboard_init_hook) (); | |
5940 | |
5941 #ifdef POLL_FOR_INPUT | |
5942 poll_suppress_count = 1; | |
5943 start_polling (); | |
5944 #endif | |
5945 } | |
5946 | |
5947 /* This type's only use is in syms_of_keyboard, to initialize the | |
5948 event header symbols and put properties on them. */ | |
5949 struct event_head { | |
5950 Lisp_Object *var; | |
5951 char *name; | |
5952 Lisp_Object *kind; | |
5953 }; | |
5954 | |
5955 struct event_head head_table[] = { | |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5956 &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
|
5957 &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
|
5958 &Qswitch_frame, "switch-frame", &Qswitch_frame, |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
5959 &Qdelete_frame, "delete-frame", &Qdelete_frame, |
518 | 5960 }; |
5961 | |
5962 syms_of_keyboard () | |
5963 { | |
4094
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
5964 Qdisabled_command_hook = intern ("disabled-command-hook"); |
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
5965 staticpro (&Qdisabled_command_hook); |
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
5966 |
518 | 5967 Qself_insert_command = intern ("self-insert-command"); |
5968 staticpro (&Qself_insert_command); | |
5969 | |
5970 Qforward_char = intern ("forward-char"); | |
5971 staticpro (&Qforward_char); | |
5972 | |
5973 Qbackward_char = intern ("backward-char"); | |
5974 staticpro (&Qbackward_char); | |
5975 | |
5976 Qdisabled = intern ("disabled"); | |
5977 staticpro (&Qdisabled); | |
5978 | |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5979 Qundefined = intern ("undefined"); |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5980 staticpro (&Qundefined); |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
5981 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5982 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
|
5983 staticpro (&Qpre_command_hook); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5984 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5985 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
|
5986 staticpro (&Qpost_command_hook); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5987 |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
5988 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
|
5989 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
|
5990 |
518 | 5991 Qfunction_key = intern ("function-key"); |
5992 staticpro (&Qfunction_key); | |
1322
5f327f1dddd3
* keyboard.c (modify_event_symbol): Make sure that the unmodified
Jim Blandy <jimb@redhat.com>
parents:
1310
diff
changeset
|
5993 Qmouse_click = intern ("mouse-click"); |
518 | 5994 staticpro (&Qmouse_click); |
5995 | |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
5996 Qmenu_enable = intern ("menu-enable"); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
5997 staticpro (&Qmenu_enable); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
5998 |
518 | 5999 Qmode_line = intern ("mode-line"); |
6000 staticpro (&Qmode_line); | |
732 | 6001 Qvertical_line = intern ("vertical-line"); |
6002 staticpro (&Qvertical_line); | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
6003 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
|
6004 staticpro (&Qvertical_scroll_bar); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6005 Qmenu_bar = intern ("menu-bar"); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6006 staticpro (&Qmenu_bar); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6007 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6008 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
|
6009 staticpro (&Qabove_handle); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6010 Qhandle = intern ("handle"); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6011 staticpro (&Qhandle); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6012 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
|
6013 staticpro (&Qbelow_handle); |
518 | 6014 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6015 Qevent_kind = intern ("event-kind"); |
518 | 6016 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
|
6017 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
|
6018 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
|
6019 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
|
6020 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
|
6021 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
|
6022 staticpro (&Qmodifier_cache); |
518 | 6023 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
6024 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
|
6025 staticpro (&Qrecompute_lucid_menubar); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
6026 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
|
6027 staticpro (&Qactivate_menubar_hook); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
6028 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
6029 Qpolling_period = intern ("polling-period"); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
6030 staticpro (&Qpolling_period); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
6031 |
518 | 6032 { |
6033 struct event_head *p; | |
6034 | |
6035 for (p = head_table; | |
6036 p < head_table + (sizeof (head_table) / sizeof (head_table[0])); | |
6037 p++) | |
6038 { | |
6039 *p->var = intern (p->name); | |
6040 staticpro (p->var); | |
6041 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
|
6042 Fput (*p->var, Qevent_symbol_elements, Fcons (*p->var, Qnil)); |
518 | 6043 } |
6044 } | |
6045 | |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6046 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
|
6047 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
|
6048 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
6049 { |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
6050 int i; |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
6051 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
|
6052 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
6053 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
|
6054 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
|
6055 if (modifier_names[i]) |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6056 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
|
6057 staticpro (&modifier_symbols); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
6058 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
6059 |
1262
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
6060 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
|
6061 staticpro (&recent_keys); |
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
6062 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
6063 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
|
6064 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
|
6065 |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
6066 Qextended_command_history = intern ("extended-command-history"); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
6067 Fset (Qextended_command_history, Qnil); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
6068 staticpro (&Qextended_command_history); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
6069 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6070 kbd_buffer_frame_or_window |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6071 = Fmake_vector (make_number (KBD_BUFFER_SIZE), Qnil); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6072 staticpro (&kbd_buffer_frame_or_window); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6073 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
6074 accent_key_syms = Qnil; |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
6075 staticpro (&accent_key_syms); |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
6076 |
518 | 6077 func_key_syms = Qnil; |
6078 staticpro (&func_key_syms); | |
6079 | |
6893
b97b29f3ea7a
(syms_of_keyboard): Init and staticpro system_key_syms.
Richard M. Stallman <rms@gnu.org>
parents:
6891
diff
changeset
|
6080 system_key_syms = Qnil; |
b97b29f3ea7a
(syms_of_keyboard): Init and staticpro system_key_syms.
Richard M. Stallman <rms@gnu.org>
parents:
6891
diff
changeset
|
6081 staticpro (&system_key_syms); |
b97b29f3ea7a
(syms_of_keyboard): Init and staticpro system_key_syms.
Richard M. Stallman <rms@gnu.org>
parents:
6891
diff
changeset
|
6082 |
518 | 6083 mouse_syms = Qnil; |
6084 staticpro (&mouse_syms); | |
6085 | |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6086 unread_switch_frame = Qnil; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6087 staticpro (&unread_switch_frame); |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6088 |
518 | 6089 defsubr (&Sread_key_sequence); |
6090 defsubr (&Srecursive_edit); | |
6091 defsubr (&Strack_mouse); | |
6092 defsubr (&Sinput_pending_p); | |
6093 defsubr (&Scommand_execute); | |
6094 defsubr (&Srecent_keys); | |
6095 defsubr (&Sthis_command_keys); | |
6096 defsubr (&Ssuspend_emacs); | |
6097 defsubr (&Sabort_recursive_edit); | |
6098 defsubr (&Sexit_recursive_edit); | |
6099 defsubr (&Srecursion_depth); | |
6100 defsubr (&Stop_level); | |
6101 defsubr (&Sdiscard_input); | |
6102 defsubr (&Sopen_dribble_file); | |
6103 defsubr (&Sset_input_mode); | |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6104 defsubr (&Scurrent_input_mode); |
518 | 6105 defsubr (&Sexecute_extended_command); |
6106 | |
6107 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
|
6108 "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
|
6109 |
8039
7cc73292df36
(syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents:
7999
diff
changeset
|
6110 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
|
6111 "Last input event that was part of a command."); |
518 | 6112 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6113 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
|
6114 "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
|
6115 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
|
6116 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
|
6117 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
|
6118 |
518 | 6119 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
|
6120 "Last input event."); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6121 |
8039
7cc73292df36
(syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents:
7999
diff
changeset
|
6122 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
|
6123 "Last input event."); |
518 | 6124 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
6125 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
|
6126 "List of objects to be read as next command input events."); |
518 | 6127 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6128 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
|
6129 "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
|
6130 |
518 | 6131 DEFVAR_LISP ("meta-prefix-char", &meta_prefix_char, |
6132 "Meta-prefix character code. Meta-foo as command input\n\ | |
6133 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
|
6134 XSETINT (meta_prefix_char, 033); |
518 | 6135 |
6136 DEFVAR_LISP ("last-command", &last_command, | |
6137 "The last command executed. Normally a symbol with a function definition,\n\ | |
6138 but can be whatever was found in the keymap, or whatever the variable\n\ | |
6139 `this-command' was set to by that command."); | |
6140 last_command = Qnil; | |
6141 | |
6142 DEFVAR_LISP ("this-command", &this_command, | |
6143 "The command now being executed.\n\ | |
6144 The command can set this variable; whatever is put here\n\ | |
6145 will be in `last-command' during the following command."); | |
6146 this_command = Qnil; | |
6147 | |
6148 DEFVAR_INT ("auto-save-interval", &auto_save_interval, | |
6149 "*Number of keyboard input characters between auto-saves.\n\ | |
6150 Zero means disable autosaving due to number of characters typed."); | |
6151 auto_save_interval = 300; | |
6152 | |
6153 DEFVAR_LISP ("auto-save-timeout", &Vauto_save_timeout, | |
6154 "*Number of seconds idle time before auto-save.\n\ | |
687
e2b747dd6a6e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
682
diff
changeset
|
6155 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
|
6156 After auto-saving due to this many seconds of idle time,\n\ |
701 | 6157 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
|
6158 XSETFASTINT (Vauto_save_timeout, 30); |
518 | 6159 |
6160 DEFVAR_INT ("echo-keystrokes", &echo_keystrokes, | |
6161 "*Nonzero means echo unfinished commands after this many seconds of pause."); | |
6162 echo_keystrokes = 1; | |
6163 | |
6164 DEFVAR_INT ("polling-period", &polling_period, | |
6165 "*Interval between polling for input during Lisp execution.\n\ | |
6166 The reason for polling is to make C-g work to stop a running program.\n\ | |
6167 Polling is needed only when using X windows and SIGIO does not work.\n\ | |
6168 Polling is automatically disabled in all other cases."); | |
6169 polling_period = 2; | |
6170 | |
3993
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
6171 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
|
6172 "*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
|
6173 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
|
6174 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
|
6175 by position only."); |
3994
df443e5f391e
Fix initialization of Vdouble_click_time in syms_of_keyboard.
Jim Blandy <jimb@redhat.com>
parents:
3993
diff
changeset
|
6176 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
|
6177 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
6178 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
|
6179 "*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
|
6180 inhibit_local_menu_bar_menus = 0; |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
6181 |
518 | 6182 DEFVAR_INT ("num-input-keys", &num_input_keys, |
6183 "*Number of complete keys read from the keyboard so far."); | |
6184 num_input_keys = 0; | |
6185 | |
765 | 6186 DEFVAR_LISP ("last-event-frame", &Vlast_event_frame, |
1239
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
6187 "*The frame in which the most recently read event occurred.\n\ |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
6188 If the last event came from a keyboard macro, this is set to `macro'."); |
765 | 6189 Vlast_event_frame = Qnil; |
518 | 6190 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6191 DEFVAR_LISP ("help-char", &Vhelp_char, |
518 | 6192 "Character to recognize as meaning Help.\n\ |
6193 When it is read, do `(eval help-form)', and display result if it's a string.\n\ | |
6194 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
|
6195 XSETINT (Vhelp_char, Ctl ('H')); |
518 | 6196 |
6197 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
|
6198 "Form to execute when character `help-char' is read.\n\ |
518 | 6199 If the form returns a string, that string is displayed.\n\ |
6200 If `help-form' is nil, the help char is not recognized."); | |
6201 Vhelp_form = Qnil; | |
6202 | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6203 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
|
6204 "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
|
6205 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
|
6206 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
|
6207 Vprefix_help_command = Qnil; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
6208 |
518 | 6209 DEFVAR_LISP ("top-level", &Vtop_level, |
6210 "Form to evaluate when Emacs starts up.\n\ | |
6211 Useful to set before you dump a modified Emacs."); | |
6212 Vtop_level = Qnil; | |
6213 | |
6214 DEFVAR_LISP ("keyboard-translate-table", &Vkeyboard_translate_table, | |
6215 "String used as translate table for keyboard input, or nil.\n\ | |
6216 Each character is looked up in this string and the contents used instead.\n\ | |
6217 If string is of length N, character codes N and up are untranslated."); | |
6218 Vkeyboard_translate_table = Qnil; | |
6219 | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6220 DEFVAR_LISP ("key-translation-map", &Vkey_translation_map, |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6221 "Keymap of key translations that can override keymaps.\n\ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6222 This keymap works like `function-key-map', but comes after that,\n\ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6223 and applies even for keys that have ordinary bindings."); |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6224 Vkey_translation_map = Qnil; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
6225 |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
6226 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
|
6227 "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
|
6228 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
|
6229 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
|
6230 |
518 | 6231 DEFVAR_BOOL ("menu-prompting", &menu_prompting, |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6232 "Non-nil means prompt with menus when appropriate.\n\ |
518 | 6233 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
|
6234 for elements that have prompt strings.\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6235 The menu is displayed on the screen\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6236 if X menus were enabled at configuration\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
6237 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
|
6238 Otherwise, menu prompting uses the echo area."); |
518 | 6239 menu_prompting = 1; |
6240 | |
6241 DEFVAR_LISP ("menu-prompt-more-char", &menu_prompt_more_char, | |
6242 "Character to see next line of menu prompt.\n\ | |
6243 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
|
6244 XSETINT (menu_prompt_more_char, ' '); |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
6245 |
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
6246 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
|
6247 "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
|
6248 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
|
6249 character it reads. For example, after evaluating the expression\n\ |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6250 (setq extra-keyboard-modifiers ?\C-x)\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6251 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
|
6252 \n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6253 Note that the character ?\C-@, equivalent to the integer zero, does\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6254 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
|
6255 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
|
6256 cancels any modification."); |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
6257 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
|
6258 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6259 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
|
6260 "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
|
6261 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
|
6262 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
|
6263 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
|
6264 Vdeactivate_mark = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6265 |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
6266 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
|
6267 "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
|
6268 Vcommand_hook_internal = Qnil; |
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
6269 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6270 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
|
6271 "Normal hook run before each command is executed.\n\ |
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
6272 While the hook is run, its value is temporarily set to nil\n\ |
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
6273 to avoid an unbreakable infinite loop if a hook function gets an error.\n\ |
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
6274 As a result, a hook function cannot straightforwardly alter the value of\n\ |
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
6275 `pre-command-hook'. See the Emacs Lisp manual for a way of\n\ |
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
6276 implementing hook functions that alter the set of hook functions."); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6277 Vpre_command_hook = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6278 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6279 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
|
6280 "Normal hook run after each command is executed.\n\ |
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
6281 While the hook is run, its value is temporarily set to nil\n\ |
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
6282 to avoid an unbreakable infinite loop if a hook function gets an error.\n\ |
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
6283 As a result, a hook function cannot straightforwardly alter the value of\n\ |
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
6284 `post-command-hook'. See the Emacs Lisp manual for a way of\n\ |
cc5e8709ab89
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7428
diff
changeset
|
6285 implementing hook functions that alter the set of hook functions."); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
6286 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
|
6287 |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
6288 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
|
6289 "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
|
6290 Vlucid_menu_bar_dirty_flag = Qnil; |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
6291 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
6292 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
|
6293 "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
|
6294 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
|
6295 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
|
6296 |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
6297 DEFVAR_LISP ("overriding-local-map", &Voverriding_local_map, |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
6298 "Keymap that overrides all other local keymaps.\n\ |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
6299 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
|
6300 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
|
6301 Voverriding_local_map = Qnil; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
6302 |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
6303 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
|
6304 "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
|
6305 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
|
6306 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
|
6307 Voverriding_local_map_menu_flag = Qnil; |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
6308 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
6309 DEFVAR_BOOL ("track-mouse", &do_mouse_tracking, |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
6310 "*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
|
6311 |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
6312 DEFVAR_LISP ("system-key-alist", &Vsystem_key_alist, |
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
6313 "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
|
6314 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
|
6315 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
|
6316 and SYMBOL is its name."); |
7868
4951edd1b764
(syms_of_keyboard): Properly init Vsystem_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
7857
diff
changeset
|
6317 Vsystem_key_alist = Qnil; |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
6318 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
6319 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
|
6320 "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
|
6321 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
|
6322 Vdeferred_action_list = Qnil; |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
6323 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
6324 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
|
6325 "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
|
6326 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
|
6327 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
|
6328 Vdeferred_action_function = Qnil; |
518 | 6329 } |
6330 | |
6331 keys_of_keyboard () | |
6332 { | |
6333 initial_define_key (global_map, Ctl ('Z'), "suspend-emacs"); | |
6334 initial_define_key (control_x_map, Ctl ('Z'), "suspend-emacs"); | |
6335 initial_define_key (meta_map, Ctl ('C'), "exit-recursive-edit"); | |
6336 initial_define_key (global_map, Ctl (']'), "abort-recursive-edit"); | |
6337 initial_define_key (meta_map, 'x', "execute-extended-command"); | |
6338 } |