Mercurial > emacs
annotate src/keyboard.c @ 31870:42f05d7aadd0
(texinfo-mode): Prevent filling lines
starting with `@def' or `@multitable', in addition to ones
specified by the user in auto-fill-inhibit-regexp.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 25 Sep 2000 11:16:43 +0000 |
parents | 5732e757b20f |
children | 517180d8eccd |
rev | line source |
---|---|
518 | 1 /* Keyboard and mouse input; editor command loop. |
27766
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
2 Copyright (C) 1985,86,87,88,89,93,94,95,96,97,99, 2000 |
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
3 Free Software Foundation, Inc. |
518 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
7 GNU Emacs is free software; you can redistribute it and/or modify | |
8 it under the terms of the GNU General Public License as published by | |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
9 the Free Software Foundation; either version 2, or (at your option) |
518 | 10 any later version. |
11 | |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14079
diff
changeset
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
14079
diff
changeset
|
20 Boston, MA 02111-1307, USA. */ |
518 | 21 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25973
diff
changeset
|
22 #include <config.h> |
518 | 23 #include <signal.h> |
24 #include <stdio.h> | |
25 #include "termchar.h" | |
26 #include "termopts.h" | |
27 #include "lisp.h" | |
28 #include "termhooks.h" | |
29 #include "macros.h" | |
31096
c32ed4f23f34
Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents:
31013
diff
changeset
|
30 #include "keyboard.h" |
765 | 31 #include "frame.h" |
518 | 32 #include "window.h" |
33 #include "commands.h" | |
34 #include "buffer.h" | |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
35 #include "charset.h" |
518 | 36 #include "disptab.h" |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
37 #include "dispextern.h" |
21024 | 38 #include "syntax.h" |
2061 | 39 #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
|
40 #include "blockinput.h" |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
41 #include "puresize.h" |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
42 #include "systime.h" |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
43 #include "atimer.h" |
518 | 44 #include <setjmp.h> |
45 #include <errno.h> | |
46 | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
47 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
48 #include "msdos.h" |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
49 #include <time.h> |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
50 #else /* not MSDOS */ |
562 | 51 #ifndef VMS |
52 #include <sys/ioctl.h> | |
53 #endif | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
54 #endif /* not MSDOS */ |
562 | 55 |
56 #include "syssignal.h" | |
1046
d4b1e5db2b2a
* keyboard.c: Include "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1008
diff
changeset
|
57 #include "systty.h" |
518 | 58 |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
59 #include <sys/types.h> |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
60 #ifdef HAVE_UNISTD_H |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
61 #include <unistd.h> |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
62 #endif |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
63 |
7727
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
64 /* 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
|
65 #ifdef HAVE_X_WINDOWS |
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
66 #include "xterm.h" |
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
67 #endif |
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
68 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
69 #ifdef HAVE_NTGUI |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
70 #include "w32term.h" |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
71 #endif /* HAVE_NTGUI */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
72 |
7807
cd93cee36101
(modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents:
7787
diff
changeset
|
73 /* 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
|
74 #include "systime.h" |
cd93cee36101
(modify_event_symbol): Return nil if out of range.
Richard M. Stallman <rms@gnu.org>
parents:
7787
diff
changeset
|
75 |
31096
c32ed4f23f34
Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents:
31013
diff
changeset
|
76 #ifndef USE_CRT_DLL |
518 | 77 extern int errno; |
31096
c32ed4f23f34
Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents:
31013
diff
changeset
|
78 #endif |
518 | 79 |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
80 /* 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
|
81 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
82 /* 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
|
83 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
|
84 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
85 /* 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
|
86 during the current critical section. */ |
2481
a7a0f89c1f64
* keyboard.c (interrupt_input_blocked, interrupt_input_pending):
Jim Blandy <jimb@redhat.com>
parents:
2439
diff
changeset
|
87 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
|
88 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
89 |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
90 /* File descriptor to use for input. */ |
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
91 extern int input_fd; |
518 | 92 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
93 #ifdef HAVE_WINDOW_SYSTEM |
518 | 94 /* Make all keyboard buffers much bigger when using X windows. */ |
25525
79574d91e925
[macintosh]: Set KBD_BUFFER_SIZE to a smaller value
Richard M. Stallman <rms@gnu.org>
parents:
25374
diff
changeset
|
95 #ifdef macintosh |
79574d91e925
[macintosh]: Set KBD_BUFFER_SIZE to a smaller value
Richard M. Stallman <rms@gnu.org>
parents:
25374
diff
changeset
|
96 /* But not too big (local data > 32K error) if on macintosh */ |
79574d91e925
[macintosh]: Set KBD_BUFFER_SIZE to a smaller value
Richard M. Stallman <rms@gnu.org>
parents:
25374
diff
changeset
|
97 #define KBD_BUFFER_SIZE 512 |
79574d91e925
[macintosh]: Set KBD_BUFFER_SIZE to a smaller value
Richard M. Stallman <rms@gnu.org>
parents:
25374
diff
changeset
|
98 #else |
518 | 99 #define KBD_BUFFER_SIZE 4096 |
25525
79574d91e925
[macintosh]: Set KBD_BUFFER_SIZE to a smaller value
Richard M. Stallman <rms@gnu.org>
parents:
25374
diff
changeset
|
100 #endif |
518 | 101 #else /* No X-windows, character input */ |
102 #define KBD_BUFFER_SIZE 256 | |
103 #endif /* No X-windows */ | |
104 | |
105 /* Following definition copied from eval.c */ | |
106 | |
107 struct backtrace | |
108 { | |
109 struct backtrace *next; | |
110 Lisp_Object *function; | |
111 Lisp_Object *args; /* Points to vector of args. */ | |
112 int nargs; /* length of vector. If nargs is UNEVALLED, | |
113 args points to slot holding list of | |
114 unevalled args */ | |
115 char evalargs; | |
116 }; | |
117 | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
118 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
119 KBOARD *initial_kboard; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
120 KBOARD *current_kboard; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
121 KBOARD *all_kboards; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
122 int single_kboard; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
123 #else |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
124 KBOARD the_only_kboard; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
125 #endif |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
126 |
518 | 127 /* Non-nil disable property on a command means |
128 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
|
129 Lisp_Object Qdisabled, Qdisabled_command_hook; |
518 | 130 |
131 #define NUM_RECENT_KEYS (100) | |
132 int recent_keys_index; /* Index for storing next element into recent_keys */ | |
133 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
|
134 Lisp_Object recent_keys; /* A vector, holding the last 100 keystrokes */ |
518 | 135 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
136 /* 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
|
137 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
|
138 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
|
139 actually mean something. |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
140 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
|
141 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
|
142 int this_command_key_count; |
518 | 143 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
144 /* This vector is used as a buffer to record the events that were actually read |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
145 by read_key_sequence. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
146 Lisp_Object raw_keybuf; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
147 int raw_keybuf_count; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
148 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
149 #define GROW_RAW_KEYBUF \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
150 if (raw_keybuf_count == XVECTOR (raw_keybuf)->size) \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
151 { \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
152 int newsize = 2 * XVECTOR (raw_keybuf)->size; \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
153 Lisp_Object new; \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
154 new = Fmake_vector (make_number (newsize), Qnil); \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
155 bcopy (XVECTOR (raw_keybuf)->contents, XVECTOR (new)->contents, \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
156 raw_keybuf_count * sizeof (Lisp_Object)); \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
157 raw_keybuf = new; \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
158 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
159 |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
160 /* Number of elements of this_command_keys |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
161 that precede this key sequence. */ |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
162 int this_single_command_key_start; |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
163 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
164 /* Record values of this_command_key_count and echo_length () |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
165 before this command was read. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
166 static int before_command_key_count; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
167 static int before_command_echo_length; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
168 /* Values of before_command_key_count and before_command_echo_length |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
169 saved by reset-this-command-lengths. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
170 static int before_command_key_count_1; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
171 static int before_command_echo_length_1; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
172 /* Flag set by reset-this-command-lengths, |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
173 saying to reset the lengths when add_command_key is called. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
174 static int before_command_restore_flag; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
175 |
518 | 176 extern int minbuf_level; |
177 | |
20496
b2536e1685e9
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
20493
diff
changeset
|
178 extern int message_enable_multibyte; |
b2536e1685e9
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
20493
diff
changeset
|
179 |
518 | 180 extern struct backtrace *backtrace_list; |
181 | |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
182 /* If non-nil, the function that implements the display of help. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
183 It's called with one argument, the help string to display. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
184 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
185 Lisp_Object Vshow_help_function; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
186 |
518 | 187 /* Nonzero means do menu prompting. */ |
188 static int menu_prompting; | |
189 | |
190 /* Character to see next line of menu prompt. */ | |
191 static Lisp_Object menu_prompt_more_char; | |
192 | |
193 /* For longjmp to where kbd input is being done. */ | |
194 static jmp_buf getcjmp; | |
195 | |
196 /* True while doing kbd input. */ | |
197 int waiting_for_input; | |
198 | |
199 /* True while displaying for echoing. Delays C-g throwing. */ | |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
200 |
518 | 201 static int echoing; |
202 | |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
203 /* Non-null means we can start echoing at the next input pause even |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
204 though there is something in the echo area. */ |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
205 |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
206 static struct kboard *ok_to_echo_at_next_pause; |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
207 |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
208 /* The kboard last echoing, or null for none. Reset to 0 in |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
209 cancel_echoing. If non-null, and a current echo area message |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
210 exists, and echo_message_buffer is eq to the current message |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
211 buffer, we know that the message comes from echo_kboard. */ |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
212 |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
213 static struct kboard *echo_kboard; |
13267
12d329dd9940
(read_char): If we reread a char, the next pause
Richard M. Stallman <rms@gnu.org>
parents:
13246
diff
changeset
|
214 |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
215 /* The buffer used for echoing. Set in echo_now, reset in |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
216 cancel_echoing. */ |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
217 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
218 static Lisp_Object echo_message_buffer; |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
219 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
220 /* 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
|
221 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
|
222 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
223 /* Nonzero means C-g should cause immediate error-signal. */ |
518 | 224 int immediate_quit; |
225 | |
17870
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
226 /* The user's ERASE setting. */ |
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
227 Lisp_Object Vtty_erase_char; |
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
228 |
518 | 229 /* 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
|
230 Lisp_Object Vhelp_char; |
518 | 231 |
12144 | 232 /* List of other event types to recognize as meaning "help". */ |
233 Lisp_Object Vhelp_event_list; | |
234 | |
518 | 235 /* Form to execute when help char is typed. */ |
236 Lisp_Object Vhelp_form; | |
237 | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
238 /* 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
|
239 Lisp_Object Vprefix_help_command; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
240 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
241 /* 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
|
242 Lisp_Object Vmenu_bar_final_items; |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
243 |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
244 /* Non-nil means show the equivalent key-binding for |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
245 any M-x command that has one. |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
246 The value can be a length of time to show the message for. |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
247 If the value is non-nil and not a number, we wait 2 seconds. */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
248 Lisp_Object Vsuggest_key_bindings; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
249 |
518 | 250 /* Character that causes a quit. Normally C-g. |
251 | |
252 If we are running on an ordinary terminal, this must be an ordinary | |
253 ASCII char, since we want to make it our interrupt character. | |
254 | |
255 If we are not running on an ordinary terminal, it still needs to be | |
256 an ordinary ASCII char. This character needs to be recognized in | |
257 the input interrupt handler. At this point, the keystroke is | |
258 represented as a struct input_event, while the desired quit | |
259 character is specified as a lispy event. The mapping from struct | |
260 input_events to lispy events cannot run in an interrupt handler, | |
261 and the reverse mapping is difficult for anything but ASCII | |
262 keystrokes. | |
263 | |
264 FOR THESE ELABORATE AND UNSATISFYING REASONS, quit_char must be an | |
265 ASCII character. */ | |
266 int quit_char; | |
267 | |
268 extern Lisp_Object current_global_map; | |
269 extern int minibuf_level; | |
270 | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
271 /* 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
|
272 Lisp_Object Voverriding_local_map; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
273 |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
274 /* 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
|
275 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
|
276 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
277 /* Keymap that defines special misc events that should |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
278 be processed immediately at a low level. */ |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
279 Lisp_Object Vspecial_event_map; |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
280 |
518 | 281 /* Current depth in recursive edits. */ |
282 int command_loop_level; | |
283 | |
284 /* Total number of times command_loop has read a key sequence. */ | |
285 int num_input_keys; | |
286 | |
287 /* Last input character read as a command. */ | |
288 Lisp_Object last_command_char; | |
289 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
290 /* 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
|
291 reached by the mouse. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
292 Lisp_Object last_nonmenu_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
293 |
518 | 294 /* Last input character read for any purpose. */ |
295 Lisp_Object last_input_char; | |
296 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
297 /* 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
|
298 Lisp_Object Vunread_command_events; |
518 | 299 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
300 /* If not Qnil, a list of objects to be read as subsequent command input |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
301 including input method processing. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
302 Lisp_Object Vunread_input_method_events; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
303 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
304 /* If not Qnil, a list of objects to be read as subsequent command input |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
305 but NOT including input method processing. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
306 Lisp_Object Vunread_post_input_method_events; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
307 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
308 /* 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
|
309 int unread_command_char; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
310 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
311 /* 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
|
312 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
|
313 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
|
314 |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
315 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
|
316 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
|
317 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
|
318 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
|
319 |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
320 /* 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
|
321 int extra_keyboard_modifiers; |
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
322 |
518 | 323 /* Char to use as prefix when a meta character is typed in. |
324 This is bound on entry to minibuffer in case ESC is changed there. */ | |
325 | |
326 Lisp_Object meta_prefix_char; | |
327 | |
328 /* Last size recorded for a current buffer which is not a minibuffer. */ | |
329 static int last_non_minibuf_size; | |
330 | |
687
e2b747dd6a6e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
682
diff
changeset
|
331 /* Number of idle seconds before an auto-save and garbage collection. */ |
518 | 332 static Lisp_Object Vauto_save_timeout; |
333 | |
334 /* Total number of times read_char has returned. */ | |
17890 | 335 int num_input_events; |
518 | 336 |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
337 /* Total number of times read_char has returned, outside of macros. */ |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
338 int num_nonmacro_input_events; |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
339 |
518 | 340 /* Auto-save automatically when this many characters have been typed |
341 since the last time. */ | |
342 | |
343 static int auto_save_interval; | |
344 | |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
345 /* Value of num_nonmacro_input_events as of last auto save. */ |
518 | 346 |
347 int last_auto_save; | |
348 | |
349 /* The command being executed by the command loop. | |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
350 Commands may set this, and the value set will be copied into |
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
351 current_kboard->Vlast_command instead of the actual command. */ |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
352 Lisp_Object Vthis_command; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
353 |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
354 /* This is like Vthis_command, except that commands never set it. */ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
355 Lisp_Object real_this_command; |
518 | 356 |
6178
ad3864a4e0bc
(command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents:
6159
diff
changeset
|
357 /* 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
|
358 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
|
359 |
7345
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
360 /* 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
|
361 Lisp_Object last_point_position_buffer; |
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
362 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
363 /* The frame in which the last input event occurred, or Qmacro if the |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
364 last event came from a macro. We use this to determine when to |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
365 generate switch-frame events. This may be cleared by functions |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
366 like Fselect_frame, to make sure that a switch-frame event is |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
367 generated by the next character. */ |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
368 Lisp_Object internal_last_event_frame; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
369 |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
370 /* A user-visible version of the above, intended to allow users to |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
371 figure out where the last event came from, if the event doesn't |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
372 carry that information itself (i.e. if it was a character). */ |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
373 Lisp_Object Vlast_event_frame; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
374 |
708 | 375 /* The timestamp of the last input event we received from the X server. |
376 X Windows wants this for selection ownership. */ | |
518 | 377 unsigned long last_event_timestamp; |
378 | |
379 Lisp_Object Qself_insert_command; | |
380 Lisp_Object Qforward_char; | |
381 Lisp_Object Qbackward_char; | |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
382 Lisp_Object Qundefined; |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
383 Lisp_Object Qtimer_event_handler; |
518 | 384 |
385 /* read_key_sequence stores here the command definition of the | |
386 key sequence that it reads. */ | |
387 Lisp_Object read_key_sequence_cmd; | |
388 | |
27766
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
389 /* Echo unfinished commands after this many seconds of pause. */ |
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
390 Lisp_Object Vecho_keystrokes; |
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
391 |
518 | 392 /* Form to evaluate (if non-nil) when Emacs is started. */ |
393 Lisp_Object Vtop_level; | |
394 | |
395 /* User-supplied string to translate input characters through. */ | |
396 Lisp_Object Vkeyboard_translate_table; | |
397 | |
398 /* Keymap mapping ASCII function key sequences onto their preferred forms. */ | |
399 extern Lisp_Object Vfunction_key_map; | |
400 | |
12712
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
401 /* Another keymap that maps key sequences into key sequences. |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
402 This one takes precedence over ordinary definitions. */ |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
403 extern Lisp_Object Vkey_translation_map; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
404 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
405 /* If non-nil, this implements the current input method. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
406 Lisp_Object Vinput_method_function; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
407 Lisp_Object Qinput_method_function; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
408 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
409 /* When we call Vinput_method_function, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
410 this holds the echo area message that was just erased. */ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
411 Lisp_Object Vinput_method_previous_message; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
412 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
413 /* 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
|
414 Lisp_Object Vdeactivate_mark; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
415 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
416 /* 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
|
417 |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
418 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
|
419 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
|
420 |
16834
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
421 Lisp_Object Qecho_area_clear_hook; |
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
422 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
423 /* Hooks to run before and after each command. */ |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
424 Lisp_Object Qpre_command_hook, Vpre_command_hook; |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
425 Lisp_Object Qpost_command_hook, Vpost_command_hook; |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
426 Lisp_Object Qcommand_hook_internal, Vcommand_hook_internal; |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
427 /* Hook run after a command if there's no more input soon. */ |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
428 Lisp_Object Qpost_command_idle_hook, Vpost_command_idle_hook; |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
429 |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
430 /* Delay time in microseconds before running post-command-idle-hook. */ |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
431 int post_command_idle_delay; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
432 |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
433 /* 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
|
434 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
|
435 Lisp_Object Vdeferred_action_list; |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
436 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
437 /* 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
|
438 Lisp_Object Vdeferred_action_function; |
10070
def41008c136
(command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents:
10060
diff
changeset
|
439 Lisp_Object Qdeferred_action_function; |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
440 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
441 Lisp_Object Qinput_method_exit_on_first_char; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
442 Lisp_Object Qinput_method_use_echo_area; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
443 |
518 | 444 /* File in which we write all commands we read. */ |
445 FILE *dribble; | |
446 | |
447 /* Nonzero if input is available. */ | |
448 int input_pending; | |
449 | |
2690
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
450 /* 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
|
451 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
|
452 |
518 | 453 int meta_key; |
454 | |
455 extern char *pending_malloc_warning; | |
456 | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
457 /* Circular buffer for pre-read keyboard input. */ |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
458 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
459 static struct input_event kbd_buffer[KBD_BUFFER_SIZE]; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
460 |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
461 /* Vector to GCPRO the Lisp objects referenced from kbd_buffer. |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
462 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
463 The interrupt-level event handlers will never enqueue an event on a |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
464 frame which is not in Vframe_list, and once an event is dequeued, |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
465 internal_last_event_frame or the event itself points to the frame. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
466 So that's all fine. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
467 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
468 But while the event is sitting in the queue, it's completely |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
469 unprotected. Suppose the user types one command which will run for |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
470 a while and then delete a frame, and then types another event at |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
471 the frame that will be deleted, before the command gets around to |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
472 it. Suppose there are no references to this frame elsewhere in |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
473 Emacs, and a GC occurs before the second event is dequeued. Now we |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
474 have an event referring to a freed frame, which will crash Emacs |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
475 when it is dequeued. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
476 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
477 Similar things happen when an event on a scroll bar is enqueued; the |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
478 window may be deleted while the event is in the queue. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
479 |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
480 So, we use this vector to protect the Lisp_Objects in the event |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
481 queue. That way, they'll be dequeued as dead frames or windows, |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
482 but still valid Lisp objects. |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
483 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
484 If kbd_buffer[i].kind != no_event, then |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
485 |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
486 AREF (kbd_buffer_gcpro, 2 * i) == kbd_buffer[i].frame_or_window. |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
487 AREF (kbd_buffer_gcpro, 2 * i + 1) == kbd_buffer[i].arg. */ |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
488 |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
489 static Lisp_Object kbd_buffer_gcpro; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
490 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
491 /* Pointer to next available character in kbd_buffer. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
492 If kbd_fetch_ptr == kbd_store_ptr, the buffer is empty. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
493 This may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the the |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
494 next available char is in kbd_buffer[0]. */ |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
495 static struct input_event *kbd_fetch_ptr; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
496 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
497 /* Pointer to next place to store character in kbd_buffer. This |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
498 may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the next |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
499 character should go in kbd_buffer[0]. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
500 static struct input_event * volatile kbd_store_ptr; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
501 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
502 /* The above pair of variables forms a "queue empty" flag. When we |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
503 enqueue a non-hook event, we increment kbd_store_ptr. When we |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
504 dequeue a non-hook event, we increment kbd_fetch_ptr. We say that |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
505 there is input available iff the two pointers are not equal. |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
506 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
507 Why not just have a flag set and cleared by the enqueuing and |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
508 dequeuing functions? Such a flag could be screwed up by interrupts |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
509 at inopportune times. */ |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
510 |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
511 /* If this flag is non-nil, we check mouse_moved to see when the |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
512 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
|
513 Otherwise, mouse motion is ignored. */ |
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
514 static Lisp_Object do_mouse_tracking; |
518 | 515 |
516 /* Symbols to head events. */ | |
517 Lisp_Object Qmouse_movement; | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
518 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
|
519 Lisp_Object Qswitch_frame; |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
520 Lisp_Object Qdelete_frame; |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
521 Lisp_Object Qiconify_frame; |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
522 Lisp_Object Qmake_frame_visible; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
523 Lisp_Object Qhelp_echo; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
524 |
518 | 525 /* Symbols to denote kinds of events. */ |
526 Lisp_Object Qfunction_key; | |
527 Lisp_Object Qmouse_click; | |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
528 #ifdef WINDOWSNT |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
529 Lisp_Object Qmouse_wheel; |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
530 Lisp_Object Qlanguage_change; |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
531 #endif |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
532 Lisp_Object Qdrag_n_drop; |
518 | 533 /* Lisp_Object Qmouse_movement; - also an event header */ |
534 | |
535 /* Properties of event headers. */ | |
536 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
|
537 Lisp_Object Qevent_symbol_elements; |
518 | 538 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
539 /* menu item parts */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
540 Lisp_Object Qmenu_alias; |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
541 Lisp_Object Qmenu_enable; |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
542 Lisp_Object QCenable, QCvisible, QChelp, QCfilter, QCkeys, QCkey_sequence; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
543 Lisp_Object QCbutton, QCtoggle, QCradio; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
544 extern Lisp_Object Vdefine_key_rebound_commands; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
545 extern Lisp_Object Qmenu_item; |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
546 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
547 /* 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
|
548 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
|
549 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
|
550 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
|
551 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
|
552 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
|
553 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
554 /* 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
|
555 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
|
556 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
|
557 apply_modifiers. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
558 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
|
559 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
560 /* Symbols to use for parts of windows. */ |
518 | 561 Lisp_Object Qmode_line; |
732 | 562 Lisp_Object Qvertical_line; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
563 Lisp_Object Qvertical_scroll_bar; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
564 Lisp_Object Qmenu_bar; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
565 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
566 Lisp_Object recursive_edit_unwind (), command_loop (); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
567 Lisp_Object Fthis_command_keys (); |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
568 Lisp_Object Qextended_command_history; |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
569 EMACS_TIME timer_check (); |
518 | 570 |
21726
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
571 extern Lisp_Object Vhistory_length; |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
572 |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
573 extern char *x_get_keysym_name (); |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
574 |
16750
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
575 static void record_menu_key (); |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
576 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
577 Lisp_Object Qpolling_period; |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
578 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
579 /* List of absolute timers. Appears in order of next scheduled event. */ |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
580 Lisp_Object Vtimer_list; |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
581 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
582 /* List of idle time timers. Appears in order of next scheduled event. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
583 Lisp_Object Vtimer_idle_list; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
584 |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
585 /* Incremented whenever a timer is run. */ |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
586 int timers_run; |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
587 |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
588 extern Lisp_Object Vprint_level, Vprint_length; |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
589 |
648 | 590 /* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt |
591 happens. */ | |
592 EMACS_TIME *input_available_clear_time; | |
518 | 593 |
594 /* Nonzero means use SIGIO interrupts; zero means use CBREAK mode. | |
595 Default is 1 if INTERRUPT_INPUT is defined. */ | |
596 int interrupt_input; | |
597 | |
598 /* Nonzero while interrupts are temporarily deferred during redisplay. */ | |
599 int interrupts_deferred; | |
600 | |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
601 /* Nonzero means use ^S/^Q for flow control. */ |
518 | 602 int flow_control; |
603 | |
604 /* Allow m- file to inhibit use of FIONREAD. */ | |
605 #ifdef BROKEN_FIONREAD | |
606 #undef FIONREAD | |
607 #endif | |
608 | |
609 /* We are unable to use interrupts if FIONREAD is not available, | |
610 so flush SIGIO so we won't try. */ | |
611 #ifndef FIONREAD | |
612 #ifdef SIGIO | |
613 #undef SIGIO | |
614 #endif | |
615 #endif | |
616 | |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
617 /* If we support a window system, turn on the code to poll periodically |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
618 to detect C-g. It isn't actually used when doing interrupt input. */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
619 #ifdef HAVE_WINDOW_SYSTEM |
518 | 620 #define POLL_FOR_INPUT |
621 #endif | |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
622 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
623 /* After a command is executed, if point is moved into a region that |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
624 has specific properties (e.g. composition, display), we adjust |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
625 point to the boundary of the region. But, if a command sets this |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
626 valiable to non-nil, we suppress this point adjustment. This |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
627 variable is set to nil before reading a command. */ |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
628 |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
629 Lisp_Object Vdisable_point_adjustment; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
630 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
631 /* If non-nil, always disable point adjustment. */ |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
632 |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
633 Lisp_Object Vglobal_disable_point_adjustment; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
634 |
518 | 635 |
636 /* Global variable declarations. */ | |
637 | |
638 /* Function for init_keyboard to call with no args (if nonzero). */ | |
639 void (*keyboard_init_hook) (); | |
640 | |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
641 static int read_avail_input P_ ((int)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
642 static void get_input_pending P_ ((int *, int)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
643 static int readable_events P_ ((int)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
644 static Lisp_Object read_char_x_menu_prompt P_ ((int, Lisp_Object *, |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
645 Lisp_Object, int *)); |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
646 static Lisp_Object read_char_x_menu_prompt (); |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
647 static Lisp_Object read_char_minibuf_menu_prompt P_ ((int, int, |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
648 Lisp_Object *)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
649 static Lisp_Object make_lispy_event P_ ((struct input_event *)); |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
650 #ifdef HAVE_MOUSE |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
651 static Lisp_Object make_lispy_movement P_ ((struct frame *, Lisp_Object, |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
652 enum scroll_bar_part, |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
653 Lisp_Object, Lisp_Object, |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
654 unsigned long)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
655 #endif |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
656 static Lisp_Object modify_event_symbol P_ ((int, unsigned, Lisp_Object, |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
657 Lisp_Object, char **, |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
658 Lisp_Object *, unsigned)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
659 static Lisp_Object make_lispy_switch_frame P_ ((Lisp_Object)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
660 static int parse_solitary_modifier P_ ((Lisp_Object)); |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
661 static int parse_solitary_modifier (); |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
662 static void save_getcjmp P_ ((jmp_buf)); |
21514 | 663 static void save_getcjmp (); |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
664 static void restore_getcjmp P_ ((jmp_buf)); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
665 static Lisp_Object apply_modifiers P_ ((int, Lisp_Object)); |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
666 static void clear_event P_ ((struct input_event *)); |
518 | 667 |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
668 /* 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
|
669 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
|
670 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
|
671 |
518 | 672 #define min(a,b) ((a)<(b)?(a):(b)) |
673 #define max(a,b) ((a)>(b)?(a):(b)) | |
674 | |
675 /* Install the string STR as the beginning of the string of echoing, | |
676 so that it serves as a prompt for the next character. | |
677 Also start echoing. */ | |
678 | |
21514 | 679 void |
518 | 680 echo_prompt (str) |
681 char *str; | |
682 { | |
683 int len = strlen (str); | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
684 |
10579
a7796a68f001
* keyboard.c (kbd_buffer_frame_or_window): Delete; now in perdisplay.
Karl Heuer <kwzh@gnu.org>
parents:
10551
diff
changeset
|
685 if (len > ECHOBUFSIZE - 4) |
a7796a68f001
* keyboard.c (kbd_buffer_frame_or_window): Delete; now in perdisplay.
Karl Heuer <kwzh@gnu.org>
parents:
10551
diff
changeset
|
686 len = ECHOBUFSIZE - 4; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
687 bcopy (str, current_kboard->echobuf, len); |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
688 current_kboard->echoptr = current_kboard->echobuf + len; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
689 *current_kboard->echoptr = '\0'; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
690 |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
691 current_kboard->echo_after_prompt = len; |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
692 |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
693 echo_now (); |
518 | 694 } |
695 | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
696 /* Add C to the echo string, if echoing is going on. |
518 | 697 C can be a character, which is printed prettily ("M-C-x" and all that |
698 jazz), or a symbol, whose name is printed. */ | |
699 | |
21514 | 700 void |
518 | 701 echo_char (c) |
702 Lisp_Object c; | |
703 { | |
704 extern char *push_key_description (); | |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
705 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
706 if (current_kboard->immediate_echo) |
518 | 707 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
708 char *ptr = current_kboard->echoptr; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
709 |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
710 if (ptr != current_kboard->echobuf) |
518 | 711 *ptr++ = ' '; |
712 | |
713 /* 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
|
714 c = EVENT_HEAD (c); |
518 | 715 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
716 if (INTEGERP (c)) |
518 | 717 { |
26480
229494ea30fa
(echo_char): Use KEY_DESCRIPTION_SIZE to check free
Kenichi Handa <handa@m17n.org>
parents:
26469
diff
changeset
|
718 if (ptr - current_kboard->echobuf |
229494ea30fa
(echo_char): Use KEY_DESCRIPTION_SIZE to check free
Kenichi Handa <handa@m17n.org>
parents:
26469
diff
changeset
|
719 > ECHOBUFSIZE - KEY_DESCRIPTION_SIZE) |
518 | 720 return; |
721 | |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
722 ptr = push_key_description (XINT (c), ptr); |
518 | 723 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
724 else if (SYMBOLP (c)) |
518 | 725 { |
726 struct Lisp_String *name = XSYMBOL (c)->name; | |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
727 if ((ptr - current_kboard->echobuf) + STRING_BYTES (name) + 4 |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
728 > ECHOBUFSIZE) |
518 | 729 return; |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
730 bcopy (name->data, ptr, STRING_BYTES (name)); |
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
731 ptr += STRING_BYTES (name); |
518 | 732 } |
733 | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
734 if (current_kboard->echoptr == current_kboard->echobuf |
12144 | 735 && help_char_p (c)) |
518 | 736 { |
737 strcpy (ptr, " (Type ? for further options)"); | |
738 ptr += strlen (ptr); | |
739 } | |
740 | |
741 *ptr = 0; | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
742 current_kboard->echoptr = ptr; |
518 | 743 |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
744 echo_now (); |
518 | 745 } |
746 } | |
747 | |
748 /* Temporarily add a dash to the end of the echo string if it's not | |
749 empty, so that it serves as a mini-prompt for the very next character. */ | |
750 | |
21514 | 751 void |
518 | 752 echo_dash () |
753 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
754 if (!current_kboard->immediate_echo |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
755 && current_kboard->echoptr == current_kboard->echobuf) |
518 | 756 return; |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
757 /* Do nothing if we just printed a prompt. */ |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
758 if (current_kboard->echo_after_prompt |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
759 == current_kboard->echoptr - current_kboard->echobuf) |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
760 return; |
2505
c0a13d078f68
* keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents:
2482
diff
changeset
|
761 /* Do nothing if not echoing at all. */ |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
762 if (current_kboard->echoptr == 0) |
2505
c0a13d078f68
* keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents:
2482
diff
changeset
|
763 return; |
518 | 764 |
765 /* Put a dash at the end of the buffer temporarily, | |
766 but make it go away when the next character is added. */ | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
767 current_kboard->echoptr[0] = '-'; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
768 current_kboard->echoptr[1] = 0; |
518 | 769 |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
770 echo_now (); |
518 | 771 } |
772 | |
773 /* Display the current echo string, and begin echoing if not already | |
774 doing so. */ | |
775 | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
776 void |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
777 echo_now () |
518 | 778 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
779 if (!current_kboard->immediate_echo) |
518 | 780 { |
781 int i; | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
782 current_kboard->immediate_echo = 1; |
518 | 783 |
784 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
|
785 { |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
786 Lisp_Object c; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
787 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
|
788 if (! (EVENT_HAS_PARAMETERS (c) |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
789 && 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
|
790 echo_char (c); |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
791 } |
518 | 792 echo_dash (); |
793 } | |
794 | |
795 echoing = 1; | |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
796 message2_nolog (current_kboard->echobuf, strlen (current_kboard->echobuf), |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
797 ! NILP (current_buffer->enable_multibyte_characters)); |
518 | 798 echoing = 0; |
799 | |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
800 /* Record in what buffer we echoed, and from which kboard. */ |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
801 echo_message_buffer = echo_area_buffer[0]; |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
802 echo_kboard = current_kboard; |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
803 |
518 | 804 if (waiting_for_input && !NILP (Vquit_flag)) |
805 quit_throw_to_read_char (); | |
806 } | |
807 | |
808 /* Turn off echoing, for the start of a new command. */ | |
809 | |
21514 | 810 void |
518 | 811 cancel_echoing () |
812 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
813 current_kboard->immediate_echo = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
814 current_kboard->echoptr = current_kboard->echobuf; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
815 current_kboard->echo_after_prompt = -1; |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
816 ok_to_echo_at_next_pause = NULL; |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
817 echo_kboard = NULL; |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
818 echo_message_buffer = Qnil; |
518 | 819 } |
820 | |
821 /* Return the length of the current echo string. */ | |
822 | |
823 static int | |
824 echo_length () | |
825 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
826 return current_kboard->echoptr - current_kboard->echobuf; |
518 | 827 } |
828 | |
829 /* Truncate the current echo message to its first LEN chars. | |
830 This and echo_char get used by read_key_sequence when the user | |
765 | 831 switches frames while entering a key sequence. */ |
518 | 832 |
833 static void | |
834 echo_truncate (len) | |
835 int len; | |
836 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
837 current_kboard->echobuf[len] = '\0'; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
838 current_kboard->echoptr = current_kboard->echobuf + len; |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
839 truncate_echo_area (len); |
518 | 840 } |
841 | |
842 | |
843 /* Functions for manipulating this_command_keys. */ | |
844 static void | |
845 add_command_key (key) | |
846 Lisp_Object key; | |
847 { | |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
848 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
|
849 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
850 /* If reset-this-command-length was called recently, obey it now. |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
851 See the doc string of that function for an explanation of why. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
852 if (before_command_restore_flag) |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
853 { |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
854 this_command_key_count = before_command_key_count_1; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
855 if (this_command_key_count < this_single_command_key_start) |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
856 this_single_command_key_start = this_command_key_count; |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
857 echo_truncate (before_command_echo_length_1); |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
858 before_command_restore_flag = 0; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
859 } |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
860 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
861 if (this_command_key_count >= size) |
518 | 862 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
863 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
|
864 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
865 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
|
866 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
|
867 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
|
868 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
|
869 |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
870 this_command_keys = new_keys; |
518 | 871 } |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
872 |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
873 XVECTOR (this_command_keys)->contents[this_command_key_count++] = key; |
518 | 874 } |
875 | |
876 Lisp_Object | |
877 recursive_edit_1 () | |
878 { | |
879 int count = specpdl_ptr - specpdl; | |
880 Lisp_Object val; | |
881 | |
882 if (command_loop_level > 0) | |
883 { | |
884 specbind (Qstandard_output, Qt); | |
885 specbind (Qstandard_input, Qt); | |
886 } | |
887 | |
27867
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
888 #ifdef HAVE_X_WINDOWS |
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
889 /* The command loop has started a busy-cursor timer, so we have to |
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
890 cancel it here, otherwise it will fire because the recursive edit |
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
891 can take some time. */ |
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
892 if (display_busy_cursor_p) |
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
893 cancel_busy_cursor (); |
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
894 #endif |
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
895 |
518 | 896 val = command_loop (); |
897 if (EQ (val, Qt)) | |
898 Fsignal (Qquit, Qnil); | |
16181
de4b3d40218f
(recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents:
16166
diff
changeset
|
899 /* Handle throw from read_minibuf when using minibuffer |
de4b3d40218f
(recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents:
16166
diff
changeset
|
900 while it's active but we're in another window. */ |
de4b3d40218f
(recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents:
16166
diff
changeset
|
901 if (STRINGP (val)) |
de4b3d40218f
(recursive_edit_1): Handle a string as the throw value.
Richard M. Stallman <rms@gnu.org>
parents:
16166
diff
changeset
|
902 Fsignal (Qerror, Fcons (val, Qnil)); |
518 | 903 |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
904 return unbind_to (count, Qnil); |
518 | 905 } |
906 | |
907 /* 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
|
908 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
909 void |
518 | 910 record_auto_save () |
911 { | |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
912 last_auto_save = num_nonmacro_input_events; |
518 | 913 } |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
914 |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
915 /* 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
|
916 |
21514 | 917 void |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
918 force_auto_save_soon () |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
919 { |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
920 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
|
921 |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
922 record_asynch_buffer_change (); |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
923 } |
518 | 924 |
925 DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "", | |
926 "Invoke the editor command loop recursively.\n\ | |
927 To get out of the recursive edit, a command can do `(throw 'exit nil)';\n\ | |
928 that tells this function to return.\n\ | |
929 Alternately, `(throw 'exit t)' makes this function signal an error.\n\ | |
930 This function is called by the editor initialization to begin editing.") | |
931 () | |
932 { | |
933 int count = specpdl_ptr - specpdl; | |
934 | |
935 command_loop_level++; | |
936 update_mode_lines = 1; | |
937 | |
938 record_unwind_protect (recursive_edit_unwind, | |
939 (command_loop_level | |
940 && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer)) | |
941 ? Fcurrent_buffer () | |
942 : Qnil); | |
943 recursive_edit_1 (); | |
944 return unbind_to (count, Qnil); | |
945 } | |
946 | |
947 Lisp_Object | |
948 recursive_edit_unwind (buffer) | |
949 Lisp_Object buffer; | |
950 { | |
951 if (!NILP (buffer)) | |
952 Fset_buffer (buffer); | |
953 | |
954 command_loop_level--; | |
955 update_mode_lines = 1; | |
956 return Qnil; | |
957 } | |
958 | |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
959 static void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
960 any_kboard_state () |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
961 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
962 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
963 #if 0 /* Theory: if there's anything in Vunread_command_events, |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
964 it will right away be read by read_key_sequence, |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
965 and then if we do switch KBOARDS, it will go into the side |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
966 queue then. So we don't need to do anything special here -- rms. */ |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
967 if (CONSP (Vunread_command_events)) |
10945
dbf1aab47502
(unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents:
10939
diff
changeset
|
968 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
969 current_kboard->kbd_queue |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
970 = nconc2 (Vunread_command_events, current_kboard->kbd_queue); |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
971 current_kboard->kbd_queue_has_data = 1; |
10945
dbf1aab47502
(unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents:
10939
diff
changeset
|
972 } |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
973 Vunread_command_events = Qnil; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
974 #endif |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
975 single_kboard = 0; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
976 #endif |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
977 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
978 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
979 /* Switch to the single-kboard state, making current_kboard |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
980 the only KBOARD from which further input is accepted. */ |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
981 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
982 void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
983 single_kboard_state () |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
984 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
985 #ifdef MULTI_KBOARD |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
986 single_kboard = 1; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
987 #endif |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
988 } |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
989 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
990 /* Maintain a stack of kboards, so other parts of Emacs |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
991 can switch temporarily to the kboard of a given frame |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
992 and then revert to the previous status. */ |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
993 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
994 struct kboard_stack |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
995 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
996 KBOARD *kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
997 struct kboard_stack *next; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
998 }; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
999 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1000 static struct kboard_stack *kboard_stack; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1001 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1002 void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1003 push_frame_kboard (f) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1004 FRAME_PTR f; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1005 { |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
1006 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1007 struct kboard_stack *p |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1008 = (struct kboard_stack *) xmalloc (sizeof (struct kboard_stack)); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1009 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1010 p->next = kboard_stack; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1011 p->kboard = current_kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1012 kboard_stack = p; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1013 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1014 current_kboard = FRAME_KBOARD (f); |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
1015 #endif |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1016 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1017 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1018 void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1019 pop_frame_kboard () |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1020 { |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
1021 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1022 struct kboard_stack *p = kboard_stack; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1023 current_kboard = p->kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1024 kboard_stack = p->next; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1025 xfree (p); |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
1026 #endif |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1027 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1028 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1029 /* Handle errors that are not handled at inner levels |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1030 by printing an error message and returning to the editor command loop. */ |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
1031 |
518 | 1032 Lisp_Object |
1033 cmd_error (data) | |
1034 Lisp_Object data; | |
1035 { | |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1036 Lisp_Object old_level, old_length; |
15969
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1037 char macroerror[50]; |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1038 |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1039 if (!NILP (executing_macro)) |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1040 { |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1041 if (executing_macro_iterations == 1) |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1042 sprintf (macroerror, "After 1 kbd macro iteration: "); |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1043 else |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1044 sprintf (macroerror, "After %d kbd macro iterations: ", |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1045 executing_macro_iterations); |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1046 } |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1047 else |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1048 *macroerror = 0; |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1049 |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1050 Vstandard_output = Qt; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1051 Vstandard_input = Qt; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1052 Vexecuting_macro = Qnil; |
15982
6654a42f95e9
(cmd_error): Clear executing_macro.
Richard M. Stallman <rms@gnu.org>
parents:
15969
diff
changeset
|
1053 executing_macro = Qnil; |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1054 current_kboard->Vprefix_arg = Qnil; |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1055 current_kboard->Vlast_prefix_arg = Qnil; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1056 cancel_echoing (); |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1057 |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1058 /* Avoid unquittable loop if data contains a circular list. */ |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1059 old_level = Vprint_level; |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1060 old_length = Vprint_length; |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
1061 XSETFASTINT (Vprint_level, 10); |
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
1062 XSETFASTINT (Vprint_length, 10); |
15969
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1063 cmd_error_internal (data, macroerror); |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1064 Vprint_level = old_level; |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1065 Vprint_length = old_length; |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1066 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1067 Vquit_flag = Qnil; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1068 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1069 Vinhibit_quit = Qnil; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1070 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1071 any_kboard_state (); |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1072 #endif |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1073 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1074 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
|
1075 } |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1076 |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1077 /* Take actions on handling an error. DATA is the data that describes |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1078 the error. |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1079 |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1080 CONTEXT is a C-string containing ASCII characters only which |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1081 describes the context in which the error happened. If we need to |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1082 generalize CONTEXT to allow multibyte characters, make it a Lisp |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1083 string. */ |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1084 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
1085 void |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1086 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
|
1087 Lisp_Object data; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1088 char *context; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1089 { |
518 | 1090 Lisp_Object stream; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1091 int kill_emacs_p = 0; |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
1092 struct frame *sf = SELECTED_FRAME (); |
518 | 1093 |
1094 Vquit_flag = Qnil; | |
1095 Vinhibit_quit = Qt; | |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
1096 clear_message (1, 0); |
518 | 1097 |
765 | 1098 /* If the window system or terminal frame hasn't been initialized |
518 | 1099 yet, or we're not interactive, it's best to dump this message out |
1100 to stderr and exit. */ | |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
1101 if (!sf->glyphs_initialized_p |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1102 /* This is the case of the frame dumped with Emacs, when we're |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1103 running under a window system. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1104 || (!NILP (Vwindow_system) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1105 && !inhibit_window_system |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
1106 && FRAME_TERMCAP_P (sf)) |
518 | 1107 || noninteractive) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1108 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1109 stream = Qexternal_debugging_output; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1110 kill_emacs_p = 1; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1111 } |
518 | 1112 else |
1113 { | |
1114 Fdiscard_input (); | |
1115 bitch_at_user (); | |
1116 stream = Qt; | |
1117 } | |
1118 | |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1119 if (context != 0) |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1120 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
|
1121 |
13770
197ada595605
(Fcommand_execute): Allow function + args list as cmd.
Karl Heuer <kwzh@gnu.org>
parents:
13638
diff
changeset
|
1122 print_error_message (data, stream); |
518 | 1123 |
765 | 1124 /* If the window system or terminal frame hasn't been initialized |
518 | 1125 yet, or we're in -batch mode, this error should cause Emacs to exit. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1126 if (kill_emacs_p) |
518 | 1127 { |
1128 Fterpri (stream); | |
1129 Fkill_emacs (make_number (-1)); | |
1130 } | |
1131 } | |
1132 | |
1133 Lisp_Object command_loop_1 (); | |
1134 Lisp_Object command_loop_2 (); | |
1135 Lisp_Object top_level_1 (); | |
1136 | |
1137 /* Entry to editor-command-loop. | |
1138 This level has the catches for exiting/returning to editor command loop. | |
1139 It returns nil to exit recursive edit, t to abort it. */ | |
1140 | |
1141 Lisp_Object | |
1142 command_loop () | |
1143 { | |
1144 if (command_loop_level > 0 || minibuf_level > 0) | |
1145 { | |
23459
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
1146 Lisp_Object val; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
1147 val = internal_catch (Qexit, command_loop_2, Qnil); |
22551
10770ff8e88f
(command_loop): Reset executing_macro after
Richard M. Stallman <rms@gnu.org>
parents:
22542
diff
changeset
|
1148 executing_macro = Qnil; |
10770ff8e88f
(command_loop): Reset executing_macro after
Richard M. Stallman <rms@gnu.org>
parents:
22542
diff
changeset
|
1149 return val; |
518 | 1150 } |
1151 else | |
1152 while (1) | |
1153 { | |
1154 internal_catch (Qtop_level, top_level_1, Qnil); | |
1155 internal_catch (Qtop_level, command_loop_2, Qnil); | |
22551
10770ff8e88f
(command_loop): Reset executing_macro after
Richard M. Stallman <rms@gnu.org>
parents:
22542
diff
changeset
|
1156 executing_macro = Qnil; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1157 |
518 | 1158 /* End of file in -batch run causes exit here. */ |
1159 if (noninteractive) | |
1160 Fkill_emacs (Qt); | |
1161 } | |
1162 } | |
1163 | |
1164 /* Here we catch errors in execution of commands within the | |
1165 editing loop, and reenter the editing loop. | |
1166 When there is an error, cmd_error runs and returns a non-nil | |
1167 value to us. A value of nil means that cmd_loop_1 itself | |
1168 returned due to end of file (or end of kbd macro). */ | |
1169 | |
1170 Lisp_Object | |
1171 command_loop_2 () | |
1172 { | |
1173 register Lisp_Object val; | |
1174 | |
1175 do | |
1176 val = internal_condition_case (command_loop_1, Qerror, cmd_error); | |
1177 while (!NILP (val)); | |
1178 | |
1179 return Qnil; | |
1180 } | |
1181 | |
1182 Lisp_Object | |
1183 top_level_2 () | |
1184 { | |
1185 return Feval (Vtop_level); | |
1186 } | |
1187 | |
1188 Lisp_Object | |
1189 top_level_1 () | |
1190 { | |
1191 /* On entry to the outer level, run the startup file */ | |
1192 if (!NILP (Vtop_level)) | |
1193 internal_condition_case (top_level_2, Qerror, cmd_error); | |
1194 else if (!NILP (Vpurify_flag)) | |
1195 message ("Bare impure Emacs (standard Lisp code not loaded)"); | |
1196 else | |
1197 message ("Bare Emacs (standard Lisp code not loaded)"); | |
1198 return Qnil; | |
1199 } | |
1200 | |
1201 DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "", | |
1202 "Exit all recursive editing levels.") | |
1203 () | |
1204 { | |
28389
9ec5585e5e29
(Ftop_level): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27979
diff
changeset
|
1205 #ifdef HAVE_X_WINDOWS |
9ec5585e5e29
(Ftop_level): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27979
diff
changeset
|
1206 if (display_busy_cursor_p) |
9ec5585e5e29
(Ftop_level): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27979
diff
changeset
|
1207 cancel_busy_cursor (); |
9ec5585e5e29
(Ftop_level): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27979
diff
changeset
|
1208 #endif |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
1209 return Fthrow (Qtop_level, Qnil); |
518 | 1210 } |
1211 | |
1212 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "", | |
1213 "Exit from the innermost recursive edit or minibuffer.") | |
1214 () | |
1215 { | |
1216 if (command_loop_level > 0 || minibuf_level > 0) | |
1217 Fthrow (Qexit, Qnil); | |
1218 | |
1219 error ("No recursive edit is in progress"); | |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
1220 return Qnil; |
518 | 1221 } |
1222 | |
1223 DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0, 0, "", | |
1224 "Abort the command that requested this recursive edit or minibuffer input.") | |
1225 () | |
1226 { | |
1227 if (command_loop_level > 0 || minibuf_level > 0) | |
1228 Fthrow (Qexit, Qt); | |
1229 | |
1230 error ("No recursive edit is in progress"); | |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
1231 return Qnil; |
518 | 1232 } |
1233 | |
1234 /* This is the actual command reading loop, | |
1235 sans error-handling encapsulation. */ | |
1236 | |
1237 Lisp_Object Fcommand_execute (); | |
1238 static int read_key_sequence (); | |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
1239 void safe_run_hooks (); |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1240 static void adjust_point_for_property (); |
518 | 1241 |
1242 Lisp_Object | |
1243 command_loop_1 () | |
1244 { | |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
1245 Lisp_Object cmd; |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
1246 int lose; |
518 | 1247 int nonundocount; |
1248 Lisp_Object keybuf[30]; | |
1249 int i; | |
1250 int no_direct; | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1251 int prev_modiff; |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
1252 struct buffer *prev_buffer = NULL; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1253 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1254 int was_locked = single_kboard; |
10820
5bef43a53c01
(display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents:
10800
diff
changeset
|
1255 #endif |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1256 |
12227
24328f2358a1
(command_loop_1): Clear prefix arg (undo Feb 1 change).
Karl Heuer <kwzh@gnu.org>
parents:
12185
diff
changeset
|
1257 current_kboard->Vprefix_arg = Qnil; |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1258 current_kboard->Vlast_prefix_arg = Qnil; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1259 Vdeactivate_mark = Qnil; |
518 | 1260 waiting_for_input = 0; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1261 cancel_echoing (); |
518 | 1262 |
1263 nonundocount = 0; | |
1264 this_command_key_count = 0; | |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
1265 this_single_command_key_start = 0; |
518 | 1266 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
1267 /* 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
|
1268 throw to top level. */ |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1269 /* 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
|
1270 if the symbol is a local variable. */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
1271 if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks)) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1272 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
|
1273 |
25657
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1274 /* If displaying a message, resize the echo area window to fit |
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1275 that message's size exactly. */ |
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1276 if (!NILP (echo_area_buffer[0])) |
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1277 resize_echo_area_axactly (); |
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1278 |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
1279 if (!NILP (Vdeferred_action_list)) |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
1280 call0 (Vdeferred_action_function); |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
1281 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
1282 if (!NILP (Vpost_command_idle_hook) && !NILP (Vrun_hooks)) |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1283 { |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1284 if (NILP (Vunread_command_events) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
1285 && NILP (Vunread_input_method_events) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
1286 && NILP (Vunread_post_input_method_events) |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1287 && NILP (Vexecuting_macro) |
17967
08bf89d739cd
(command_loop_1): Pass 1 as new arg to sit_for.
Richard M. Stallman <rms@gnu.org>
parents:
17890
diff
changeset
|
1288 && !NILP (sit_for (0, post_command_idle_delay, 0, 1, 1))) |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1289 safe_run_hooks (Qpost_command_idle_hook); |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1290 } |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
1291 |
6290
6ecf8ea4bd8d
(command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents:
6208
diff
changeset
|
1292 /* Do this after running Vpost_command_hook, for consistency. */ |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1293 current_kboard->Vlast_command = Vthis_command; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1294 current_kboard->Vreal_last_command = real_this_command; |
6290
6ecf8ea4bd8d
(command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents:
6208
diff
changeset
|
1295 |
518 | 1296 while (1) |
1297 { | |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
1298 if (! FRAME_LIVE_P (XFRAME (selected_frame))) |
23226
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
1299 Fkill_emacs (Qnil); |
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
1300 |
518 | 1301 /* Make sure the current window's buffer is selected. */ |
1302 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer) | |
1303 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer)); | |
1304 | |
1305 /* Display any malloc warning that just came out. Use while because | |
1306 displaying one warning can cause another. */ | |
1307 | |
1308 while (pending_malloc_warning) | |
1309 display_malloc_warning (); | |
1310 | |
1311 no_direct = 0; | |
1312 | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1313 Vdeactivate_mark = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1314 |
518 | 1315 /* 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
|
1316 wait 2 sec and redraw minibuffer. */ |
518 | 1317 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1318 if (minibuf_level |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
1319 && !NILP (echo_area_buffer[0]) |
12628
397f6d4852ff
(command_loop_1): Clear echo area after 2 sec
Richard M. Stallman <rms@gnu.org>
parents:
12571
diff
changeset
|
1320 && EQ (minibuf_window, echo_area_window)) |
518 | 1321 { |
1097
d9efc1c88574
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents:
1083
diff
changeset
|
1322 /* 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
|
1323 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
|
1324 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
|
1325 specbind (Qinhibit_quit, Qt); |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
1326 |
518 | 1327 Fsit_for (make_number (2), Qnil, Qnil); |
14666
4edbb03c523b
(command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents:
14612
diff
changeset
|
1328 /* Clear the echo area. */ |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1329 message2 (0, 0, 0); |
16834
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
1330 safe_run_hooks (Qecho_area_clear_hook); |
14666
4edbb03c523b
(command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents:
14612
diff
changeset
|
1331 |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
1332 unbind_to (count, Qnil); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
1333 |
14666
4edbb03c523b
(command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents:
14612
diff
changeset
|
1334 /* If a C-g came in before, treat it as input now. */ |
518 | 1335 if (!NILP (Vquit_flag)) |
1336 { | |
1337 Vquit_flag = Qnil; | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1338 Vunread_command_events = Fcons (make_number (quit_char), Qnil); |
518 | 1339 } |
1340 } | |
1341 | |
1342 #ifdef C_ALLOCA | |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1343 alloca (0); /* Cause a garbage collection now */ |
518 | 1344 /* Since we can free the most stuff here. */ |
1345 #endif /* C_ALLOCA */ | |
1346 | |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1347 #if 0 |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1348 /* 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
|
1349 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
|
1350 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
|
1351 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
|
1352 if (FRAMEP (internal_last_event_frame) |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
1353 && !EQ (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
|
1354 Fselect_frame (internal_last_event_frame, Qnil); |
518 | 1355 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1356 /* 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
|
1357 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
|
1358 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
|
1359 && !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
|
1360 call0 (Qrecompute_lucid_menubar); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1361 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1362 before_command_key_count = this_command_key_count; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1363 before_command_echo_length = echo_length (); |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1364 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1365 Vthis_command = Qnil; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1366 real_this_command = Qnil; |
13014
077bb437f649
(command_loop_1): Set this_command to nil before reading a command.
Richard M. Stallman <rms@gnu.org>
parents:
12979
diff
changeset
|
1367 |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1368 /* Read next key sequence; i gets its length. */ |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
1369 i = read_key_sequence (keybuf, sizeof keybuf / sizeof keybuf[0], |
17389
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
1370 Qnil, 0, 1, 1); |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1371 |
16504
76d22a4f6959
(command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents:
16325
diff
changeset
|
1372 /* A filter may have run while we were reading the input. */ |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
1373 if (! FRAME_LIVE_P (XFRAME (selected_frame))) |
23226
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
1374 Fkill_emacs (Qnil); |
16504
76d22a4f6959
(command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents:
16325
diff
changeset
|
1375 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer) |
76d22a4f6959
(command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents:
16325
diff
changeset
|
1376 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer)); |
76d22a4f6959
(command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents:
16325
diff
changeset
|
1377 |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1378 ++num_input_keys; |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1379 |
518 | 1380 /* Now we have read a key sequence of length I, |
1381 or else I is 0 and we found end of file. */ | |
1382 | |
1383 if (i == 0) /* End of file -- happens only in */ | |
1384 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
|
1385 /* -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
|
1386 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
|
1387 if (i == -1) |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1388 { |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1389 cancel_echoing (); |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1390 this_command_key_count = 0; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
1391 this_single_command_key_start = 0; |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1392 goto finalize; |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1393 } |
518 | 1394 |
1395 last_command_char = keybuf[i - 1]; | |
1396 | |
2406
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1397 /* 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
|
1398 forget about that, in case this command moves point far away |
11174
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1399 from that position. But also throw away beg_unchanged and |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1400 end_unchanged information in that case, so that redisplay will |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1401 update the whole window properly. */ |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1402 if (!NILP (XWINDOW (selected_window)->force_start)) |
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1403 { |
25374
f4c741d61d57
(command_loop_1): Set beg/end_unchanged per
Gerd Moellmann <gerd@gnu.org>
parents:
25352
diff
changeset
|
1404 struct buffer *b; |
11174
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1405 XWINDOW (selected_window)->force_start = Qnil; |
25374
f4c741d61d57
(command_loop_1): Set beg/end_unchanged per
Gerd Moellmann <gerd@gnu.org>
parents:
25352
diff
changeset
|
1406 b = XBUFFER (XWINDOW (selected_window)->buffer); |
f4c741d61d57
(command_loop_1): Set beg/end_unchanged per
Gerd Moellmann <gerd@gnu.org>
parents:
25352
diff
changeset
|
1407 BUF_BEG_UNCHANGED (b) = BUF_END_UNCHANGED (b) = 0; |
11174
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1408 } |
2406
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1409 |
518 | 1410 cmd = read_key_sequence_cmd; |
1411 if (!NILP (Vexecuting_macro)) | |
1412 { | |
1413 if (!NILP (Vquit_flag)) | |
1414 { | |
1415 Vexecuting_macro = Qt; | |
1416 QUIT; /* Make some noise. */ | |
1417 /* Will return since macro now empty. */ | |
1418 } | |
1419 } | |
1420 | |
1421 /* Do redisplay processing after this command except in special | |
26469
50d43db29617
(command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1422 cases identified below. */ |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1423 prev_buffer = current_buffer; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1424 prev_modiff = MODIFF; |
6204
ba6268a3dee9
(command_loop_1): Fix misplaced assignment of last_point_position.
Karl Heuer <kwzh@gnu.org>
parents:
6178
diff
changeset
|
1425 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
|
1426 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
|
1427 |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1428 /* By default, we adjust point to a boundary of a region that |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1429 has such a property that should be treated intangible |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1430 (e.g. composition, display). But, some commands will set |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1431 this variable differently. */ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1432 Vdisable_point_adjustment = Qnil; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1433 |
518 | 1434 /* Execute the command. */ |
1435 | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1436 Vthis_command = cmd; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1437 real_this_command = cmd; |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1438 /* 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
|
1439 if the symbol is a local variable. */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
1440 if (!NILP (Vpre_command_hook) && !NILP (Vrun_hooks)) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1441 safe_run_hooks (Qpre_command_hook); |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1442 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1443 if (NILP (Vthis_command)) |
518 | 1444 { |
1445 /* nil means key is undefined. */ | |
1446 bitch_at_user (); | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1447 current_kboard->defining_kbd_macro = Qnil; |
518 | 1448 update_mode_lines = 1; |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1449 current_kboard->Vprefix_arg = Qnil; |
518 | 1450 } |
1451 else | |
1452 { | |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1453 if (NILP (current_kboard->Vprefix_arg) && ! no_direct) |
518 | 1454 { |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1455 /* In case we jump to directly_done. */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1456 Vcurrent_prefix_arg = current_kboard->Vprefix_arg; |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1457 |
518 | 1458 /* Recognize some common commands in common situations and |
1459 do them directly. */ | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1460 if (EQ (Vthis_command, Qforward_char) && PT < ZV) |
518 | 1461 { |
13189
104d1e97803c
(command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents:
13108
diff
changeset
|
1462 struct Lisp_Char_Table *dp |
518 | 1463 = window_display_table (XWINDOW (selected_window)); |
22279
e50e9ea93700
(command_loop_1): In shortcuts for forward-char etc,,
Richard M. Stallman <rms@gnu.org>
parents:
22104
diff
changeset
|
1464 lose = FETCH_CHAR (PT_BYTE); |
20539
4eae32c75642
(command_loop_1): Use PT_BYTE when calling FETCH_BYTE.
Richard M. Stallman <rms@gnu.org>
parents:
20496
diff
changeset
|
1465 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
|
1466 if ((dp |
5352
6b91471d9f0f
(command_loop_1): Test of whether disp tab elt
Richard M. Stallman <rms@gnu.org>
parents:
5225
diff
changeset
|
1467 ? (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
|
1468 ? 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
|
1469 : (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
|
1470 && (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
|
1471 : (lose >= 0x20 && lose < 0x7f)) |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
1472 /* To extract the case of continuation on |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
1473 wide-column characters. */ |
20539
4eae32c75642
(command_loop_1): Use PT_BYTE when calling FETCH_BYTE.
Richard M. Stallman <rms@gnu.org>
parents:
20496
diff
changeset
|
1474 && (WIDTH_BY_CHAR_HEAD (FETCH_BYTE (PT_BYTE)) == 1) |
518 | 1475 && (XFASTINT (XWINDOW (selected_window)->last_modified) |
1476 >= MODIFF) | |
16196
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1477 && (XFASTINT (XWINDOW (selected_window)->last_overlay_modified) |
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1478 >= OVERLAY_MODIFF) |
518 | 1479 && (XFASTINT (XWINDOW (selected_window)->last_point) |
7427 | 1480 == PT - 1) |
518 | 1481 && !windows_or_buffers_changed |
1482 && EQ (current_buffer->selective_display, Qnil) | |
1483 && !detect_input_pending () | |
15921
11f4f96a71d2
(command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents:
15716
diff
changeset
|
1484 && NILP (XWINDOW (selected_window)->column_number_displayed) |
518 | 1485 && NILP (Vexecuting_macro)) |
26469
50d43db29617
(command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1486 direct_output_forward_char (1); |
518 | 1487 goto directly_done; |
1488 } | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1489 else if (EQ (Vthis_command, Qbackward_char) && PT > BEGV) |
518 | 1490 { |
13189
104d1e97803c
(command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents:
13108
diff
changeset
|
1491 struct Lisp_Char_Table *dp |
518 | 1492 = window_display_table (XWINDOW (selected_window)); |
20539
4eae32c75642
(command_loop_1): Use PT_BYTE when calling FETCH_BYTE.
Richard M. Stallman <rms@gnu.org>
parents:
20496
diff
changeset
|
1493 SET_PT (PT - 1); |
22279
e50e9ea93700
(command_loop_1): In shortcuts for forward-char etc,,
Richard M. Stallman <rms@gnu.org>
parents:
22104
diff
changeset
|
1494 lose = FETCH_CHAR (PT_BYTE); |
2097
dd4410e55081
* keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents:
2061
diff
changeset
|
1495 if ((dp |
7532
996928472982
(command_loop_1): Fix test for valid display table entry,
Richard M. Stallman <rms@gnu.org>
parents:
7502
diff
changeset
|
1496 ? (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
|
1497 ? 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
|
1498 : (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
|
1499 && (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
|
1500 : (lose >= 0x20 && lose < 0x7f)) |
518 | 1501 && (XFASTINT (XWINDOW (selected_window)->last_modified) |
1502 >= MODIFF) | |
16196
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1503 && (XFASTINT (XWINDOW (selected_window)->last_overlay_modified) |
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1504 >= OVERLAY_MODIFF) |
518 | 1505 && (XFASTINT (XWINDOW (selected_window)->last_point) |
7427 | 1506 == PT + 1) |
518 | 1507 && !windows_or_buffers_changed |
1508 && EQ (current_buffer->selective_display, Qnil) | |
1509 && !detect_input_pending () | |
15921
11f4f96a71d2
(command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents:
15716
diff
changeset
|
1510 && NILP (XWINDOW (selected_window)->column_number_displayed) |
518 | 1511 && NILP (Vexecuting_macro)) |
26469
50d43db29617
(command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1512 direct_output_forward_char (-1); |
518 | 1513 goto directly_done; |
1514 } | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1515 else if (EQ (Vthis_command, Qself_insert_command) |
518 | 1516 /* 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
|
1517 && INTEGERP (last_command_char)) |
518 | 1518 { |
17738
f20c2a909ad3
(command_loop_1): Use an int for last_command_char.
Richard M. Stallman <rms@gnu.org>
parents:
17719
diff
changeset
|
1519 unsigned int c = XINT (last_command_char); |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1520 int value; |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1521 if (NILP (Vexecuting_macro) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1522 && !EQ (minibuf_window, selected_window)) |
518 | 1523 { |
1524 if (!nonundocount || nonundocount >= 20) | |
1525 { | |
1526 Fundo_boundary (); | |
1527 nonundocount = 0; | |
1528 } | |
1529 nonundocount++; | |
1530 } | |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1531 |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1532 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
|
1533 < MODIFF) |
16196
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1534 || (XFASTINT (XWINDOW (selected_window)->last_overlay_modified) |
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1535 < OVERLAY_MODIFF) |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1536 || (XFASTINT (XWINDOW (selected_window)->last_point) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1537 != PT) |
10309
fe2243b3186b
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10275
diff
changeset
|
1538 || MODIFF <= SAVE_MODIFF |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1539 || windows_or_buffers_changed |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1540 || !EQ (current_buffer->selective_display, Qnil) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1541 || detect_input_pending () |
15921
11f4f96a71d2
(command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents:
15716
diff
changeset
|
1542 || !NILP (XWINDOW (selected_window)->column_number_displayed) |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1543 || !NILP (Vexecuting_macro)); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1544 |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1545 value = internal_self_insert (c, 0); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1546 |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1547 if (value == 2) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1548 nonundocount = 0; |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1549 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1550 /* VALUE == 1 when AFTER-CHANGE functions are |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1551 installed which is the case most of the time |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1552 because FONT-LOCK installs one. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1553 if (!lose && !value) |
26469
50d43db29617
(command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1554 direct_output_for_insert (c); |
518 | 1555 goto directly_done; |
1556 } | |
1557 } | |
1558 | |
1559 /* Here for a command that isn't executed directly */ | |
1560 | |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1561 #ifdef HAVE_X_WINDOWS |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1562 if (display_busy_cursor_p) |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
1563 start_busy_cursor (); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1564 #endif |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1565 |
518 | 1566 nonundocount = 0; |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1567 if (NILP (current_kboard->Vprefix_arg)) |
518 | 1568 Fundo_boundary (); |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1569 Fcommand_execute (Vthis_command, Qnil, Qnil, Qnil); |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
1570 |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
1571 #ifdef HAVE_X_WINDOWS |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
1572 if (display_busy_cursor_p) |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
1573 cancel_busy_cursor (); |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
1574 #endif |
518 | 1575 } |
547 | 1576 directly_done: ; |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1577 current_kboard->Vlast_prefix_arg = Vcurrent_prefix_arg; |
518 | 1578 |
20783
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1579 /* Note that the value cell will never directly contain nil |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1580 if the symbol is a local variable. */ |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1581 if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks)) |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1582 safe_run_hooks (Qpost_command_hook); |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1583 |
25657
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1584 /* If displaying a message, resize the echo area window to fit |
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1585 that message's size exactly. */ |
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1586 if (!NILP (echo_area_buffer[0])) |
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1587 resize_echo_area_axactly (); |
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1588 |
20783
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1589 if (!NILP (Vdeferred_action_list)) |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1590 safe_run_hooks (Qdeferred_action_function); |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1591 |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1592 if (!NILP (Vpost_command_idle_hook) && !NILP (Vrun_hooks)) |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1593 { |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1594 if (NILP (Vunread_command_events) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
1595 && NILP (Vunread_input_method_events) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
1596 && NILP (Vunread_post_input_method_events) |
20783
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1597 && NILP (Vexecuting_macro) |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1598 && !NILP (sit_for (0, post_command_idle_delay, 0, 1, 1))) |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1599 safe_run_hooks (Qpost_command_idle_hook); |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1600 } |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1601 |
518 | 1602 /* If there is a prefix argument, |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
1603 1) We don't want Vlast_command to be ``universal-argument'' |
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
1604 (that would be dumb), so don't set Vlast_command, |
518 | 1605 2) we want to leave echoing on so that the prefix will be |
1606 echoed as part of this key sequence, so don't call | |
1607 cancel_echoing, and | |
1608 3) we want to leave this_command_key_count non-zero, so that | |
1609 read_char will realize that it is re-reading a character, and | |
12264 | 1610 not echo it a second time. |
1611 | |
1612 If the command didn't actually create a prefix arg, | |
1613 but is merely a frame event that is transparent to prefix args, | |
1614 then the above doesn't apply. */ | |
1615 if (NILP (current_kboard->Vprefix_arg) || CONSP (last_command_char)) | |
518 | 1616 { |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1617 current_kboard->Vlast_command = Vthis_command; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1618 current_kboard->Vreal_last_command = real_this_command; |
518 | 1619 cancel_echoing (); |
1620 this_command_key_count = 0; | |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
1621 this_single_command_key_start = 0; |
518 | 1622 } |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1623 |
6208
db4139d43f8a
(command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents:
6204
diff
changeset
|
1624 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
|
1625 { |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1626 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
|
1627 { |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1628 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
|
1629 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
|
1630 } |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1631 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
|
1632 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
|
1633 } |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1634 |
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1635 finalize: |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1636 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1637 if (current_buffer == prev_buffer |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1638 && last_point_position != PT |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1639 && NILP (Vdisable_point_adjustment) |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1640 && NILP (Vglobal_disable_point_adjustment)) |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1641 adjust_point_for_property (last_point_position); |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1642 |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1643 /* Install chars successfully executed in kbd macro. */ |
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1644 |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1645 if (!NILP (current_kboard->defining_kbd_macro) |
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1646 && NILP (current_kboard->Vprefix_arg)) |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1647 finalize_kbd_macro_chars (); |
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1648 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1649 #ifdef MULTI_KBOARD |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
1650 if (!was_locked) |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1651 any_kboard_state (); |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1652 #endif |
518 | 1653 } |
1654 } | |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1655 |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1656 extern Lisp_Object Qcomposition, Qdisplay; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1657 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1658 /* Adjust point to a boundary of a region that has such a property |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1659 that should be treated intangible. For the moment, we check |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1660 `composition' and `display' property. LAST_PT is the last position |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1661 of point. */ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1662 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1663 static void |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1664 adjust_point_for_property (last_pt) |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1665 int last_pt; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1666 { |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1667 int start, end; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1668 Lisp_Object val; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1669 int check_composition = 1, check_display = 1; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1670 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1671 while (check_composition || check_display) |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1672 { |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1673 if (check_composition |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1674 && PT > BEGV && PT < ZV |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1675 && get_property_and_range (PT, Qcomposition, &val, &start, &end, Qnil) |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1676 && COMPOSITION_VALID_P (start, end, val) |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1677 && start < PT && end > PT |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1678 && (last_pt <= start || last_pt >= end)) |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1679 { |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1680 if (PT < last_pt) |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1681 SET_PT (start); |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1682 else |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1683 SET_PT (end); |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1684 check_display = 1; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1685 } |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1686 check_composition = 0; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1687 if (check_display |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1688 && PT > BEGV && PT < ZV |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1689 && get_property_and_range (PT, Qdisplay, &val, &start, &end, Qnil) |
29816
6863a9ae42d6
(adjust_point_for_property): Check if display
Gerd Moellmann <gerd@gnu.org>
parents:
29729
diff
changeset
|
1690 && display_prop_intangible_p (val) |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1691 && start < PT && end > PT |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1692 && (last_pt <= start || last_pt >= end)) |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1693 { |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1694 if (PT < last_pt) |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1695 SET_PT (start); |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1696 else |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1697 SET_PT (end); |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1698 check_composition = 1; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1699 } |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1700 check_display = 0; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1701 } |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1702 } |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1703 |
11540
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1704 /* Subroutine for safe_run_hooks: run the hook HOOK. */ |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1705 |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1706 static Lisp_Object |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1707 safe_run_hooks_1 (hook) |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1708 Lisp_Object hook; |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1709 { |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1710 return call1 (Vrun_hooks, Vinhibit_quit); |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1711 } |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1712 |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1713 /* Subroutine for safe_run_hooks: handle an error by clearing out the hook. */ |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1714 |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1715 static Lisp_Object |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1716 safe_run_hooks_error (data) |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1717 Lisp_Object data; |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1718 { |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
1719 return Fset (Vinhibit_quit, Qnil); |
11540
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1720 } |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1721 |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1722 /* 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
|
1723 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
|
1724 to mysteriously evaporate. */ |
11540
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1725 |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
1726 void |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1727 safe_run_hooks (hook) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1728 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
|
1729 { |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1730 int count = specpdl_ptr - specpdl; |
11540
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1731 specbind (Qinhibit_quit, hook); |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
1732 |
14219
22324381ef74
(safe_run_hooks): Use Qt, not Qerror, to avoid running the debugger.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
1733 internal_condition_case (safe_run_hooks_1, Qt, safe_run_hooks_error); |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1734 |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1735 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
|
1736 } |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1737 |
518 | 1738 |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1739 /* Number of seconds between polling for input. This is a Lisp |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1740 variable that can be bound. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1741 |
518 | 1742 int polling_period; |
1743 | |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3538
diff
changeset
|
1744 /* Nonzero means polling for input is temporarily suppressed. */ |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1745 |
518 | 1746 int poll_suppress_count; |
1747 | |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1748 /* Asynchronous timer for polling. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1749 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1750 struct atimer *poll_timer; |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1751 |
8653
07cc798f5cab
(polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
8589
diff
changeset
|
1752 |
518 | 1753 #ifdef POLL_FOR_INPUT |
1754 | |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1755 /* Poll for input, so what we catch a C-g if it comes in. This |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1756 function is called from x_make_frame_visible, see comment |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1757 there. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1758 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1759 void |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1760 poll_for_input_1 () |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1761 { |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
1762 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
|
1763 && !waiting_for_input) |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
1764 read_avail_input (0); |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1765 } |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1766 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1767 /* Timer callback function for poll_timer. TIMER is equal to |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1768 poll_timer. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1769 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1770 void |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1771 poll_for_input (timer) |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1772 struct atimer *timer; |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1773 { |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1774 if (poll_suppress_count == 0) |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1775 poll_for_input_1 (); |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1776 } |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1777 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1778 #endif /* POLL_FOR_INPUT */ |
518 | 1779 |
1780 /* Begin signals to poll for input, if they are appropriate. | |
1781 This function is called unconditionally from various places. */ | |
1782 | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
1783 void |
518 | 1784 start_polling () |
1785 { | |
1786 #ifdef POLL_FOR_INPUT | |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
1787 if (read_socket_hook && !interrupt_input) |
518 | 1788 { |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1789 /* Turn alarm handling on unconditionally. It might have |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1790 been turned off in process.c. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1791 turn_on_atimers (1); |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1792 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1793 /* If poll timer doesn't exist, are we need one with |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1794 a different interval, start a new one. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1795 if (poll_timer == NULL |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1796 || EMACS_SECS (poll_timer->interval) != polling_period) |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1797 { |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1798 EMACS_TIME interval; |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1799 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1800 if (poll_timer) |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1801 cancel_atimer (poll_timer); |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1802 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1803 EMACS_SET_SECS_USECS (interval, polling_period, 0); |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1804 poll_timer = start_atimer (ATIMER_CONTINUOUS, interval, |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1805 poll_for_input, NULL); |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1806 } |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1807 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1808 /* Let the timer's callback function poll for input |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1809 if this becomes zero. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1810 --poll_suppress_count; |
518 | 1811 } |
1812 #endif | |
1813 } | |
1814 | |
8673
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1815 /* 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
|
1816 |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1817 int |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1818 input_polling_used () |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1819 { |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1820 #ifdef POLL_FOR_INPUT |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1821 return read_socket_hook && !interrupt_input; |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1822 #else |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1823 return 0; |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1824 #endif |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1825 } |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
1826 |
518 | 1827 /* Turn off polling. */ |
1828 | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
1829 void |
518 | 1830 stop_polling () |
1831 { | |
1832 #ifdef POLL_FOR_INPUT | |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
1833 if (read_socket_hook && !interrupt_input) |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
1834 ++poll_suppress_count; |
518 | 1835 #endif |
1836 } | |
4475
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1837 |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1838 /* 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
|
1839 and start or stop polling accordingly. */ |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1840 |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1841 void |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1842 set_poll_suppress_count (count) |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1843 int count; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1844 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1845 #ifdef POLL_FOR_INPUT |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1846 if (count == 0 && poll_suppress_count != 0) |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1847 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1848 poll_suppress_count = 1; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1849 start_polling (); |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1850 } |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1851 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
|
1852 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1853 stop_polling (); |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1854 } |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1855 poll_suppress_count = count; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1856 #endif |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
1857 } |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1858 |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1859 /* 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
|
1860 But don't decrease it. */ |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1861 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
1862 void |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1863 bind_polling_period (n) |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1864 int n; |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1865 { |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1866 #ifdef POLL_FOR_INPUT |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1867 int new = polling_period; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1868 |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1869 if (n > new) |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1870 new = n; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1871 |
27668
be97ea826e95
(bind_polling_period): Stop all timers except
Gerd Moellmann <gerd@gnu.org>
parents:
27431
diff
changeset
|
1872 stop_other_atimers (poll_timer); |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1873 stop_polling (); |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1874 specbind (Qpolling_period, make_number (new)); |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
1875 /* 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
|
1876 start_polling (); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1877 #endif |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
1878 } |
518 | 1879 |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
1880 /* Apply the control modifier to CHARACTER. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
1881 |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1882 int |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1883 make_ctrl_char (c) |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1884 int c; |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1885 { |
2954
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1886 /* Save the upper bits here. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1887 int upper = c & ~0177; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1888 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1889 c &= 0177; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1890 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1891 /* Everything in the columns containing the upper-case letters |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1892 denotes a control character. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1893 if (c >= 0100 && c < 0140) |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1894 { |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1895 int oc = c; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1896 c &= ~0140; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1897 /* Set the shift modifier for a control char |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1898 made from a shifted letter. But only for letters! */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1899 if (oc >= 'A' && oc <= 'Z') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1900 c |= shift_modifier; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1901 } |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1902 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1903 /* The lower-case letters denote control characters too. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1904 else if (c >= 'a' && c <= 'z') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1905 c &= ~0140; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1906 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1907 /* Include the bits for control and shift |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1908 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
|
1909 else if (c >= ' ') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1910 c |= ctrl_modifier; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1911 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1912 /* Replace the high bits. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
1913 c |= (upper & ~ctrl_modifier); |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1914 |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1915 return c; |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1916 } |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1917 |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1918 /* Display help echo in the echo area. |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1919 |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1920 HELP a string means display that string, HELP nil means clear the |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1921 help echo. If HELP is a function, call it with OBJECT and POS as |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1922 arguments; the function should return a help string or nil for |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1923 none. For all other types of HELP evaluate it to obtain a string. |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1924 |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
1925 WINDOW is the window in which the help was generated, if any. |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
1926 It is nil if not in a window. |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
1927 |
30368
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
1928 If OBJECT is a buffer, POS is the position in the buffer where the |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
1929 `help-echo' text property was found. |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
1930 |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
1931 If OBJECT is an overlay, that overlay has a `help-echo' property, |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
1932 and POS is the position in the overlay's buffer under the mouse. |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
1933 |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
1934 If OBJECT is a string (an overlay string or a string displayed with |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
1935 the `display' property). POS is the position in that string under |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
1936 the mouse. |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1937 |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1938 OK_TO_IVERWRITE_KEYSTROKE_ECHO non-zero means it's okay if the help |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1939 echo overwrites a keystroke echo currently displayed in the echo |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1940 area. |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1941 |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1942 Note: this function may only be called with HELP nil or a string |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1943 from X code running asynchronously. */ |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1944 |
30051
70d9d51a864c
(show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29816
diff
changeset
|
1945 void |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
1946 show_help_echo (help, window, object, pos, ok_to_overwrite_keystroke_echo) |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
1947 Lisp_Object help, window, object, pos; |
30142
5bfb859adb13
(show_help_echo): Accept additional parameter
Eli Zaretskii <eliz@gnu.org>
parents:
30051
diff
changeset
|
1948 int ok_to_overwrite_keystroke_echo; |
30051
70d9d51a864c
(show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29816
diff
changeset
|
1949 { |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1950 if (!NILP (help) && !STRINGP (help)) |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1951 { |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1952 if (FUNCTIONP (help)) |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1953 { |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
1954 Lisp_Object args[4]; |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1955 args[0] = help; |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
1956 args[1] = window; |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
1957 args[2] = object; |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
1958 args[3] = pos; |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
1959 help = call_function (4, args); |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1960 } |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1961 else |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1962 help = eval_form (help); |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1963 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1964 if (!STRINGP (help)) |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1965 return; |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1966 } |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1967 |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1968 if (STRINGP (help) || NILP (help)) |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1969 { |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1970 if (!NILP (Vshow_help_function)) |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1971 call1 (Vshow_help_function, help); |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1972 else if (/* Don't overwrite minibuffer contents. */ |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1973 !MINI_WINDOW_P (XWINDOW (selected_window)) |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1974 /* Don't overwrite a keystroke echo. */ |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1975 && (NILP (echo_message_buffer) |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1976 || ok_to_overwrite_keystroke_echo) |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1977 /* Don't overwrite a prompt. */ |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1978 && !cursor_in_echo_area) |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1979 { |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1980 if (STRINGP (help)) |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1981 { |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1982 int count = specpdl_ptr - specpdl; |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1983 specbind (Qmessage_truncate_lines, Qt); |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1984 message3_nolog (help, XSTRING (help)->size, |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
1985 STRING_MULTIBYTE (help)); |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1986 unbind_to (count, Qnil); |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1987 } |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1988 else |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1989 message (0); |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1990 } |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
1991 } |
30051
70d9d51a864c
(show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29816
diff
changeset
|
1992 } |
70d9d51a864c
(show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29816
diff
changeset
|
1993 |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1994 |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
1995 |
518 | 1996 /* Input of single characters from keyboard */ |
1997 | |
1998 Lisp_Object print_help (); | |
1999 static Lisp_Object kbd_buffer_get_event (); | |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2000 static void record_char (); |
518 | 2001 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2002 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2003 static jmp_buf wrong_kboard_jmpbuf; |
10820
5bef43a53c01
(display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents:
10800
diff
changeset
|
2004 #endif |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2005 |
518 | 2006 /* read a character from the keyboard; call the redisplay if needed */ |
2007 /* commandflag 0 means do not do auto-saving, but do do redisplay. | |
2008 -1 means do not do redisplay, but do do autosaving. | |
2009 1 means do both. */ | |
2010 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2011 /* 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
|
2012 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
|
2013 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2014 PREV_EVENT is the previous input event, or nil if we are reading |
23065
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2015 the first event of a key sequence (or not reading a key sequence). |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2016 If PREV_EVENT is t, that is a "magic" value that says |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2017 not to run input methods, but in other respects to act as if |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2018 not reading a key sequence. |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2019 |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2020 If USED_MOUSE_MENU is non-null, then we set *USED_MOUSE_MENU to 1 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
2021 if we used a mouse menu to read the input, or zero otherwise. If |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2022 USED_MOUSE_MENU is null, we don't dereference it. |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
2023 |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
2024 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
|
2025 |
518 | 2026 Lisp_Object |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2027 read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu) |
518 | 2028 int commandflag; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2029 int nmaps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2030 Lisp_Object *maps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2031 Lisp_Object prev_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2032 int *used_mouse_menu; |
518 | 2033 { |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
2034 volatile Lisp_Object c; |
518 | 2035 int count; |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2036 jmp_buf local_getcjmp; |
518 | 2037 jmp_buf save_jump; |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
2038 volatile int key_already_recorded = 0; |
12476
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
2039 Lisp_Object tem, save; |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
2040 volatile Lisp_Object previous_echo_area_message; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
2041 volatile Lisp_Object also_record; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
2042 volatile int reread; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2043 struct gcpro gcpro1, gcpro2; |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2044 |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2045 also_record = Qnil; |
518 | 2046 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
2047 before_command_key_count = this_command_key_count; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
2048 before_command_echo_length = echo_length (); |
18944
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2049 c = Qnil; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2050 previous_echo_area_message = Qnil; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2051 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2052 GCPRO2 (c, previous_echo_area_message); |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2053 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2054 retry: |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2055 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2056 reread = 0; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2057 if (CONSP (Vunread_post_input_method_events)) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2058 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2059 c = XCAR (Vunread_post_input_method_events); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2060 Vunread_post_input_method_events |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2061 = XCDR (Vunread_post_input_method_events); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2062 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2063 /* Undo what read_char_x_menu_prompt did when it unread |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2064 additional keys returned by Fx_popup_menu. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2065 if (CONSP (c) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2066 && (SYMBOLP (XCAR (c)) || INTEGERP (XCAR (c))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2067 && NILP (XCDR (c))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2068 c = XCAR (c); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2069 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2070 reread = 1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2071 goto reread_first; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2072 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2073 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2074 if (unread_command_char != -1) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2075 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2076 XSETINT (c, unread_command_char); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2077 unread_command_char = -1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2078 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2079 reread = 1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2080 goto reread_first; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2081 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2082 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
2083 if (CONSP (Vunread_command_events)) |
518 | 2084 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2085 c = XCAR (Vunread_command_events); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2086 Vunread_command_events = XCDR (Vunread_command_events); |
518 | 2087 |
13638
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
2088 /* Undo what read_char_x_menu_prompt did when it unread |
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
2089 additional keys returned by Fx_popup_menu. */ |
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
2090 if (CONSP (c) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2091 && (SYMBOLP (XCAR (c)) || INTEGERP (XCAR (c))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2092 && NILP (XCDR (c))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2093 c = XCAR (c); |
13638
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
2094 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2095 reread = 1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2096 goto reread_for_input_method; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2097 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2098 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2099 if (CONSP (Vunread_input_method_events)) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2100 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2101 c = XCAR (Vunread_input_method_events); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2102 Vunread_input_method_events = XCDR (Vunread_input_method_events); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2103 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2104 /* Undo what read_char_x_menu_prompt did when it unread |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2105 additional keys returned by Fx_popup_menu. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2106 if (CONSP (c) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2107 && (SYMBOLP (XCAR (c)) || INTEGERP (XCAR (c))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2108 && NILP (XCDR (c))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2109 c = XCAR (c); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2110 reread = 1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2111 goto reread_for_input_method; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2112 } |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2113 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
2114 /* If there is no function key translated before |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
2115 reset-this-command-lengths takes effect, forget about it. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
2116 before_command_restore_flag = 0; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
2117 |
518 | 2118 if (!NILP (Vexecuting_macro)) |
2119 { | |
1239
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
2120 /* 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
|
2121 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
|
2122 remain unchanged. |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
2123 |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
2124 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
|
2125 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
|
2126 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
|
2127 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
|
2128 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
|
2129 selected. */ |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2130 Vlast_event_frame = internal_last_event_frame = Qmacro; |
1239
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
2131 |
2719
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
2132 /* 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
|
2133 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
|
2134 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
|
2135 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
|
2136 || executing_macro_index >= XFASTINT (Flength (Vexecuting_macro))) |
518 | 2137 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2138 XSETINT (c, -1); |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2139 RETURN_UNGCPRO (c); |
518 | 2140 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2141 |
518 | 2142 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
|
2143 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
|
2144 && (XINT (c) & 0x80)) |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
2145 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
|
2146 |
518 | 2147 executing_macro_index++; |
2148 | |
2149 goto from_macro; | |
2150 } | |
2151 | |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2152 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
|
2153 { |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2154 c = unread_switch_frame; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2155 unread_switch_frame = Qnil; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2156 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2157 /* This event should make it into this_command_keys, and get echoed |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2158 again, so we do not set `reread'. */ |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
2159 goto reread_first; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2160 } |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2161 |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2162 /* if redisplay was requested */ |
18501
37f4c7aeb5a8
(read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents:
18405
diff
changeset
|
2163 if (commandflag >= 0) |
37f4c7aeb5a8
(read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents:
18405
diff
changeset
|
2164 { |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2165 /* If there is pending input, process any events which are not |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2166 user-visible, such as X selection_request events. */ |
18501
37f4c7aeb5a8
(read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents:
18405
diff
changeset
|
2167 if (input_pending |
37f4c7aeb5a8
(read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents:
18405
diff
changeset
|
2168 || detect_input_pending_run_timers (0)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2169 swallow_events (0); /* may clear input_pending */ |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2170 |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2171 /* Redisplay if no pending input. */ |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2172 while (!input_pending) |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2173 { |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2174 redisplay (); |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2175 |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2176 if (!input_pending) |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2177 /* Normal case: no input arrived during redisplay. */ |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2178 break; |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2179 |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2180 /* Input arrived and pre-empted redisplay. |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2181 Process any events which are not user-visible. */ |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2182 swallow_events (0); |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2183 /* If that cleared input_pending, try again to redisplay. */ |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2184 } |
18501
37f4c7aeb5a8
(read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents:
18405
diff
changeset
|
2185 } |
518 | 2186 |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2187 /* Message turns off echoing unless more keystrokes turn it on again. |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2188 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2189 The code in 20.x for the condition was |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2190 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2191 1. echo_area_glyphs && *echo_area_glyphs |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2192 2. && echo_area_glyphs != current_kboard->echobuf |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2193 3. && ok_to_echo_at_next_pause != echo_area_glyphs |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2194 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2195 (1) means there's a current message displayed |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2196 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2197 (2) means it's not the message from echoing from the current |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2198 kboard. |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2199 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2200 (3) There's only one place in 20.x where ok_to_echo_at_next_pause |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2201 is set to a non-null value. This is done in read_char and it is |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2202 set to echo_area_glyphs after a call to echo_char. That means |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2203 ok_to_echo_at_next_pause is either null or |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2204 current_kboard->echobuf with the appropriate current_kboard at |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2205 that time. |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2206 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2207 So, condition (3) means in clear text ok_to_echo_at_next_pause |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2208 must be either null, or the current message isn't from echoing at |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2209 all, or it's from echoing from a different kboard than the |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2210 current one. */ |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2211 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2212 if (/* There currently something in the echo area */ |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2213 !NILP (echo_area_buffer[0]) |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2214 && (/* And it's either not from echoing. */ |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2215 !EQ (echo_area_buffer[0], echo_message_buffer) |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2216 /* Or it's an echo from a different kboard. */ |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2217 || echo_kboard != current_kboard |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2218 /* Or we explicitly allow overwriting whatever there is. */ |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2219 || ok_to_echo_at_next_pause == NULL)) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2220 cancel_echoing (); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2221 else |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2222 echo_dash (); |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2223 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2224 /* Try reading a character via menu prompting in the minibuf. |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2225 Try this before the sit-for, because the sit-for |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2226 would do the wrong thing if we are supposed to do |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2227 menu prompting. If EVENT_HAS_PARAMETERS then we are reading |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2228 after a mouse event so don't try a minibuf menu. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2229 c = Qnil; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2230 if (nmaps > 0 && INTERACTIVE |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2231 && !NILP (prev_event) && ! EVENT_HAS_PARAMETERS (prev_event) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2232 /* Don't bring up a menu if we already have another event. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2233 && NILP (Vunread_command_events) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2234 && unread_command_char < 0 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2235 && !detect_input_pending_run_timers (0)) |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2236 { |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2237 c = read_char_minibuf_menu_prompt (commandflag, nmaps, maps); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2238 if (! NILP (c)) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2239 { |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2240 key_already_recorded = 1; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2241 goto non_reread_1; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2242 } |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2243 } |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2244 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2245 /* Make a longjmp point for quits to use, but don't alter getcjmp just yet. |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2246 We will do that below, temporarily for short sections of code, |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2247 when appropriate. local_getcjmp must be in effect |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2248 around any call to sit_for or kbd_buffer_get_event; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2249 it *must not* be in effect when we call redisplay. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2250 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2251 if (_setjmp (local_getcjmp)) |
518 | 2252 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2253 XSETINT (c, quit_char); |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
2254 internal_last_event_frame = selected_frame; |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2255 Vlast_event_frame = internal_last_event_frame; |
2434
39c696510c64
(read_char): Clear Vquit_flag when we return C-g for it.
Richard M. Stallman <rms@gnu.org>
parents:
2406
diff
changeset
|
2256 /* 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
|
2257 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
|
2258 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
|
2259 Vquit_flag = Qnil; |
518 | 2260 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2261 #ifdef MULTI_KBOARD |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2262 { |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
2263 KBOARD *kb = FRAME_KBOARD (XFRAME (selected_frame)); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2264 if (kb != current_kboard) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2265 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2266 Lisp_Object *tailp = &kb->kbd_queue; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2267 /* We shouldn't get here if we were in single-kboard mode! */ |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2268 if (single_kboard) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2269 abort (); |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2270 while (CONSP (*tailp)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2271 tailp = &XCDR (*tailp); |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2272 if (!NILP (*tailp)) |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2273 abort (); |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2274 *tailp = Fcons (c, Qnil); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2275 kb->kbd_queue_has_data = 1; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2276 current_kboard = kb; |
18944
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2277 /* This is going to exit from read_char |
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2278 so we had better get rid of this frame's stuff. */ |
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2279 UNGCPRO; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2280 longjmp (wrong_kboard_jmpbuf, 1); |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2281 } |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2282 } |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2283 #endif |
518 | 2284 goto non_reread; |
2285 } | |
2286 | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2287 timer_start_idle (); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2288 |
518 | 2289 /* If in middle of key sequence and minibuffer not active, |
2290 start echoing if enough time elapses. */ | |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2291 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2292 if (minibuf_level == 0 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2293 && !current_kboard->immediate_echo |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
2294 && 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
|
2295 && ! noninteractive |
27769
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
2296 && (FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes)) |
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
2297 && NILP (Fzerop (Vecho_keystrokes)) |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2298 && (/* No message. */ |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2299 NILP (echo_area_buffer[0]) |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2300 /* Or empty message. */ |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2301 || (BUF_BEG (XBUFFER (echo_area_buffer[0])) |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2302 == BUF_Z (XBUFFER (echo_area_buffer[0]))) |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2303 /* Or already echoing from same kboard. */ |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2304 || (echo_kboard && ok_to_echo_at_next_pause == echo_kboard) |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2305 /* Or not echoing before and echoing allowed. */ |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2306 || (!echo_kboard && ok_to_echo_at_next_pause))) |
518 | 2307 { |
2308 Lisp_Object tem0; | |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2309 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2310 /* After a mouse event, start echoing right away. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2311 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
|
2312 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
|
2313 if (EVENT_HAS_PARAMETERS (prev_event)) |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
2314 echo_now (); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2315 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2316 { |
27766
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
2317 int sec, usec; |
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
2318 double duration = extract_float (Vecho_keystrokes); |
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
2319 sec = (int) duration; |
27880
27d91702f2e8
(read_char): Set `usec' correctly.
Kenichi Handa <handa@m17n.org>
parents:
27867
diff
changeset
|
2320 usec = (duration - sec) * 1000000; |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2321 save_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2322 restore_getcjmp (local_getcjmp); |
27766
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
2323 tem0 = sit_for (sec, usec, 1, 1, 0); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2324 restore_getcjmp (save_jump); |
18231
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2325 if (EQ (tem0, Qt) |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2326 && ! CONSP (Vunread_command_events)) |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
2327 echo_now (); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2328 } |
518 | 2329 } |
2330 | |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2331 /* Maybe auto save due to number of keystrokes. */ |
518 | 2332 |
2333 if (commandflag != 0 | |
2334 && auto_save_interval > 0 | |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
2335 && num_nonmacro_input_events - last_auto_save > max (auto_save_interval, 20) |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2336 && !detect_input_pending_run_timers (0)) |
518 | 2337 { |
2338 Fdo_auto_save (Qnil, Qnil); | |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
2339 /* Hooks can actually change some buffers in auto save. */ |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
2340 redisplay (); |
518 | 2341 } |
2342 | |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
2343 /* 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
|
2344 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
|
2345 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
|
2346 does not pass on any keymaps. */ |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2347 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
2348 if (nmaps > 0 && INTERACTIVE |
11613
c4ef6460a9c9
(read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents:
11543
diff
changeset
|
2349 && !NILP (prev_event) |
c4ef6460a9c9
(read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents:
11543
diff
changeset
|
2350 && EVENT_HAS_PARAMETERS (prev_event) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2351 && !EQ (XCAR (prev_event), Qmenu_bar) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2352 && !EQ (XCAR (prev_event), Qtool_bar) |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
2353 /* 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
|
2354 && NILP (Vunread_command_events) |
7396
3774d6d8a5ee
(read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents:
7351
diff
changeset
|
2355 && unread_command_char < 0) |
16750
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2356 { |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2357 c = read_char_x_menu_prompt (nmaps, maps, prev_event, used_mouse_menu); |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2358 |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2359 /* Now that we have read an event, Emacs is not idle. */ |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2360 timer_stop_idle (); |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2361 |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2362 RETURN_UNGCPRO (c); |
16750
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2363 } |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2364 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2365 /* Maybe autosave and/or garbage collect due to idleness. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2366 |
3920
81d29cf5b232
* keyboard.c (read_char): Don't do idle autosaves if we're not
Jim Blandy <jimb@redhat.com>
parents:
3887
diff
changeset
|
2367 if (INTERACTIVE && NILP (c)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2368 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2369 int delay_level, buffer_size; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2370 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2371 /* Slow down auto saves logarithmically in size of current buffer, |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2372 and garbage collect while we're at it. */ |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2373 if (! MINI_WINDOW_P (XWINDOW (selected_window))) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2374 last_non_minibuf_size = Z - BEG; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2375 buffer_size = (last_non_minibuf_size >> 8) + 1; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2376 delay_level = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2377 while (buffer_size > 64) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2378 delay_level++, buffer_size -= buffer_size >> 2; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2379 if (delay_level < 4) delay_level = 4; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2380 /* 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
|
2381 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
|
2382 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2383 /* 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
|
2384 if (commandflag != 0 |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
2385 && num_nonmacro_input_events > last_auto_save |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2386 && INTEGERP (Vauto_save_timeout) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2387 && XINT (Vauto_save_timeout) > 0) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2388 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2389 Lisp_Object tem0; |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2390 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2391 save_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2392 restore_getcjmp (local_getcjmp); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2393 tem0 = sit_for (delay_level * XFASTINT (Vauto_save_timeout) / 4, |
17967
08bf89d739cd
(command_loop_1): Pass 1 as new arg to sit_for.
Richard M. Stallman <rms@gnu.org>
parents:
17890
diff
changeset
|
2394 0, 1, 1, 0); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2395 restore_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2396 |
18231
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2397 if (EQ (tem0, Qt) |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2398 && ! CONSP (Vunread_command_events)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2399 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2400 Fdo_auto_save (Qnil, Qnil); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2401 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2402 /* 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
|
2403 available, garbage collect if there has been enough |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2404 consing going on to make it worthwhile. */ |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2405 if (!detect_input_pending_run_timers (0) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2406 && consing_since_gc > gc_cons_threshold / 2) |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
2407 Fgarbage_collect (); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2408 |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
2409 redisplay (); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2410 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2411 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2412 } |
518 | 2413 |
18231
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2414 /* If this has become non-nil here, it has been set by a timer |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2415 or sentinel or filter. */ |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2416 if (CONSP (Vunread_command_events)) |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2417 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2418 c = XCAR (Vunread_command_events); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2419 Vunread_command_events = XCDR (Vunread_command_events); |
18231
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2420 } |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2421 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2422 /* Read something from current KBOARD's side queue, if possible. */ |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2423 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2424 if (NILP (c)) |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2425 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2426 if (current_kboard->kbd_queue_has_data) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2427 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2428 if (!CONSP (current_kboard->kbd_queue)) |
10945
dbf1aab47502
(unlock_display): If adding to kbd_queue, set kbd_queue_has_data.
Karl Heuer <kwzh@gnu.org>
parents:
10939
diff
changeset
|
2429 abort (); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2430 c = XCAR (current_kboard->kbd_queue); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2431 current_kboard->kbd_queue |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2432 = XCDR (current_kboard->kbd_queue); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2433 if (NILP (current_kboard->kbd_queue)) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2434 current_kboard->kbd_queue_has_data = 0; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2435 input_pending = readable_events (0); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2436 if (EVENT_HAS_PARAMETERS (c) |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2437 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qswitch_frame)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2438 internal_last_event_frame = XCAR (XCDR (c)); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2439 Vlast_event_frame = internal_last_event_frame; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2440 } |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2441 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2442 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2443 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2444 /* If current_kboard's side queue is empty check the other kboards. |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2445 If one of them has data that we have not yet seen here, |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2446 switch to it and process the data waiting for it. |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2447 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2448 Note: if the events queued up for another kboard |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2449 have already been seen here, and therefore are not a complete command, |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2450 the kbd_queue_has_data field is 0, so we skip that kboard here. |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2451 That's to avoid an infinite loop switching between kboards here. */ |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2452 if (NILP (c) && !single_kboard) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2453 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2454 KBOARD *kb; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2455 for (kb = all_kboards; kb; kb = kb->next_kboard) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2456 if (kb->kbd_queue_has_data) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2457 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2458 current_kboard = kb; |
18944
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2459 /* This is going to exit from read_char |
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2460 so we had better get rid of this frame's stuff. */ |
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2461 UNGCPRO; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2462 longjmp (wrong_kboard_jmpbuf, 1); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2463 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2464 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2465 #endif |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2466 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2467 wrong_kboard: |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2468 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2469 stop_polling (); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2470 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2471 /* Finally, we read from the main queue, |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2472 and if that gives us something we can't use yet, we put it on the |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2473 appropriate side queue and try again. */ |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2474 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2475 if (NILP (c)) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2476 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2477 KBOARD *kb; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2478 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2479 /* Actually read a character, waiting if necessary. */ |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2480 save_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2481 restore_getcjmp (local_getcjmp); |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2482 c = kbd_buffer_get_event (&kb, used_mouse_menu); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2483 restore_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2484 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2485 #ifdef MULTI_KBOARD |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2486 if (! NILP (c) && (kb != current_kboard)) |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2487 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2488 Lisp_Object *tailp = &kb->kbd_queue; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2489 while (CONSP (*tailp)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2490 tailp = &XCDR (*tailp); |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2491 if (!NILP (*tailp)) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2492 abort (); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2493 *tailp = Fcons (c, Qnil); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2494 kb->kbd_queue_has_data = 1; |
11763
fc2a3a312e98
[MULTI_KBOARD] (read_char): If the character was for
Karl Heuer <kwzh@gnu.org>
parents:
11755
diff
changeset
|
2495 c = Qnil; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2496 if (single_kboard) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2497 goto wrong_kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2498 current_kboard = kb; |
18944
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2499 /* This is going to exit from read_char |
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2500 so we had better get rid of this frame's stuff. */ |
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2501 UNGCPRO; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2502 longjmp (wrong_kboard_jmpbuf, 1); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2503 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2504 #endif |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
2505 } |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2506 |
518 | 2507 /* 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
|
2508 if (noninteractive && INTEGERP (c) && XINT (c) < 0) |
518 | 2509 Fkill_emacs (make_number (1)); |
2510 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2511 if (INTEGERP (c)) |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2512 { |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2513 /* Add in any extra modifiers, where appropriate. */ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2514 if ((extra_keyboard_modifiers & CHAR_CTL) |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2515 || ((extra_keyboard_modifiers & 0177) < ' ' |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2516 && (extra_keyboard_modifiers & 0177) != 0)) |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2517 XSETINT (c, make_ctrl_char (XINT (c))); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2518 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2519 /* Transfer any other modifier bits directly from |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
2520 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
|
2521 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
|
2522 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
|
2523 } |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
2524 |
518 | 2525 non_reread: |
2526 | |
18777
c5e0b32380c1
(read_char): Call timer_stop_idle unconditionally at non_reread.
Richard M. Stallman <rms@gnu.org>
parents:
18742
diff
changeset
|
2527 timer_stop_idle (); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2528 |
518 | 2529 start_polling (); |
2530 | |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2531 if (NILP (c)) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2532 { |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2533 if (commandflag >= 0 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2534 && !input_pending && !detect_input_pending_run_timers (0)) |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2535 redisplay (); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2536 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2537 goto wrong_kboard; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2538 } |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2539 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2540 non_reread_1: |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2541 |
8569
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2542 /* Buffer switch events are only for internal wakeups |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2543 so don't show them to the user. |
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2544 Also, don't record a key if we already did. */ |
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2545 if (BUFFERP (c) || key_already_recorded) |
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2546 RETURN_UNGCPRO (c); |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
2547 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2548 /* Process special events within read_char |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2549 and loop around to read another event. */ |
12476
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
2550 save = Vquit_flag; |
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
2551 Vquit_flag = Qnil; |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2552 tem = get_keyelt (access_keymap (get_keymap_1 (Vspecial_event_map, 0, 0), |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2553 c, 0, 0), 1); |
12476
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
2554 Vquit_flag = save; |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2555 |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2556 if (!NILP (tem)) |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2557 { |
14537
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2558 int was_locked = single_kboard; |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2559 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2560 last_input_char = c; |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
2561 Fcommand_execute (tem, Qnil, Fvector (1, &last_input_char), Qt); |
14537
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2562 |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2563 /* Resume allowing input from any kboard, if that was true before. */ |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2564 if (!was_locked) |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2565 any_kboard_state (); |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
2566 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2567 goto retry; |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2568 } |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2569 |
518 | 2570 /* 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
|
2571 if (INTEGERP (c)) |
518 | 2572 { |
2573 /* 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
|
2574 if (XINT (c) == -1) |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2575 RETURN_UNGCPRO (c); |
518 | 2576 |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
2577 if ((STRINGP (Vkeyboard_translate_table) |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
2578 && XSTRING (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c)) |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
2579 || (VECTORP (Vkeyboard_translate_table) |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
2580 && XVECTOR (Vkeyboard_translate_table)->size > (unsigned) XFASTINT (c)) |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
2581 || (CHAR_TABLE_P (Vkeyboard_translate_table) |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
2582 && CHAR_TABLE_ORDINARY_SLOTS > (unsigned) XFASTINT (c))) |
13246
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2583 { |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2584 Lisp_Object d; |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2585 d = Faref (Vkeyboard_translate_table, c); |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2586 /* nil in keyboard-translate-table means no translation. */ |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2587 if (!NILP (d)) |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2588 c = d; |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
2589 } |
518 | 2590 } |
2591 | |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2592 /* If this event is a mouse click in the menu bar, |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2593 return just menu-bar for now. Modify the mouse click event |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2594 so we won't do this twice, then queue it up. */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2595 if (EVENT_HAS_PARAMETERS (c) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2596 && CONSP (XCDR (c)) |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2597 && CONSP (EVENT_START (c)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2598 && CONSP (XCDR (EVENT_START (c)))) |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2599 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2600 Lisp_Object posn; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2601 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2602 posn = POSN_BUFFER_POSN (EVENT_START (c)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2603 /* Handle menu-bar events: |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2604 insert the dummy prefix event `menu-bar'. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
2605 if (EQ (posn, Qmenu_bar) || EQ (posn, Qtool_bar)) |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2606 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2607 /* Change menu-bar to (menu-bar) as the event "position". */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2608 POSN_BUFFER_POSN (EVENT_START (c)) = Fcons (posn, Qnil); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2609 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2610 also_record = c; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2611 Vunread_command_events = Fcons (c, Vunread_command_events); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2612 c = posn; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2613 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2614 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2615 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2616 /* Store these characters into recent_keys, the dribble file if any, |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2617 and the keyboard macro being defined, if any. */ |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2618 record_char (c); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2619 if (! NILP (also_record)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2620 record_char (also_record); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2621 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2622 /* Wipe the echo area. |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2623 But first, if we are about to use an input method, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2624 save the echo area contents for it to refer to. */ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2625 if (INTEGERP (c) |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2626 && ! NILP (Vinput_method_function) |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2627 && (unsigned) XINT (c) >= ' ' |
29099
a72f4aba9f93
(read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents:
28871
diff
changeset
|
2628 && (unsigned) XINT (c) != 127 |
a72f4aba9f93
(read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents:
28871
diff
changeset
|
2629 && (unsigned) XINT (c) < 256) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2630 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2631 previous_echo_area_message = Fcurrent_message (); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2632 Vinput_method_previous_message = previous_echo_area_message; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2633 } |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2634 |
28871
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
2635 /* Now wipe the echo area, except for help events which do their |
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
2636 own stuff with the echo area. */ |
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
2637 if (!CONSP (c) || !(EQ (Qhelp_echo, XCAR (c)))) |
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
2638 { |
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
2639 if (!NILP (echo_area_buffer[0])) |
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
2640 safe_run_hooks (Qecho_area_clear_hook); |
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
2641 clear_message (1, 0); |
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
2642 } |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2643 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2644 reread_for_input_method: |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2645 from_macro: |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2646 /* Pass this to the input method, if appropriate. */ |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2647 if (INTEGERP (c) |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2648 && ! NILP (Vinput_method_function) |
23065
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2649 /* Don't run the input method within a key sequence, |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2650 after the first event of the key sequence. */ |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2651 && NILP (prev_event) |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2652 && (unsigned) XINT (c) >= ' ' |
29099
a72f4aba9f93
(read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents:
28871
diff
changeset
|
2653 && (unsigned) XINT (c) != 127 |
a72f4aba9f93
(read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents:
28871
diff
changeset
|
2654 && (unsigned) XINT (c) < 256) |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2655 { |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2656 Lisp_Object keys; |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2657 int key_count; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2658 struct gcpro gcpro1; |
23065
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2659 int count = specpdl_ptr - specpdl; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2660 |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2661 /* Save the echo status. */ |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2662 int saved_immediate_echo = current_kboard->immediate_echo; |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2663 struct kboard *saved_ok_to_echo = ok_to_echo_at_next_pause; |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2664 int saved_echo_after_prompt = current_kboard->echo_after_prompt; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2665 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2666 if (before_command_restore_flag) |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2667 { |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2668 this_command_key_count = before_command_key_count_1; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2669 if (this_command_key_count < this_single_command_key_start) |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2670 this_single_command_key_start = this_command_key_count; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2671 echo_truncate (before_command_echo_length_1); |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2672 before_command_restore_flag = 0; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2673 } |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2674 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2675 /* Save the this_command_keys status. */ |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2676 key_count = this_command_key_count; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2677 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2678 if (key_count > 0) |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2679 keys = Fcopy_sequence (this_command_keys); |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2680 else |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2681 keys = Qnil; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2682 GCPRO1 (keys); |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2683 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2684 /* Clear out this_command_keys. */ |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2685 this_command_key_count = 0; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2686 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2687 /* Now wipe the echo area. */ |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2688 if (!NILP (echo_area_buffer[0])) |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2689 safe_run_hooks (Qecho_area_clear_hook); |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2690 clear_message (1, 0); |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2691 echo_truncate (0); |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2692 |
23065
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2693 /* If we are not reading a key sequence, |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2694 never use the echo area. */ |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2695 if (maps == 0) |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2696 { |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2697 specbind (Qinput_method_use_echo_area, Qt); |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2698 } |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2699 |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2700 /* Call the input method. */ |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2701 tem = call1 (Vinput_method_function, c); |
23065
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2702 |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2703 tem = unbind_to (count, tem); |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
2704 |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2705 /* Restore the saved echoing state |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2706 and this_command_keys state. */ |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2707 this_command_key_count = key_count; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2708 if (key_count > 0) |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2709 this_command_keys = keys; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2710 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2711 cancel_echoing (); |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2712 ok_to_echo_at_next_pause = saved_ok_to_echo; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2713 current_kboard->echo_after_prompt = saved_echo_after_prompt; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2714 if (saved_immediate_echo) |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2715 echo_now (); |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2716 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2717 UNGCPRO; |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
2718 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2719 /* The input method can return no events. */ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2720 if (! CONSP (tem)) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2721 { |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2722 /* Bring back the previous message, if any. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2723 if (! NILP (previous_echo_area_message)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2724 message_with_string ("%s", previous_echo_area_message, 0); |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2725 goto retry; |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2726 } |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2727 /* It returned one event or more. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2728 c = XCAR (tem); |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2729 Vunread_post_input_method_events |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2730 = nconc2 (XCDR (tem), Vunread_post_input_method_events); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2731 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2732 |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2733 reread_first: |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2734 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2735 /* Display help if not echoing. */ |
28871
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
2736 if (CONSP (c) && EQ (XCAR (c), Qhelp_echo)) |
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
2737 { |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2738 /* (help-echo FRAME HELP WINDOW OBJECT POS). */ |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2739 Lisp_Object help, object, position, window; |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2740 help = Fnth (make_number (2), c); |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2741 window = Fnth (make_number (3), c); |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2742 object = Fnth (make_number (4), c); |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2743 position = Fnth (make_number (5), c); |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2744 show_help_echo (help, window, object, position, 0); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2745 goto retry; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2746 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2747 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2748 if (this_command_key_count == 0 || ! reread) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2749 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2750 before_command_key_count = this_command_key_count; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2751 before_command_echo_length = echo_length (); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2752 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2753 /* Don't echo mouse motion events. */ |
27769
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
2754 if ((FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes)) |
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
2755 && NILP (Fzerop (Vecho_keystrokes)) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2756 && ! (EVENT_HAS_PARAMETERS (c) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2757 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement))) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2758 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2759 echo_char (c); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2760 if (! NILP (also_record)) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2761 echo_char (also_record); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2762 /* Once we reread a character, echoing can happen |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2763 the next time we pause to read a new one. */ |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2764 ok_to_echo_at_next_pause = current_kboard; |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2765 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2766 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2767 /* Record this character as part of the current key. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2768 add_command_key (c); |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2769 if (! NILP (also_record)) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2770 add_command_key (also_record); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2771 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2772 |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2773 last_input_char = c; |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
2774 num_input_events++; |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2775 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2776 /* Process the help character specially if enabled */ |
12144 | 2777 if (!NILP (Vhelp_form) && help_char_p (c)) |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2778 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2779 Lisp_Object tem0; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2780 count = specpdl_ptr - specpdl; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2781 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2782 record_unwind_protect (Fset_window_configuration, |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2783 Fcurrent_window_configuration (Qnil)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2784 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2785 tem0 = Feval (Vhelp_form); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2786 if (STRINGP (tem0)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2787 internal_with_output_to_temp_buffer ("*Help*", print_help, tem0); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2788 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2789 cancel_echoing (); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2790 do |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2791 c = read_char (0, 0, 0, Qnil, 0); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2792 while (BUFFERP (c)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2793 /* Remove the help from the frame */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2794 unbind_to (count, Qnil); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2795 |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2796 redisplay (); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2797 if (EQ (c, make_number (040))) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2798 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2799 cancel_echoing (); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2800 do |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2801 c = read_char (0, 0, 0, Qnil, 0); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2802 while (BUFFERP (c)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2803 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2804 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2805 |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2806 RETURN_UNGCPRO (c); |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2807 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2808 |
16750
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2809 /* Record a key that came from a mouse menu. |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2810 Record it for echoing, for this-command-keys, and so on. */ |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2811 |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2812 static void |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2813 record_menu_key (c) |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2814 Lisp_Object c; |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2815 { |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2816 /* Wipe the echo area. */ |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2817 clear_message (1, 0); |
16750
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2818 |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2819 record_char (c); |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2820 |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2821 before_command_key_count = this_command_key_count; |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2822 before_command_echo_length = echo_length (); |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2823 |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2824 /* Don't echo mouse motion events. */ |
27769
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
2825 if ((FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes)) |
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
2826 && NILP (Fzerop (Vecho_keystrokes))) |
16750
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2827 { |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2828 echo_char (c); |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2829 |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2830 /* Once we reread a character, echoing can happen |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2831 the next time we pause to read a new one. */ |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2832 ok_to_echo_at_next_pause = 0; |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2833 } |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2834 |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2835 /* Record this character as part of the current key. */ |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2836 add_command_key (c); |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2837 |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2838 /* Re-reading in the middle of a command */ |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2839 last_input_char = c; |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
2840 num_input_events++; |
16750
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2841 } |
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
2842 |
12144 | 2843 /* Return 1 if should recognize C as "the help character". */ |
2844 | |
2845 int | |
2846 help_char_p (c) | |
2847 Lisp_Object c; | |
2848 { | |
2849 Lisp_Object tail; | |
2850 | |
2851 if (EQ (c, Vhelp_char)) | |
2852 return 1; | |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2853 for (tail = Vhelp_event_list; CONSP (tail); tail = XCDR (tail)) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2854 if (EQ (c, XCAR (tail))) |
12144 | 2855 return 1; |
2856 return 0; | |
2857 } | |
2858 | |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2859 /* Record the input event C in various ways. */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2860 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2861 static void |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2862 record_char (c) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2863 Lisp_Object c; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2864 { |
518 | 2865 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
|
2866 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
|
2867 if (++recent_keys_index >= NUM_RECENT_KEYS) |
518 | 2868 recent_keys_index = 0; |
2869 | |
2870 /* Write c to the dribble file. If c is a lispy event, write | |
2871 the event's symbol to the dribble file, in <brackets>. Bleaugh. | |
2872 If you, dear reader, have a better idea, you've got the source. :-) */ | |
2873 if (dribble) | |
2874 { | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2875 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
|
2876 { |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2877 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
|
2878 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
|
2879 else |
12087
3bbf71f1cf30
(cmd_error): Use NULL, not 0, as arg to cmd_error_internal.
Karl Heuer <kwzh@gnu.org>
parents:
12007
diff
changeset
|
2880 fprintf (dribble, " 0x%x", (int) XUINT (c)); |
8569
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
2881 } |
518 | 2882 else |
2883 { | |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
2884 Lisp_Object dribblee; |
518 | 2885 |
2886 /* 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
|
2887 dribblee = EVENT_HEAD (c); |
518 | 2888 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
2889 if (SYMBOLP (dribblee)) |
518 | 2890 { |
2891 putc ('<', dribble); | |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
2892 fwrite (XSYMBOL (dribblee)->name->data, sizeof (char), |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
2893 STRING_BYTES (XSYMBOL (dribblee)->name), |
518 | 2894 dribble); |
2895 putc ('>', dribble); | |
2896 } | |
2897 } | |
2898 | |
2899 fflush (dribble); | |
2900 } | |
2901 | |
2902 store_kbd_macro_char (c); | |
2903 | |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
2904 num_nonmacro_input_events++; |
518 | 2905 } |
2906 | |
2907 Lisp_Object | |
2908 print_help (object) | |
2909 Lisp_Object object; | |
2910 { | |
9864
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
2911 struct buffer *old = current_buffer; |
518 | 2912 Fprinc (object, Qnil); |
9864
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
2913 set_buffer_internal (XBUFFER (Vstandard_output)); |
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
2914 call0 (intern ("help-mode")); |
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
2915 set_buffer_internal (old); |
518 | 2916 return Qnil; |
2917 } | |
2918 | |
2919 /* Copy out or in the info on where C-g should throw to. | |
2920 This is used when running Lisp code from within get_char, | |
2921 in case get_char is called recursively. | |
2922 See read_process_output. */ | |
2923 | |
21514 | 2924 static void |
518 | 2925 save_getcjmp (temp) |
2926 jmp_buf temp; | |
2927 { | |
2928 bcopy (getcjmp, temp, sizeof getcjmp); | |
2929 } | |
2930 | |
21514 | 2931 static void |
518 | 2932 restore_getcjmp (temp) |
2933 jmp_buf temp; | |
2934 { | |
2935 bcopy (temp, getcjmp, sizeof getcjmp); | |
2936 } | |
2937 | |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
2938 #ifdef HAVE_MOUSE |
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
2939 |
518 | 2940 /* Restore mouse tracking enablement. See Ftrack_mouse for the only use |
2941 of this function. */ | |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
2942 |
518 | 2943 static Lisp_Object |
2944 tracking_off (old_value) | |
2945 Lisp_Object old_value; | |
2946 { | |
9881
02cd4dde69e1
(tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents:
9864
diff
changeset
|
2947 do_mouse_tracking = old_value; |
02cd4dde69e1
(tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents:
9864
diff
changeset
|
2948 if (NILP (old_value)) |
518 | 2949 { |
2950 /* Redisplay may have been preempted because there was input | |
2951 available, and it assumes it will be called again after the | |
2952 input has been processed. If the only input available was | |
2953 the sort that we have just disabled, then we need to call | |
2954 redisplay. */ | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2955 if (!readable_events (1)) |
518 | 2956 { |
2957 redisplay_preserve_echo_area (); | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2958 get_input_pending (&input_pending, 1); |
518 | 2959 } |
2960 } | |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
2961 return Qnil; |
518 | 2962 } |
2963 | |
2964 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
|
2965 "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
|
2966 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
|
2967 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
|
2968 Normally, mouse motion is ignored.") |
518 | 2969 (args) |
2970 Lisp_Object args; | |
2971 { | |
2972 int count = specpdl_ptr - specpdl; | |
2973 Lisp_Object val; | |
2974 | |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
2975 record_unwind_protect (tracking_off, do_mouse_tracking); |
518 | 2976 |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2977 do_mouse_tracking = Qt; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2978 |
518 | 2979 val = Fprogn (args); |
2980 return unbind_to (count, val); | |
2981 } | |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
2982 |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2983 /* If mouse has moved on some frame, return one of those frames. |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2984 Return 0 otherwise. */ |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2985 |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2986 static FRAME_PTR |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2987 some_mouse_moved () |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2988 { |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2989 Lisp_Object tail, frame; |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2990 |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2991 FOR_EACH_FRAME (tail, frame) |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2992 { |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2993 if (XFRAME (frame)->mouse_moved) |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2994 return XFRAME (frame); |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2995 } |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2996 |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2997 return 0; |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2998 } |
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
2999 |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
3000 #endif /* HAVE_MOUSE */ |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3001 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3002 /* 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
|
3003 kbd_buffer_store_event places events in kbd_buffer, and |
13324 | 3004 kbd_buffer_get_event retrieves them. */ |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3005 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3006 /* 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
|
3007 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
|
3008 static int |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3009 readable_events (do_timers_now) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3010 int do_timers_now; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3011 { |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3012 if (do_timers_now) |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3013 timer_check (do_timers_now); |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3014 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3015 if (kbd_fetch_ptr != kbd_store_ptr) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3016 return 1; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3017 #ifdef HAVE_MOUSE |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
3018 if (!NILP (do_mouse_tracking) && some_mouse_moved ()) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3019 return 1; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3020 #endif |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3021 if (single_kboard) |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3022 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3023 if (current_kboard->kbd_queue_has_data) |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3024 return 1; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3025 } |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3026 else |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3027 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3028 KBOARD *kb; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3029 for (kb = all_kboards; kb; kb = kb->next_kboard) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3030 if (kb->kbd_queue_has_data) |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3031 return 1; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3032 } |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3033 return 0; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3034 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3035 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3036 /* 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
|
3037 int stop_character; |
518 | 3038 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3039 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3040 static KBOARD * |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3041 event_to_kboard (event) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3042 struct input_event *event; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3043 { |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3044 Lisp_Object frame; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3045 frame = event->frame_or_window; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3046 if (CONSP (frame)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3047 frame = XCAR (frame); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3048 else if (WINDOWP (frame)) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3049 frame = WINDOW_FRAME (XWINDOW (frame)); |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3050 |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3051 /* There are still some events that don't set this field. |
11167
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
3052 For now, just ignore the problem. |
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
3053 Also ignore dead frames here. */ |
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
3054 if (!FRAMEP (frame) || !FRAME_LIVE_P (XFRAME (frame))) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3055 return 0; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3056 else |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3057 return FRAME_KBOARD (XFRAME (frame)); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3058 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3059 #endif |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3060 |
518 | 3061 /* Store an event obtained at interrupt level into kbd_buffer, fifo */ |
3062 | |
3063 void | |
3064 kbd_buffer_store_event (event) | |
3065 register struct input_event *event; | |
3066 { | |
3067 if (event->kind == no_event) | |
3068 abort (); | |
3069 | |
3070 if (event->kind == ascii_keystroke) | |
3071 { | |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3072 register int c = event->code & 0377; |
518 | 3073 |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
3074 if (event->modifiers & ctrl_modifier) |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
3075 c = make_ctrl_char (c); |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
3076 |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
3077 c |= (event->modifiers |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
3078 & (meta_modifier | alt_modifier |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
3079 | hyper_modifier | super_modifier)); |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
3080 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3081 if (c == quit_char) |
518 | 3082 { |
985
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
3083 extern SIGTYPE interrupt_signal (); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3084 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3085 KBOARD *kb; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3086 struct input_event *sp; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3087 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3088 if (single_kboard |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3089 && (kb = FRAME_KBOARD (XFRAME (event->frame_or_window)), |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3090 kb != current_kboard)) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3091 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3092 kb->kbd_queue |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3093 = Fcons (make_lispy_switch_frame (event->frame_or_window), |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3094 Fcons (make_number (c), Qnil)); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3095 kb->kbd_queue_has_data = 1; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3096 for (sp = kbd_fetch_ptr; sp != kbd_store_ptr; sp++) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3097 { |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3098 if (sp == kbd_buffer + KBD_BUFFER_SIZE) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3099 sp = kbd_buffer; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3100 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3101 if (event_to_kboard (sp) == kb) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3102 { |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3103 sp->kind = no_event; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3104 sp->frame_or_window = Qnil; |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3105 sp->arg = Qnil; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3106 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3107 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3108 return; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3109 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3110 #endif |
985
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
3111 |
518 | 3112 /* 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
|
3113 input, set Vlast_event_frame properly. If this doesn't |
518 | 3114 get returned to Emacs as an event, the next event read |
765 | 3115 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
|
3116 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3117 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
|
3118 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3119 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
|
3120 if (NILP (focus)) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3121 focus = event->frame_or_window; |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3122 internal_last_event_frame = focus; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3123 Vlast_event_frame = focus; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3124 } |
985
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
3125 |
648 | 3126 last_event_timestamp = event->timestamp; |
518 | 3127 interrupt_signal (); |
3128 return; | |
3129 } | |
3130 | |
3131 if (c && c == stop_character) | |
3132 { | |
3133 sys_suspend (); | |
3134 return; | |
3135 } | |
3136 } | |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
3137 /* Don't insert two buffer_switch_event's in a row. |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
3138 Just ignore the second one. */ |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
3139 else if (event->kind == buffer_switch_event |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
3140 && kbd_fetch_ptr != kbd_store_ptr |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
3141 && kbd_store_ptr->kind == buffer_switch_event) |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
3142 return; |
518 | 3143 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3144 if (kbd_store_ptr - kbd_buffer == KBD_BUFFER_SIZE) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3145 kbd_store_ptr = kbd_buffer; |
518 | 3146 |
3147 /* Don't let the very last slot in the buffer become full, | |
3148 since that would make the two pointers equal, | |
3149 and that is indistinguishable from an empty buffer. | |
3150 Discard the event if it would fill the last slot. */ | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3151 if (kbd_fetch_ptr - 1 != kbd_store_ptr) |
518 | 3152 { |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3153 int idx; |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3154 |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3155 #if 0 /* The selection_request_event case looks bogus, and it's error |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3156 prone to assign individual members for other events, in case |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3157 the input_event structure is changed. --2000-07-13, gerd. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
3158 struct input_event *sp = kbd_store_ptr; |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
3159 sp->kind = event->kind; |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
3160 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
|
3161 { |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
3162 /* 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
|
3163 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
|
3164 in this case. */ |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
3165 bcopy (event, (char *) sp, sizeof (*event)); |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
3166 } |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
3167 else |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3168 |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
3169 { |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
3170 sp->code = event->code; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
3171 sp->part = event->part; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
3172 sp->frame_or_window = event->frame_or_window; |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3173 sp->arg = event->arg; |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
3174 sp->modifiers = event->modifiers; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
3175 sp->x = event->x; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
3176 sp->y = event->y; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
3177 sp->timestamp = event->timestamp; |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
3178 } |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3179 #else |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3180 *kbd_store_ptr = *event; |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3181 #endif |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3182 |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3183 idx = 2 * (kbd_store_ptr - kbd_buffer); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3184 ASET (kbd_buffer_gcpro, idx, event->frame_or_window); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3185 ASET (kbd_buffer_gcpro, idx + 1, event->arg); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3186 ++kbd_store_ptr; |
518 | 3187 } |
3188 } | |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3189 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3190 |
31201 | 3191 /* Generate HELP_EVENT input_events in BUFP which has room for |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3192 SIZE events. If there's not enough room in BUFP, ignore this |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3193 event. |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3194 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3195 HELP is the help form. |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3196 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3197 FRAME is the frame on which the help is generated. OBJECT is the |
30368
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
3198 Lisp object where the help was found (a buffer, a string, an |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
3199 overlay, or nil if neither from a string nor from a buffer. POS is |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
3200 the position within OBJECT where the help was found. |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3201 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3202 Value is the number of input_events generated. */ |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3203 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3204 int |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3205 gen_help_event (bufp, size, help, frame, window, object, pos) |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3206 struct input_event *bufp; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3207 int size; |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
3208 Lisp_Object help, frame, object, window; |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3209 int pos; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3210 { |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3211 int nevents_stored = 0; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3212 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3213 if (size >= 2) |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3214 { |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3215 bufp->kind = HELP_EVENT; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3216 bufp->frame_or_window = frame; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3217 bufp->arg = object; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3218 bufp->x = make_number (pos); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3219 bufp->code = 0; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3220 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3221 ++bufp; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3222 bufp->kind = HELP_EVENT; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3223 bufp->frame_or_window = WINDOWP (window) ? window : frame; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3224 bufp->arg = help; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3225 bufp->code = 1; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3226 nevents_stored = 2; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3227 } |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3228 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3229 return nevents_stored; |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3230 } |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3231 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3232 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3233 /* Store HELP_EVENTs for HELP on FRAME in the input queue. */ |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3234 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3235 void |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3236 kbd_buffer_store_help_event (frame, help) |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3237 Lisp_Object frame, help; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3238 { |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3239 struct input_event event; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3240 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3241 event.kind = HELP_EVENT; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3242 event.frame_or_window = frame; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3243 event.arg = Qnil; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3244 event.x = make_number (0); |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3245 event.code = 0; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3246 kbd_buffer_store_event (&event); |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3247 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3248 event.kind = HELP_EVENT; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3249 event.frame_or_window = frame; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3250 event.arg = help; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3251 event.x = make_number (0); |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3252 event.code = 1; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3253 kbd_buffer_store_event (&event); |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3254 } |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3255 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3256 |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3257 /* Discard any mouse events in the event buffer by setting them to |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3258 no_event. */ |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3259 void |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3260 discard_mouse_events () |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3261 { |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3262 struct input_event *sp; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3263 for (sp = kbd_fetch_ptr; sp != kbd_store_ptr; sp++) |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3264 { |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3265 if (sp == kbd_buffer + KBD_BUFFER_SIZE) |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3266 sp = kbd_buffer; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3267 |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3268 if (sp->kind == mouse_click |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3269 #ifdef WINDOWSNT |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3270 || sp->kind == w32_scroll_bar_click |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3271 #endif |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3272 || sp->kind == scroll_bar_click) |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3273 { |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3274 sp->kind = no_event; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3275 } |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3276 } |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3277 } |
30709
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3278 |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3279 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3280 /* Return non-zero if there are any real events waiting in the event |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3281 buffer, not counting `no_event's. |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3282 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3283 If DISCARD is non-zero, discard no_event events at the front of |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3284 the input queue, possibly leaving the input queue empty if there |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3285 are no real input events. */ |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3286 |
30709
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3287 int |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3288 kbd_buffer_events_waiting (discard) |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3289 int discard; |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3290 { |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3291 struct input_event *sp; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3292 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3293 for (sp = kbd_fetch_ptr; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3294 sp != kbd_store_ptr && sp->kind == no_event; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3295 ++sp) |
30709
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3296 { |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3297 if (sp == kbd_buffer + KBD_BUFFER_SIZE) |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3298 sp = kbd_buffer; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3299 } |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3300 |
30709
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3301 if (discard) |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3302 kbd_fetch_ptr = sp; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3303 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3304 return sp != kbd_store_ptr && sp->kind != no_event; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3305 } |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3306 |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3307 |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3308 /* Clear input event EVENT. */ |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3309 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3310 static INLINE void |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3311 clear_event (event) |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3312 struct input_event *event; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3313 { |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3314 int idx = 2 * (event - kbd_buffer); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3315 ASET (kbd_buffer_gcpro, idx, Qnil); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3316 ASET (kbd_buffer_gcpro, idx + 1, Qnil); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3317 event->kind = no_event; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3318 } |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3319 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3320 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3321 /* 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
|
3322 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
|
3323 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
|
3324 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
|
3325 We always read and discard one event. */ |
518 | 3326 |
3327 static Lisp_Object | |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
3328 kbd_buffer_get_event (kbp, used_mouse_menu) |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3329 KBOARD **kbp; |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
3330 int *used_mouse_menu; |
518 | 3331 { |
3332 register int c; | |
3333 Lisp_Object obj; | |
3334 | |
3335 if (noninteractive) | |
3336 { | |
3337 c = getchar (); | |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
3338 XSETINT (obj, c); |
11167
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
3339 *kbp = current_kboard; |
518 | 3340 return obj; |
3341 } | |
3342 | |
3343 /* Wait until there is input available. */ | |
3344 for (;;) | |
3345 { | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3346 if (kbd_fetch_ptr != kbd_store_ptr) |
518 | 3347 break; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3348 #ifdef HAVE_MOUSE |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
3349 if (!NILP (do_mouse_tracking) && some_mouse_moved ()) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3350 break; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3351 #endif |
518 | 3352 |
3353 /* If the quit flag is set, then read_char will return | |
3354 quit_char, so that counts as "available input." */ | |
3355 if (!NILP (Vquit_flag)) | |
3356 quit_throw_to_read_char (); | |
3357 | |
3358 /* One way or another, wait until input is available; then, if | |
3359 interrupt handlers have not read it, read it now. */ | |
3360 | |
3361 #ifdef OLDVMS | |
3362 wait_for_kbd_input (); | |
3363 #else | |
3364 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
3365 #ifdef SIGIO | |
3366 gobble_input (0); | |
3367 #endif /* SIGIO */ | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3368 if (kbd_fetch_ptr != kbd_store_ptr) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3369 break; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3370 #ifdef HAVE_MOUSE |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
3371 if (!NILP (do_mouse_tracking) && some_mouse_moved ()) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3372 break; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3373 #endif |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3374 { |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3375 Lisp_Object minus_one; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3376 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3377 XSETINT (minus_one, -1); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3378 wait_reading_process_input (0, 0, minus_one, 1); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3379 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3380 if (!interrupt_input && kbd_fetch_ptr == kbd_store_ptr) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3381 /* Pass 1 for EXPECT since we just waited to have input. */ |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3382 read_avail_input (1); |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3383 } |
518 | 3384 #endif /* not VMS */ |
3385 } | |
3386 | |
18231
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
3387 if (CONSP (Vunread_command_events)) |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
3388 { |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
3389 Lisp_Object first; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3390 first = XCAR (Vunread_command_events); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3391 Vunread_command_events = XCDR (Vunread_command_events); |
18231
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
3392 *kbp = current_kboard; |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
3393 return first; |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
3394 } |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
3395 |
518 | 3396 /* At this point, we know that there is a readable event available |
3397 somewhere. If the event queue is empty, then there must be a | |
3398 mouse movement enabled and available. */ | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3399 if (kbd_fetch_ptr != kbd_store_ptr) |
518 | 3400 { |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
3401 struct input_event *event; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
3402 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3403 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3404 ? kbd_fetch_ptr |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3405 : kbd_buffer); |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
3406 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
3407 last_event_timestamp = event->timestamp; |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
3408 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3409 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3410 *kbp = event_to_kboard (event); |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3411 if (*kbp == 0) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3412 *kbp = current_kboard; /* Better than returning null ptr? */ |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3413 #else |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3414 *kbp = &the_only_kboard; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3415 #endif |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3416 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3417 obj = Qnil; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3418 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3419 /* 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
|
3420 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
|
3421 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
|
3422 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
|
3423 { |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3424 #ifdef HAVE_X11 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3425 struct input_event copy; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3426 |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
3427 /* Remove it from the buffer before processing it, |
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
3428 since otherwise swallow_events will see it |
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
3429 and process it again. */ |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3430 copy = *event; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3431 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3432 input_pending = readable_events (0); |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
3433 x_handle_selection_request (©); |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3434 #else |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3435 /* 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
|
3436 a window system. */ |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3437 abort (); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3438 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3439 } |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3440 |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3441 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
|
3442 { |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3443 #ifdef HAVE_X11 |
12712
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3444 struct input_event copy; |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3445 |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3446 /* Remove it from the buffer before processing it. */ |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3447 copy = *event; |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
3448 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3449 input_pending = readable_events (0); |
12729
21110e58640c
(kbd_buffer_get_event, swallow_events): Fix prev change.
Richard M. Stallman <rms@gnu.org>
parents:
12712
diff
changeset
|
3450 x_handle_selection_clear (©); |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3451 #else |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3452 /* 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
|
3453 a window system. */ |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3454 abort (); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
3455 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
3456 } |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3457 #if defined (HAVE_X11) || defined (HAVE_NTGUI) |
5133
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
3458 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
|
3459 { |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
3460 /* Make an event (delete-frame (FRAME)). */ |
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
3461 obj = Fcons (event->frame_or_window, Qnil); |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3462 obj = Fcons (Qdelete_frame, Fcons (obj, Qnil)); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3463 kbd_fetch_ptr = event + 1; |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3464 } |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3465 else if (event->kind == iconify_event) |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3466 { |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3467 /* Make an event (iconify-frame (FRAME)). */ |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3468 obj = Fcons (event->frame_or_window, Qnil); |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3469 obj = Fcons (Qiconify_frame, Fcons (obj, Qnil)); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3470 kbd_fetch_ptr = event + 1; |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3471 } |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3472 else if (event->kind == deiconify_event) |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3473 { |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3474 /* Make an event (make-frame-visible (FRAME)). */ |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3475 obj = Fcons (event->frame_or_window, Qnil); |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
3476 obj = Fcons (Qmake_frame_visible, Fcons (obj, Qnil)); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3477 kbd_fetch_ptr = event + 1; |
5133
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
3478 } |
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
3479 #endif |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
3480 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
|
3481 { |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
3482 /* 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
|
3483 XSETBUFFER (obj, current_buffer); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3484 kbd_fetch_ptr = event + 1; |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
3485 } |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3486 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) |
12659
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
3487 else if (event->kind == menu_bar_activate_event) |
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
3488 { |
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
3489 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3490 input_pending = readable_events (0); |
15474
0b4fc263d4f2
(kbd_buffer_get_event): Don't call x_activate_menubar for a deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
15412
diff
changeset
|
3491 if (FRAME_LIVE_P (XFRAME (event->frame_or_window))) |
0b4fc263d4f2
(kbd_buffer_get_event): Don't call x_activate_menubar for a deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
15412
diff
changeset
|
3492 x_activate_menubar (XFRAME (event->frame_or_window)); |
12659
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
3493 } |
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
3494 #endif |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3495 #ifdef WINDOWSNT |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3496 else if (event->kind == language_change_event) |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3497 { |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3498 /* Make an event (language-change (FRAME CHARSET LCID)). */ |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3499 obj = Fcons (event->modifiers, Qnil); |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3500 obj = Fcons (event->code, Qnil); |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3501 obj = Fcons (event->frame_or_window, obj); |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3502 obj = Fcons (Qlanguage_change, Fcons (obj, Qnil)); |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3503 kbd_fetch_ptr = event + 1; |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3504 } |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
3505 #endif |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3506 /* Just discard these, by returning nil. |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3507 With MULTI_KBOARD, these events are used as placeholders |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3508 when we need to randomly delete events from the queue. |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3509 (They shouldn't otherwise be found in the buffer, |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3510 but on some machines it appears they do show up |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3511 even without MULTI_KBOARD.) */ |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3512 /* On Windows NT/9X, no_event is used to delete extraneous |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3513 mouse events during a popup-menu call. */ |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3514 else if (event->kind == no_event) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3515 kbd_fetch_ptr = event + 1; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
3516 else if (event->kind == HELP_EVENT) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
3517 { |
30936
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3518 /* There are always two HELP_EVENTs in the input queue. */ |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
3519 Lisp_Object object, position, help, frame, window; |
30936
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3520 |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3521 xassert (event->code == 0); |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3522 frame = event->frame_or_window; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3523 object = event->arg; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3524 position = event->x; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3525 clear_event (event); |
30936
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3526 |
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3527 kbd_fetch_ptr = event + 1; |
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3528 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE) |
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3529 ? kbd_fetch_ptr |
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3530 : kbd_buffer); |
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3531 xassert (event->code == 1); |
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3532 help = event->arg; |
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3533 window = event->frame_or_window; |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
3534 if (!WINDOWP (window)) |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
3535 window = Qnil; |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
3536 obj = Fcons (Qhelp_echo, |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
3537 list5 (frame, help, window, object, position)); |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3538 clear_event (event); |
30936
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
3539 kbd_fetch_ptr = event + 1; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
3540 } |
29513
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3541 else if (event->kind == FOCUS_IN_EVENT) |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3542 { |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3543 /* Notification of a FocusIn event. The frame receiving the |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3544 focus is in event->frame_or_window. Generate a |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3545 switch-frame event if necessary. */ |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3546 Lisp_Object frame, focus; |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3547 |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3548 frame = event->frame_or_window; |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3549 focus = FRAME_FOCUS_FRAME (XFRAME (frame)); |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3550 if (FRAMEP (focus)) |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3551 frame = focus; |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3552 |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3553 if (!EQ (frame, internal_last_event_frame) |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3554 && !EQ (frame, selected_frame)) |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3555 obj = make_lispy_switch_frame (frame); |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3556 internal_last_event_frame = frame; |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3557 kbd_fetch_ptr = event + 1; |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3558 } |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3559 else |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3560 { |
29513
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3561 /* If this event is on a different frame, return a switch-frame this |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
3562 time, and leave the event in the queue for next time. */ |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3563 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
|
3564 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
|
3565 |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3566 frame = event->frame_or_window; |
11285
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
3567 if (CONSP (frame)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3568 frame = XCAR (frame); |
11285
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
3569 else if (WINDOWP (frame)) |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3570 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
|
3571 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3572 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
|
3573 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
|
3574 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
|
3575 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3576 if (! EQ (frame, internal_last_event_frame) |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
3577 && !EQ (frame, selected_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
|
3578 obj = make_lispy_switch_frame (frame); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3579 internal_last_event_frame = frame; |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3580 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3581 /* 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
|
3582 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
|
3583 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3584 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
|
3585 { |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3586 int idx; |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3587 |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3588 obj = make_lispy_event (event); |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3589 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
3590 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
3591 /* If this was a menu selection, then set the flag to inhibit |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
3592 writing to last_nonmenu_event. Don't do this if the event |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
3593 we're returning is (menu-bar), though; that indicates the |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
3594 beginning of the menu sequence, and we might as well leave |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
3595 that as the `event with parameters' for this selection. */ |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3596 if (used_mouse_menu |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3597 && !EQ (event->frame_or_window, event->arg) |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3598 && (event->kind == MENU_BAR_EVENT |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3599 || event->kind == TOOL_BAR_EVENT)) |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
3600 *used_mouse_menu = 1; |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
3601 #endif |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3602 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3603 /* Wipe out this event, to catch bugs. */ |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3604 clear_event (event); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3605 kbd_fetch_ptr = event + 1; |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3606 } |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
3607 } |
518 | 3608 } |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
3609 #ifdef HAVE_MOUSE |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3610 /* Try generating a mouse motion event. */ |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
3611 else if (!NILP (do_mouse_tracking) && some_mouse_moved ()) |
518 | 3612 { |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
3613 FRAME_PTR f = some_mouse_moved (); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3614 Lisp_Object bar_window; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
3615 enum scroll_bar_part part; |
732 | 3616 Lisp_Object x, y; |
3617 unsigned long time; | |
518 | 3618 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3619 *kbp = current_kboard; |
9668
38a4e4386aed
(kbd_buffer_get_event): Cope if mouse_position_hook does not store anything.
Richard M. Stallman <rms@gnu.org>
parents:
9652
diff
changeset
|
3620 /* 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
|
3621 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
|
3622 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
|
3623 x = Qnil; |
11127
53e4f014e31c
(kbd_buffer_get_event): Pass 0 for `insist' arg.
Richard M. Stallman <rms@gnu.org>
parents:
11026
diff
changeset
|
3624 (*mouse_position_hook) (&f, 0, &bar_window, &part, &x, &y, &time); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3625 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3626 obj = Qnil; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
3627 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3628 /* 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
|
3629 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
|
3630 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
|
3631 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
|
3632 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3633 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
|
3634 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3635 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
|
3636 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
|
3637 XSETFRAME (frame, f); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3638 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3639 if (! EQ (frame, internal_last_event_frame) |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
3640 && !EQ (frame, selected_frame)) |
3929
d620db2bc420
* keyboard.c (kbd_buffer_get_event): Correctly generate
Jim Blandy <jimb@redhat.com>
parents:
3920
diff
changeset
|
3641 obj = make_lispy_switch_frame (frame); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3642 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
|
3643 } |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
3644 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
3645 /* If we didn't decide to make a switch-frame event, go ahead and |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
3646 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
|
3647 if (!NILP (x) && NILP (obj)) |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
3648 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
|
3649 } |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
3650 #endif /* HAVE_MOUSE */ |
518 | 3651 else |
3652 /* We were promised by the above while loop that there was | |
3653 something for us to read! */ | |
3654 abort (); | |
3655 | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3656 input_pending = readable_events (0); |
518 | 3657 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3658 Vlast_event_frame = internal_last_event_frame; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
3659 |
518 | 3660 return (obj); |
3661 } | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3662 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3663 /* 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
|
3664 then return, without reading any user-visible events. */ |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3665 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3666 void |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3667 swallow_events (do_display) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3668 int do_display; |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3669 { |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3670 int old_timers_run; |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3671 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3672 while (kbd_fetch_ptr != kbd_store_ptr) |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3673 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3674 struct input_event *event; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3675 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3676 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3677 ? kbd_fetch_ptr |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3678 : kbd_buffer); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3679 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3680 last_event_timestamp = event->timestamp; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3681 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3682 /* These two kinds of events get special handling |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3683 and don't actually appear to the command loop. */ |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3684 if (event->kind == selection_request_event) |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3685 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3686 #ifdef HAVE_X11 |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
3687 struct input_event copy; |
12712
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3688 |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3689 /* Remove it from the buffer before processing it, |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3690 since otherwise swallow_events called recursively could see it |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3691 and process it again. */ |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
3692 copy = *event; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3693 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3694 input_pending = readable_events (0); |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
3695 x_handle_selection_request (©); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3696 #else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3697 /* 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
|
3698 a window system. */ |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3699 abort (); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3700 #endif |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3701 } |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3702 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3703 else if (event->kind == selection_clear_event) |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3704 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3705 #ifdef HAVE_X11 |
12712
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3706 struct input_event copy; |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3707 |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3708 /* Remove it from the buffer before processing it, */ |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3709 copy = *event; |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3710 |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
3711 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3712 input_pending = readable_events (0); |
12729
21110e58640c
(kbd_buffer_get_event, swallow_events): Fix prev change.
Richard M. Stallman <rms@gnu.org>
parents:
12712
diff
changeset
|
3713 x_handle_selection_clear (©); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3714 #else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3715 /* 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
|
3716 a window system. */ |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3717 abort (); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3718 #endif |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3719 } |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3720 else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3721 break; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3722 } |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3723 |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3724 old_timers_run = timers_run; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3725 get_input_pending (&input_pending, 1); |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3726 |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3727 if (timers_run != old_timers_run && do_display) |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
3728 redisplay_preserve_echo_area (); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
3729 } |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3730 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3731 static EMACS_TIME timer_idleness_start_time; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3732 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3733 /* Record the start of when Emacs is idle, |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3734 for the sake of running idle-time timers. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3735 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
3736 void |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3737 timer_start_idle () |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3738 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3739 Lisp_Object timers; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3740 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3741 /* If we are already in the idle state, do nothing. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3742 if (! EMACS_TIME_NEG_P (timer_idleness_start_time)) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3743 return; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3744 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3745 EMACS_GET_TIME (timer_idleness_start_time); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3746 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3747 /* Mark all idle-time timers as once again candidates for running. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3748 for (timers = Vtimer_idle_list; CONSP (timers); timers = XCDR (timers)) |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3749 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3750 Lisp_Object timer; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3751 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3752 timer = XCAR (timers); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3753 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3754 if (!VECTORP (timer) || XVECTOR (timer)->size != 8) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3755 continue; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3756 XVECTOR (timer)->contents[0] = Qnil; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3757 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3758 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3759 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3760 /* Record that Emacs is no longer idle, so stop running idle-time timers. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3761 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
3762 void |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3763 timer_stop_idle () |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3764 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3765 EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3766 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3767 |
14904
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
3768 /* This is only for debugging. */ |
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
3769 struct input_event last_timer_event; |
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
3770 |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3771 /* Check whether a timer has fired. To prevent larger problems we simply |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3772 disregard elements that are not proper timers. Do not make a circular |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3773 timer list for the time being. |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3774 |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3775 Returns the number of seconds to wait until the next timer fires. If a |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3776 timer is triggering now, return zero seconds. |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3777 If no timer is active, return -1 seconds. |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3778 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3779 If a timer is ripe, we run it, with quitting turned off. |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3780 |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3781 DO_IT_NOW is now ignored. It used to mean that we should |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3782 run the timer directly instead of queueing a timer-event. |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3783 Now we always run timers directly. */ |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3784 |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3785 EMACS_TIME |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3786 timer_check (do_it_now) |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3787 int do_it_now; |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3788 { |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3789 EMACS_TIME nexttime; |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3790 EMACS_TIME now, idleness_now; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3791 Lisp_Object timers, idle_timers, chosen_timer; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3792 struct gcpro gcpro1, gcpro2, gcpro3; |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3793 |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3794 EMACS_SET_SECS (nexttime, -1); |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3795 EMACS_SET_USECS (nexttime, -1); |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3796 |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3797 /* Always consider the ordinary timers. */ |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3798 timers = Vtimer_list; |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3799 /* Consider the idle timers only if Emacs is idle. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3800 if (! EMACS_TIME_NEG_P (timer_idleness_start_time)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3801 idle_timers = Vtimer_idle_list; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3802 else |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3803 idle_timers = Qnil; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3804 chosen_timer = Qnil; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3805 GCPRO3 (timers, idle_timers, chosen_timer); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3806 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3807 if (CONSP (timers) || CONSP (idle_timers)) |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3808 { |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3809 EMACS_GET_TIME (now); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3810 if (! EMACS_TIME_NEG_P (timer_idleness_start_time)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3811 EMACS_SUB_TIME (idleness_now, now, timer_idleness_start_time); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3812 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3813 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3814 while (CONSP (timers) || CONSP (idle_timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3815 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3816 Lisp_Object *vector; |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
3817 Lisp_Object timer = Qnil, idle_timer = Qnil; |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3818 EMACS_TIME timer_time, idle_timer_time; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3819 EMACS_TIME difference, timer_difference, idle_timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3820 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3821 /* Skip past invalid timers and timers already handled. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3822 if (!NILP (timers)) |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3823 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3824 timer = XCAR (timers); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3825 if (!VECTORP (timer) || XVECTOR (timer)->size != 8) |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3826 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3827 timers = XCDR (timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3828 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3829 } |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3830 vector = XVECTOR (timer)->contents; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3831 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3832 if (!INTEGERP (vector[1]) || !INTEGERP (vector[2]) |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3833 || !INTEGERP (vector[3]) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3834 || ! NILP (vector[0])) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3835 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3836 timers = XCDR (timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3837 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3838 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3839 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3840 if (!NILP (idle_timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3841 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3842 timer = XCAR (idle_timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3843 if (!VECTORP (timer) || XVECTOR (timer)->size != 8) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3844 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3845 idle_timers = XCDR (idle_timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3846 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3847 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3848 vector = XVECTOR (timer)->contents; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3849 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3850 if (!INTEGERP (vector[1]) || !INTEGERP (vector[2]) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3851 || !INTEGERP (vector[3]) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3852 || ! NILP (vector[0])) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3853 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3854 idle_timers = XCDR (idle_timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3855 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3856 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3857 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3858 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3859 /* Set TIMER, TIMER_TIME and TIMER_DIFFERENCE |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3860 based on the next ordinary timer. |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3861 TIMER_DIFFERENCE is the distance in time from NOW to when |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3862 this timer becomes ripe (negative if it's already ripe). */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3863 if (!NILP (timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3864 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3865 timer = XCAR (timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3866 vector = XVECTOR (timer)->contents; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3867 EMACS_SET_SECS (timer_time, |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3868 (XINT (vector[1]) << 16) | (XINT (vector[2]))); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
3869 EMACS_SET_USECS (timer_time, XINT (vector[3])); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3870 EMACS_SUB_TIME (timer_difference, timer_time, now); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3871 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3872 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3873 /* Set IDLE_TIMER, IDLE_TIMER_TIME and IDLE_TIMER_DIFFERENCE |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3874 based on the next idle timer. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3875 if (!NILP (idle_timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3876 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3877 idle_timer = XCAR (idle_timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3878 vector = XVECTOR (idle_timer)->contents; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3879 EMACS_SET_SECS (idle_timer_time, |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3880 (XINT (vector[1]) << 16) | (XINT (vector[2]))); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3881 EMACS_SET_USECS (idle_timer_time, XINT (vector[3])); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3882 EMACS_SUB_TIME (idle_timer_difference, idle_timer_time, idleness_now); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3883 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3884 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3885 /* Decide which timer is the next timer, |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3886 and set CHOSEN_TIMER, VECTOR and DIFFERENCE accordingly. |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3887 Also step down the list where we found that timer. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3888 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3889 if (! NILP (timers) && ! NILP (idle_timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3890 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3891 EMACS_TIME temp; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3892 EMACS_SUB_TIME (temp, timer_difference, idle_timer_difference); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3893 if (EMACS_TIME_NEG_P (temp)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3894 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3895 chosen_timer = timer; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3896 timers = XCDR (timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3897 difference = timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3898 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3899 else |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3900 { |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3901 chosen_timer = idle_timer; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3902 idle_timers = XCDR (idle_timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3903 difference = idle_timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3904 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3905 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3906 else if (! NILP (timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3907 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3908 chosen_timer = timer; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3909 timers = XCDR (timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3910 difference = timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3911 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3912 else |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3913 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3914 chosen_timer = idle_timer; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3915 idle_timers = XCDR (idle_timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3916 difference = idle_timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3917 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3918 vector = XVECTOR (chosen_timer)->contents; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3919 |
28679
ab98f4a8d7e1
(timer_check): Fix typo in comment.
Gerd Moellmann <gerd@gnu.org>
parents:
28672
diff
changeset
|
3920 /* If timer is ripe, run it if it hasn't been run. */ |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3921 if (EMACS_TIME_NEG_P (difference) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3922 || (EMACS_SECS (difference) == 0 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3923 && EMACS_USECS (difference) == 0)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3924 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3925 if (NILP (vector[0])) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3926 { |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3927 int was_locked = single_kboard; |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3928 int count = specpdl_ptr - specpdl; |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3929 |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3930 /* Mark the timer as triggered to prevent problems if the lisp |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3931 code fails to reschedule it right. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3932 vector[0] = Qt; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3933 |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3934 specbind (Qinhibit_quit, Qt); |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3935 |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3936 call1 (Qtimer_event_handler, chosen_timer); |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3937 timers_run++; |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3938 |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3939 unbind_to (count, Qnil); |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3940 |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3941 /* Resume allowing input from any kboard, if that was true before. */ |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3942 if (!was_locked) |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3943 any_kboard_state (); |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3944 |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3945 /* Since we have handled the event, |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
3946 we don't need to tell the caller to wake up and do it. */ |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3947 } |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3948 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3949 else |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3950 /* When we encounter a timer that is still waiting, |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3951 return the amount of time to wait before it is ripe. */ |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3952 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3953 UNGCPRO; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3954 return difference; |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3955 } |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3956 } |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
3957 |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3958 /* No timers are pending in the future. */ |
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3959 /* Return 0 if we generated an event, and -1 if not. */ |
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
3960 UNGCPRO; |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3961 return nexttime; |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3962 } |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
3963 |
518 | 3964 /* 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
|
3965 static Lisp_Object accent_key_syms; |
518 | 3966 static Lisp_Object func_key_syms; |
3967 static Lisp_Object mouse_syms; | |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3968 #ifdef WINDOWSNT |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3969 static Lisp_Object mouse_wheel_syms; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3970 #endif |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
3971 static Lisp_Object drag_n_drop_syms; |
518 | 3972 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3973 /* 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
|
3974 It parallels lispy_accent_keys. */ |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3975 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3976 static int lispy_accent_codes[] = |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3977 { |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3978 #ifdef XK_dead_circumflex |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3979 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
|
3980 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3981 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3982 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3983 #ifdef XK_dead_grave |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3984 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
|
3985 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3986 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3987 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3988 #ifdef XK_dead_tilde |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3989 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
|
3990 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3991 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3992 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3993 #ifdef XK_dead_diaeresis |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3994 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
|
3995 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3996 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3997 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
3998 #ifdef XK_dead_macron |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3999 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
|
4000 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4001 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4002 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4003 #ifdef XK_dead_degree |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4004 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
|
4005 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4006 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4007 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4008 #ifdef XK_dead_acute |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4009 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
|
4010 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4011 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4012 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4013 #ifdef XK_dead_cedilla |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4014 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
|
4015 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4016 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4017 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4018 #ifdef XK_dead_breve |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4019 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
|
4020 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4021 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4022 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4023 #ifdef XK_dead_ogonek |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4024 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
|
4025 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4026 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4027 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4028 #ifdef XK_dead_caron |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4029 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
|
4030 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4031 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4032 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4033 #ifdef XK_dead_doubleacute |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4034 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
|
4035 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4036 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4037 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4038 #ifdef XK_dead_abovedot |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4039 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
|
4040 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4041 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4042 #endif |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4043 }; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4044 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4045 /* 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
|
4046 It parallels lispy_accent_codes. */ |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4047 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4048 static char *lispy_accent_keys[] = |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4049 { |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4050 "dead-circumflex", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4051 "dead-grave", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4052 "dead-tilde", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4053 "dead-diaeresis", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4054 "dead-macron", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4055 "dead-degree", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4056 "dead-acute", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4057 "dead-cedilla", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4058 "dead-breve", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4059 "dead-ogonek", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4060 "dead-caron", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4061 "dead-doubleacute", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4062 "dead-abovedot", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4063 }; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4064 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4065 #ifdef HAVE_NTGUI |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4066 #define FUNCTION_KEY_OFFSET 0x0 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4067 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4068 char *lispy_function_keys[] = |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4069 { |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4070 0, /* 0 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4071 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4072 0, /* VK_LBUTTON 0x01 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4073 0, /* VK_RBUTTON 0x02 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4074 "cancel", /* VK_CANCEL 0x03 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4075 0, /* VK_MBUTTON 0x04 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4076 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4077 0, 0, 0, /* 0x05 .. 0x07 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4078 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4079 "backspace", /* VK_BACK 0x08 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4080 "tab", /* VK_TAB 0x09 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4081 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4082 0, 0, /* 0x0A .. 0x0B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4083 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4084 "clear", /* VK_CLEAR 0x0C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4085 "return", /* VK_RETURN 0x0D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4086 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4087 0, 0, /* 0x0E .. 0x0F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4088 |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4089 0, /* VK_SHIFT 0x10 */ |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4090 0, /* VK_CONTROL 0x11 */ |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4091 0, /* VK_MENU 0x12 */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4092 "pause", /* VK_PAUSE 0x13 */ |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4093 "capslock", /* VK_CAPITAL 0x14 */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4094 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4095 0, 0, 0, 0, 0, 0, /* 0x15 .. 0x1A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4096 |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4097 "escape", /* VK_ESCAPE 0x1B */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4098 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4099 0, 0, 0, 0, /* 0x1C .. 0x1F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4100 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4101 0, /* VK_SPACE 0x20 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4102 "prior", /* VK_PRIOR 0x21 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4103 "next", /* VK_NEXT 0x22 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4104 "end", /* VK_END 0x23 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4105 "home", /* VK_HOME 0x24 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4106 "left", /* VK_LEFT 0x25 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4107 "up", /* VK_UP 0x26 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4108 "right", /* VK_RIGHT 0x27 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4109 "down", /* VK_DOWN 0x28 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4110 "select", /* VK_SELECT 0x29 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4111 "print", /* VK_PRINT 0x2A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4112 "execute", /* VK_EXECUTE 0x2B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4113 "snapshot", /* VK_SNAPSHOT 0x2C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4114 "insert", /* VK_INSERT 0x2D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4115 "delete", /* VK_DELETE 0x2E */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4116 "help", /* VK_HELP 0x2F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4117 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4118 /* VK_0 thru VK_9 are the same as ASCII '0' thru '9' (0x30 - 0x39) */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4119 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4120 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4121 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4122 0, 0, 0, 0, 0, 0, 0, /* 0x3A .. 0x40 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4123 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4124 /* VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' (0x41 - 0x5A) */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4125 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4126 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4127 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4128 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4129 |
14550
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4130 "lwindow", /* VK_LWIN 0x5B */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4131 "rwindow", /* VK_RWIN 0x5C */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4132 "apps", /* VK_APPS 0x5D */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4133 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4134 0, 0, /* 0x5E .. 0x5F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4135 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4136 "kp-0", /* VK_NUMPAD0 0x60 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4137 "kp-1", /* VK_NUMPAD1 0x61 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4138 "kp-2", /* VK_NUMPAD2 0x62 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4139 "kp-3", /* VK_NUMPAD3 0x63 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4140 "kp-4", /* VK_NUMPAD4 0x64 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4141 "kp-5", /* VK_NUMPAD5 0x65 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4142 "kp-6", /* VK_NUMPAD6 0x66 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4143 "kp-7", /* VK_NUMPAD7 0x67 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4144 "kp-8", /* VK_NUMPAD8 0x68 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4145 "kp-9", /* VK_NUMPAD9 0x69 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4146 "kp-multiply", /* VK_MULTIPLY 0x6A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4147 "kp-add", /* VK_ADD 0x6B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4148 "kp-separator", /* VK_SEPARATOR 0x6C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4149 "kp-subtract", /* VK_SUBTRACT 0x6D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4150 "kp-decimal", /* VK_DECIMAL 0x6E */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4151 "kp-divide", /* VK_DIVIDE 0x6F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4152 "f1", /* VK_F1 0x70 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4153 "f2", /* VK_F2 0x71 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4154 "f3", /* VK_F3 0x72 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4155 "f4", /* VK_F4 0x73 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4156 "f5", /* VK_F5 0x74 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4157 "f6", /* VK_F6 0x75 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4158 "f7", /* VK_F7 0x76 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4159 "f8", /* VK_F8 0x77 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4160 "f9", /* VK_F9 0x78 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4161 "f10", /* VK_F10 0x79 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4162 "f11", /* VK_F11 0x7A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4163 "f12", /* VK_F12 0x7B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4164 "f13", /* VK_F13 0x7C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4165 "f14", /* VK_F14 0x7D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4166 "f15", /* VK_F15 0x7E */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4167 "f16", /* VK_F16 0x7F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4168 "f17", /* VK_F17 0x80 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4169 "f18", /* VK_F18 0x81 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4170 "f19", /* VK_F19 0x82 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4171 "f20", /* VK_F20 0x83 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4172 "f21", /* VK_F21 0x84 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4173 "f22", /* VK_F22 0x85 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4174 "f23", /* VK_F23 0x86 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4175 "f24", /* VK_F24 0x87 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4176 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4177 0, 0, 0, 0, /* 0x88 .. 0x8B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4178 0, 0, 0, 0, /* 0x8C .. 0x8F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4179 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4180 "kp-numlock", /* VK_NUMLOCK 0x90 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4181 "scroll", /* VK_SCROLL 0x91 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4182 |
14550
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4183 "kp-space", /* VK_NUMPAD_CLEAR 0x92 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4184 "kp-enter", /* VK_NUMPAD_ENTER 0x93 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4185 "kp-prior", /* VK_NUMPAD_PRIOR 0x94 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4186 "kp-next", /* VK_NUMPAD_NEXT 0x95 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4187 "kp-end", /* VK_NUMPAD_END 0x96 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4188 "kp-home", /* VK_NUMPAD_HOME 0x97 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4189 "kp-left", /* VK_NUMPAD_LEFT 0x98 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4190 "kp-up", /* VK_NUMPAD_UP 0x99 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4191 "kp-right", /* VK_NUMPAD_RIGHT 0x9A */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4192 "kp-down", /* VK_NUMPAD_DOWN 0x9B */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4193 "kp-insert", /* VK_NUMPAD_INSERT 0x9C */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4194 "kp-delete", /* VK_NUMPAD_DELETE 0x9D */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4195 |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4196 0, 0, /* 0x9E .. 0x9F */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4197 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4198 /* |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4199 * VK_L* & VK_R* - left and right Alt, Ctrl and Shift virtual keys. |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
4200 * Used only as parameters to GetAsyncKeyState and GetKeyState. |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4201 * No other API or message will distinguish left and right keys this way. |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4202 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4203 /* 0xA0 .. 0xEF */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4204 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4205 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4206 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4207 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4208 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4209 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4210 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4211 /* 0xF0 .. 0xF5 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4212 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4213 0, 0, 0, 0, 0, 0, |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4214 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4215 "attn", /* VK_ATTN 0xF6 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4216 "crsel", /* VK_CRSEL 0xF7 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4217 "exsel", /* VK_EXSEL 0xF8 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4218 "ereof", /* VK_EREOF 0xF9 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4219 "play", /* VK_PLAY 0xFA */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4220 "zoom", /* VK_ZOOM 0xFB */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4221 "noname", /* VK_NONAME 0xFC */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4222 "pa1", /* VK_PA1 0xFD */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4223 "oem_clear", /* VK_OEM_CLEAR 0xFE */ |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4224 0 /* 0xFF */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4225 }; |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4226 |
17231
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4227 #else /* not HAVE_NTGUI */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4228 |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4229 #ifdef XK_kana_A |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4230 static char *lispy_kana_keys[] = |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4231 { |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4232 /* X Keysym value */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4233 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x400 .. 0x40f */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4234 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x410 .. 0x41f */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4235 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x420 .. 0x42f */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4236 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x430 .. 0x43f */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4237 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x440 .. 0x44f */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4238 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x450 .. 0x45f */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4239 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x460 .. 0x46f */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4240 0,0,0,0,0,0,0,0,0,0,0,0,0,0,"overline",0, |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4241 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x480 .. 0x48f */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4242 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x490 .. 0x49f */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4243 0, "kana-fullstop", "kana-openingbracket", "kana-closingbracket", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4244 "kana-comma", "kana-conjunctive", "kana-WO", "kana-a", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4245 "kana-i", "kana-u", "kana-e", "kana-o", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4246 "kana-ya", "kana-yu", "kana-yo", "kana-tsu", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4247 "prolongedsound", "kana-A", "kana-I", "kana-U", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4248 "kana-E", "kana-O", "kana-KA", "kana-KI", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4249 "kana-KU", "kana-KE", "kana-KO", "kana-SA", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4250 "kana-SHI", "kana-SU", "kana-SE", "kana-SO", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4251 "kana-TA", "kana-CHI", "kana-TSU", "kana-TE", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4252 "kana-TO", "kana-NA", "kana-NI", "kana-NU", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4253 "kana-NE", "kana-NO", "kana-HA", "kana-HI", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4254 "kana-FU", "kana-HE", "kana-HO", "kana-MA", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4255 "kana-MI", "kana-MU", "kana-ME", "kana-MO", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4256 "kana-YA", "kana-YU", "kana-YO", "kana-RA", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4257 "kana-RI", "kana-RU", "kana-RE", "kana-RO", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4258 "kana-WA", "kana-N", "voicedsound", "semivoicedsound", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4259 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x4e0 .. 0x4ef */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4260 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x4f0 .. 0x4ff */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4261 }; |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4262 #endif /* XK_kana_A */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4263 |
17231
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4264 #define FUNCTION_KEY_OFFSET 0xff00 |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4265 |
518 | 4266 /* You'll notice that this table is arranged to be conveniently |
4267 indexed by X Windows keysym values. */ | |
4268 static char *lispy_function_keys[] = | |
4269 { | |
4270 /* X Keysym value */ | |
4271 | |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4272 0, 0, 0, 0, 0, 0, 0, 0, /* 0xff00...0f */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4273 "backspace", "tab", "linefeed", "clear", |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4274 0, "return", 0, 0, |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4275 0, 0, 0, "pause", /* 0xff10...1f */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4276 0, 0, 0, 0, 0, 0, 0, "escape", |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4277 0, 0, 0, 0, |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4278 0, "kanji", "muhenkan", "henkan", /* 0xff20...2f */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4279 "romaji", "hiragana", "katakana", "hiragana-katakana", |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4280 "zenkaku", "hankaku", "zenkaku-hankaku", "touroku", |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4281 "massyo", "kana-lock", "kana-shift", "eisu-shift", |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4282 "eisu-toggle", /* 0xff30...3f */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4283 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4284 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
|
4285 |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4286 "home", "left", "up", "right", /* 0xff50 */ /* IsCursorKey */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4287 "down", "prior", "next", "end", |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4288 "begin", 0, 0, 0, 0, 0, 0, 0, |
518 | 4289 "select", /* 0xff60 */ /* IsMiscFunctionKey */ |
4290 "print", | |
4291 "execute", | |
4292 "insert", | |
4293 0, /* 0xff64 */ | |
4294 "undo", | |
4295 "redo", | |
4296 "menu", | |
4297 "find", | |
4298 "cancel", | |
4299 "help", | |
4300 "break", /* 0xff6b */ | |
4301 | |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4302 0, 0, 0, 0, |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4303 0, 0, 0, 0, "backtab", 0, 0, 0, /* 0xff70... */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4304 0, 0, 0, 0, 0, 0, 0, "kp-numlock", /* 0xff78... */ |
518 | 4305 "kp-space", /* 0xff80 */ /* IsKeypadKey */ |
4306 0, 0, 0, 0, 0, 0, 0, 0, | |
4307 "kp-tab", /* 0xff89 */ | |
4308 0, 0, 0, | |
4309 "kp-enter", /* 0xff8d */ | |
4310 0, 0, 0, | |
4311 "kp-f1", /* 0xff91 */ | |
4312 "kp-f2", | |
4313 "kp-f3", | |
4314 "kp-f4", | |
7547
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4315 "kp-home", /* 0xff95 */ |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4316 "kp-left", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4317 "kp-up", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4318 "kp-right", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4319 "kp-down", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4320 "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
|
4321 "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
|
4322 "kp-end", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4323 "kp-begin", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4324 "kp-insert", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4325 "kp-delete", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4326 0, /* 0xffa0 */ |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
4327 0, 0, 0, 0, 0, 0, 0, 0, 0, |
518 | 4328 "kp-multiply", /* 0xffaa */ |
4329 "kp-add", | |
4330 "kp-separator", | |
4331 "kp-subtract", | |
4332 "kp-decimal", | |
4333 "kp-divide", /* 0xffaf */ | |
4334 "kp-0", /* 0xffb0 */ | |
4335 "kp-1", "kp-2", "kp-3", "kp-4", "kp-5", "kp-6", "kp-7", "kp-8", "kp-9", | |
4336 0, /* 0xffba */ | |
4337 0, 0, | |
4338 "kp-equal", /* 0xffbd */ | |
4339 "f1", /* 0xffbe */ /* IsFunctionKey */ | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4340 "f2", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4341 "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
|
4342 "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
|
4343 "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
|
4344 "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
|
4345 "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
|
4346 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
|
4347 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
|
4348 0, 0, 0, 0, 0, 0, 0, "delete" |
17231
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4349 }; |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4350 |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4351 /* ISO 9995 Function and Modifier Keys; the first byte is 0xFE. */ |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4352 #define ISO_FUNCTION_KEY_OFFSET 0xfe00 |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4353 |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4354 static char *iso_lispy_function_keys[] = |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4355 { |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4356 0, 0, 0, 0, 0, 0, 0, 0, /* 0xfe00 */ |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4357 0, 0, 0, 0, 0, 0, 0, 0, /* 0xfe08 */ |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4358 0, 0, 0, 0, 0, 0, 0, 0, /* 0xfe10 */ |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4359 0, 0, 0, 0, 0, 0, 0, 0, /* 0xfe18 */ |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4360 "iso-lefttab", /* 0xfe20 */ |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4361 "iso-move-line-up", "iso-move-line-down", |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4362 "iso-partial-line-up", "iso-partial-line-down", |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4363 "iso-partial-space-left", "iso-partial-space-right", |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4364 "iso-set-margin-left", "iso-set-margin-right", /* 0xffe27, 28 */ |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4365 "iso-release-margin-left", "iso-release-margin-right", |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4366 "iso-release-both-margins", |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4367 "iso-fast-cursor-left", "iso-fast-cursor-right", |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4368 "iso-fast-cursor-up", "iso-fast-cursor-down", |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4369 "iso-continuous-underline", "iso-discontinuous-underline", /* 0xfe30, 31 */ |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4370 "iso-emphasize", "iso-center-object", "iso-enter", /* ... 0xfe34 */ |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4371 }; |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4372 |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4373 #endif /* not HAVE_NTGUI */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4374 |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4375 Lisp_Object Vlispy_mouse_stem; |
518 | 4376 |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4377 #ifdef WINDOWSNT |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4378 /* mouse-wheel events are generated by the wheel on devices such as |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4379 the MS Intellimouse. The wheel sits in between the left and right |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4380 mouse buttons, and is typically used to scroll or zoom the window |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4381 underneath the pointer. mouse-wheel events specify the object on |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4382 which they operate, and a delta corresponding to the amount and |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4383 direction that the wheel is rotated. Clicking the mouse-wheel |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4384 generates a mouse-2 event. */ |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4385 static char *lispy_mouse_wheel_names[] = |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4386 { |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4387 "mouse-wheel" |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4388 }; |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4389 |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4390 #endif /* WINDOWSNT */ |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4391 |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4392 /* drag-n-drop events are generated when a set of selected files are |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4393 dragged from another application and dropped onto an Emacs window. */ |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4394 static char *lispy_drag_n_drop_names[] = |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4395 { |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4396 "drag-n-drop" |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4397 }; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4398 |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
4399 /* Scroll bar parts. */ |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4400 Lisp_Object Qabove_handle, Qhandle, Qbelow_handle; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4401 Lisp_Object Qup, Qdown, Qbottom, Qend_scroll; |
26788
5e97315b6f11
* keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26480
diff
changeset
|
4402 Lisp_Object Qtop, Qratio; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4403 |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
4404 /* 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
|
4405 Lisp_Object *scroll_bar_parts[] = { |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4406 &Qabove_handle, &Qhandle, &Qbelow_handle, |
26788
5e97315b6f11
* keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26480
diff
changeset
|
4407 &Qup, &Qdown, &Qtop, &Qbottom, &Qend_scroll, &Qratio |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4408 }; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4409 |
24375
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
4410 /* User signal events. */ |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
4411 Lisp_Object Qusr1_signal, Qusr2_signal; |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
4412 |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
4413 Lisp_Object *lispy_user_signals[] = |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
4414 { |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
4415 &Qusr1_signal, &Qusr2_signal |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
4416 }; |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
4417 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4418 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4419 /* 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
|
4420 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
|
4421 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4422 The elements have the form |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4423 (BUTTON-NUMBER MODIFIER-MASK . REST) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4424 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
|
4425 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4426 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
|
4427 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
|
4428 location to be included in drag events. */ |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4429 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4430 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
|
4431 |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4432 /* 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
|
4433 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
|
4434 |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4435 static int last_mouse_button; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4436 static int last_mouse_x; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4437 static int last_mouse_y; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4438 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
|
4439 |
3993
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
4440 /* 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
|
4441 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
|
4442 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
|
4443 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
|
4444 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4445 /* 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
|
4446 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4447 int double_click_count; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4448 |
518 | 4449 /* Given a struct input_event, build the lisp event which represents |
4450 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
|
4451 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
|
4452 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4453 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
|
4454 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
|
4455 in order to build drag events when the button is released. */ |
518 | 4456 |
4457 static Lisp_Object | |
4458 make_lispy_event (event) | |
4459 struct input_event *event; | |
4460 { | |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4461 int i; |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4462 |
10457
2ab3bd0288a9
Change all occurences of SWITCH_ENUM_BUG to use SWITCH_ENUM_CAST instead.
Karl Heuer <kwzh@gnu.org>
parents:
10433
diff
changeset
|
4463 switch (SWITCH_ENUM_CAST (event->kind)) |
518 | 4464 { |
4465 /* A simple keystroke. */ | |
4466 case ascii_keystroke: | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4467 { |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
4468 Lisp_Object lispy_c; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4469 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
|
4470 /* 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
|
4471 when proper. */ |
5b72eb2483e7
* xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents:
2789
diff
changeset
|
4472 if (event->modifiers & ctrl_modifier) |
2954
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
4473 c = make_ctrl_char (c); |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
4474 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
4475 /* 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
|
4476 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
|
4477 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
|
4478 c |= (event->modifiers |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4479 & (meta_modifier | alt_modifier |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4480 | hyper_modifier | super_modifier)); |
18778
7626e0d30719
(make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents:
18777
diff
changeset
|
4481 /* Distinguish Shift-SPC from SPC. */ |
7626e0d30719
(make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents:
18777
diff
changeset
|
4482 if ((event->code & 0377) == 040 |
7626e0d30719
(make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents:
18777
diff
changeset
|
4483 && event->modifiers & shift_modifier) |
7626e0d30719
(make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents:
18777
diff
changeset
|
4484 c |= shift_modifier; |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4485 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
|
4486 XSETFASTINT (lispy_c, c); |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
4487 return lispy_c; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
4488 } |
518 | 4489 |
30749
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
4490 case multibyte_char_keystroke: |
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
4491 { |
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
4492 Lisp_Object lispy_c; |
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
4493 |
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
4494 XSETFASTINT (lispy_c, event->code); |
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
4495 return lispy_c; |
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
4496 } |
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
4497 |
518 | 4498 /* A function key. The symbol may need to have modifier prefixes |
4499 tacked onto it. */ | |
4500 case non_ascii_keystroke: | |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4501 button_down_time = 0; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4502 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4503 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
|
4504 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
|
4505 return modify_event_symbol (i, |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4506 event->modifiers, |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4507 Qfunction_key, Qnil, |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4508 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
|
4509 (sizeof (lispy_accent_keys) |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4510 / sizeof (lispy_accent_keys[0]))); |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4511 |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
4512 /* Handle system-specific keysyms. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4513 if (event->code & (1 << 28)) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4514 { |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4515 /* 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
|
4516 since we can't make a vector long enuf. */ |
12176
3e14d94320f2
(system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12173
diff
changeset
|
4517 if (NILP (current_kboard->system_key_syms)) |
3e14d94320f2
(system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12173
diff
changeset
|
4518 current_kboard->system_key_syms = Fcons (Qnil, Qnil); |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
4519 return modify_event_symbol (event->code, |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4520 event->modifiers, |
11543
317e5825008b
(Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents:
11540
diff
changeset
|
4521 Qfunction_key, |
317e5825008b
(Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents:
11540
diff
changeset
|
4522 current_kboard->Vsystem_key_alist, |
12176
3e14d94320f2
(system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12173
diff
changeset
|
4523 0, ¤t_kboard->system_key_syms, |
3e14d94320f2
(system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12173
diff
changeset
|
4524 (unsigned)-1); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4525 } |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
4526 |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4527 #ifdef XK_kana_A |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4528 if (event->code >= 0x400 && event->code < 0x500) |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4529 return modify_event_symbol (event->code - 0x400, |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4530 event->modifiers & ~shift_modifier, |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4531 Qfunction_key, Qnil, |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4532 lispy_kana_keys, &func_key_syms, |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4533 (sizeof (lispy_kana_keys) |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4534 / sizeof (lispy_kana_keys[0]))); |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4535 #endif /* XK_kana_A */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4536 |
18513
948557b5aa7c
(make_lispy_event): Check that ISO_FUNCTION_KEY_OFFSET is defined.
Richard M. Stallman <rms@gnu.org>
parents:
18501
diff
changeset
|
4537 #ifdef ISO_FUNCTION_KEY_OFFSET |
17231
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4538 if (event->code < FUNCTION_KEY_OFFSET |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4539 && event->code >= ISO_FUNCTION_KEY_OFFSET) |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4540 return modify_event_symbol (event->code - ISO_FUNCTION_KEY_OFFSET, |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4541 event->modifiers, |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4542 Qfunction_key, Qnil, |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4543 iso_lispy_function_keys, &func_key_syms, |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4544 (sizeof (iso_lispy_function_keys) |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4545 / sizeof (iso_lispy_function_keys[0]))); |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4546 else |
18513
948557b5aa7c
(make_lispy_event): Check that ISO_FUNCTION_KEY_OFFSET is defined.
Richard M. Stallman <rms@gnu.org>
parents:
18501
diff
changeset
|
4547 #endif |
17231
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4548 return modify_event_symbol (event->code - FUNCTION_KEY_OFFSET, |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4549 event->modifiers, |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4550 Qfunction_key, Qnil, |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4551 lispy_function_keys, &func_key_syms, |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4552 (sizeof (lispy_function_keys) |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4553 / sizeof (lispy_function_keys[0]))); |
518 | 4554 |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
4555 #ifdef HAVE_MOUSE |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
4556 /* A mouse click. Figure out where it is, decide whether it's |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4557 a press, click or drag, and build the appropriate structure. */ |
518 | 4558 case mouse_click: |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4559 #ifndef USE_TOOLKIT_SCROLL_BARS |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
4560 case scroll_bar_click: |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4561 #endif |
518 | 4562 { |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4563 int button = event->code; |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4564 int is_double; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4565 Lisp_Object position; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4566 Lisp_Object *start_pos_ptr; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4567 Lisp_Object start_pos; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4568 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
4569 position = Qnil; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
4570 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4571 /* 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
|
4572 if (event->kind == mouse_click) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4573 { |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4574 int part; |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
4575 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
|
4576 Lisp_Object window; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4577 Lisp_Object posn; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4578 Lisp_Object string_info = Qnil; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4579 int row, column; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4580 |
7351
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
4581 /* 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
|
4582 have been deleted. */ |
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
4583 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
|
4584 return Qnil; |
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
4585 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4586 /* EVENT->x and EVENT->y are frame-relative pixel |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4587 coordinates at this place. Under old redisplay, COLUMN |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4588 and ROW are set to frame relative glyph coordinates |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4589 which are then used to determine whether this click is |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4590 in a menu (non-toolkit version). */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4591 pixel_to_glyph_coords (f, XINT (event->x), XINT (event->y), |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4592 &column, &row, NULL, 1); |
10275
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
4593 |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
4594 #ifndef USE_X_TOOLKIT |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
4595 /* In the non-toolkit version, clicks on the menu bar |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
4596 are ordinary button events in the event buffer. |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
4597 Distinguish them, and invoke the menu. |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
4598 |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
4599 (In the toolkit version, the toolkit handles the menu bar |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
4600 and Emacs doesn't know about it until after the user |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
4601 makes a selection.) */ |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
4602 if (row >= 0 && row < FRAME_MENU_BAR_LINES (f) |
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
4603 && (event->modifiers & down_modifier)) |
5684
6479e0eabb27
* keyboard.c (make_lispy_event): Add USE_X_TOOLKIT conditional and
Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
parents:
5674
diff
changeset
|
4604 { |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4605 Lisp_Object items, item; |
8169
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
4606 int hpos; |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
4607 int i; |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
4608 |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
4609 #if 0 |
8169
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
4610 /* 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
|
4611 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
|
4612 just ignore it. */ |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
4613 if (! (event->modifiers & down_modifier)) |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
4614 return Qnil; |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
4615 #endif |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
4616 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4617 /* Find the menu bar item under `column'. */ |
6812
ba2176fd811c
(make_lispy_event): Initialize item.
Karl Heuer <kwzh@gnu.org>
parents:
6805
diff
changeset
|
4618 item = Qnil; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4619 items = FRAME_MENU_BAR_ITEMS (f); |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
4620 for (i = 0; i < XVECTOR (items)->size; i += 4) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4621 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4622 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
|
4623 string = XVECTOR (items)->contents[i + 1]; |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
4624 pos = XVECTOR (items)->contents[i + 3]; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4625 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
|
4626 break; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4627 if (column >= XINT (pos) |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4628 && 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
|
4629 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4630 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
|
4631 break; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4632 } |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4633 } |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4634 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4635 /* ELisp manual 2.4b says (x y) are window relative but |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4636 code says they are frame-relative. */ |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4637 position |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4638 = Fcons (event->frame_or_window, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4639 Fcons (Qmenu_bar, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4640 Fcons (Fcons (event->x, event->y), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4641 Fcons (make_number (event->timestamp), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4642 Qnil)))); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4643 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
4644 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
|
4645 } |
10275
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
4646 #endif /* not USE_X_TOOLKIT */ |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
4647 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4648 /* Set `window' to the window under frame pixel coordinates |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4649 event->x/event->y. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4650 window = window_from_coordinates (f, XINT (event->x), |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4651 XINT (event->y), &part, 0); |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
4652 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4653 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
|
4654 { |
ebb72cf97695
(make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents:
8418
diff
changeset
|
4655 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
|
4656 posn = Qnil; |
ebb72cf97695
(make_lispy_event): If the position is not in a window,
Richard M. Stallman <rms@gnu.org>
parents:
8418
diff
changeset
|
4657 } |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4658 else |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4659 { |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4660 /* It's a click in window window at frame coordinates |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4661 event->x/ event->y. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4662 struct window *w = XWINDOW (window); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4663 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4664 /* Get window relative coordinates. Original code |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4665 `rounded' this to glyph boundaries. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4666 int wx = FRAME_TO_WINDOW_PIXEL_X (w, XINT (event->x)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4667 int wy = FRAME_TO_WINDOW_PIXEL_Y (w, XINT (event->y)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4668 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4669 /* Set event coordinates to window-relative coordinates |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4670 for constructing the Lisp event below. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4671 XSETINT (event->x, wx); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4672 XSETINT (event->y, wy); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4673 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4674 if (part == 1 || part == 3) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4675 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4676 /* Mode line or top line. Look for a string under |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4677 the mouse that may have a `local-map' property. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4678 Lisp_Object string; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4679 int charpos; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4680 |
25546 | 4681 posn = part == 1 ? Qmode_line : Qheader_line; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4682 string = mode_line_string (w, wx, wy, part == 1, &charpos); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4683 if (STRINGP (string)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4684 string_info = Fcons (string, make_number (charpos)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4685 } |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4686 else if (part == 2) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4687 posn = Qvertical_line; |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4688 else |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4689 XSETINT (posn, buffer_posn_from_coords (w, &wx, &wy)); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4690 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4691 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4692 position |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4693 = Fcons (window, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4694 Fcons (posn, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4695 Fcons (Fcons (event->x, event->y), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
4696 Fcons (make_number (event->timestamp), |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4697 (NILP (string_info) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4698 ? Qnil |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4699 : Fcons (string_info, Qnil)))))); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4700 } |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4701 #ifndef USE_TOOLKIT_SCROLL_BARS |
518 | 4702 else |
4703 { | |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4704 /* It's a scrollbar click. */ |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4705 Lisp_Object window; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4706 Lisp_Object portion_whole; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4707 Lisp_Object part; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4708 |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4709 window = event->frame_or_window; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4710 portion_whole = Fcons (event->x, event->y); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
4711 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
|
4712 |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4713 position |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4714 = Fcons (window, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4715 Fcons (Qvertical_scroll_bar, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4716 Fcons (portion_whole, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4717 Fcons (make_number (event->timestamp), |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4718 Fcons (part, Qnil))))); |
518 | 4719 } |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4720 #endif /* not USE_TOOLKIT_SCROLL_BARS */ |
518 | 4721 |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4722 if (button >= XVECTOR (button_down_location)->size) |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4723 { |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4724 button_down_location = larger_vector (button_down_location, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4725 button + 1, Qnil); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4726 mouse_syms = larger_vector (mouse_syms, button + 1, Qnil); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4727 } |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4728 |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4729 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
|
4730 |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4731 start_pos = *start_pos_ptr; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4732 *start_pos_ptr = Qnil; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4733 |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4734 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
|
4735 && 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
|
4736 && 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
|
4737 && button_down_time != 0 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4738 && (EQ (Vdouble_click_time, Qt) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4739 || (INTEGERP (Vdouble_click_time) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4740 && ((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
|
4741 < XINT (Vdouble_click_time))))); |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4742 last_mouse_button = button; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4743 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
|
4744 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
|
4745 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4746 /* 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
|
4747 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
|
4748 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
|
4749 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4750 if (is_double) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4751 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4752 double_click_count++; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4753 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
|
4754 ? triple_modifier |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4755 : double_modifier); |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4756 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4757 else |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4758 double_click_count = 1; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4759 button_down_time = event->timestamp; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4760 *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
|
4761 } |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4762 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4763 /* 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
|
4764 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
|
4765 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
|
4766 { |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
4767 /* 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
|
4768 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
|
4769 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
|
4770 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
|
4771 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
|
4772 as a separate event. */ |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
4773 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
4774 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
|
4775 return Qnil; |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
4776 |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4777 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
|
4778 #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
|
4779 if (!CONSP (start_pos)) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4780 event->modifiers |= click_modifier; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4781 else |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
4782 #endif |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4783 { |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4784 /* 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
|
4785 pair. */ |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4786 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
|
4787 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4788 down = Fnth (make_number (2), start_pos); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4789 if (EQ (event->x, XCAR (down)) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4790 && EQ (event->y, XCDR (down))) |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4791 { |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4792 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
|
4793 } |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4794 else |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4795 { |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
4796 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
|
4797 event->modifiers |= drag_modifier; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4798 } |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4799 /* Don't check is_double; treat this as multiple |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4800 if the down-event was multiple. */ |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4801 if (double_click_count > 1) |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4802 event->modifiers |= ((double_click_count > 2) |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4803 ? triple_modifier |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
4804 : double_modifier); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4805 } |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4806 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4807 else |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4808 /* 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
|
4809 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
|
4810 abort (); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4811 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4812 { |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4813 /* 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
|
4814 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
|
4815 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4816 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
|
4817 event->modifiers, |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4818 Qmouse_click, Vlispy_mouse_stem, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4819 NULL, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4820 &mouse_syms, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4821 XVECTOR (mouse_syms)->size); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4822 if (event->modifiers & drag_modifier) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4823 return Fcons (head, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4824 Fcons (start_pos, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4825 Fcons (position, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
4826 Qnil))); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4827 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
|
4828 return Fcons (head, |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4829 Fcons (position, |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
4830 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
|
4831 Qnil))); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4832 else |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4833 return Fcons (head, |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4834 Fcons (position, |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4835 Qnil)); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
4836 } |
518 | 4837 } |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4838 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4839 #if USE_TOOLKIT_SCROLL_BARS |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4840 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4841 /* We don't have down and up events if using toolkit scroll bars, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4842 so make this always a click event. Store in the `part' of |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4843 the Lisp event a symbol which maps to the following actions: |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4844 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4845 `above_handle' page up |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4846 `below_handle' page down |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4847 `up' line up |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4848 `down' line down |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4849 `top' top of buffer |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4850 `bottom' bottom of buffer |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4851 `handle' thumb has been dragged. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4852 `end-scroll' end of interaction with scroll bar |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4853 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4854 The incoming input_event contains in its `part' member an |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4855 index of type `enum scroll_bar_part' which we can use as an |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4856 index in scroll_bar_parts to get the appropriate symbol. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4857 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4858 case scroll_bar_click: |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4859 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4860 Lisp_Object position, head, window, portion_whole, part; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4861 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4862 window = event->frame_or_window; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4863 portion_whole = Fcons (event->x, event->y); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4864 part = *scroll_bar_parts[(int) event->part]; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4865 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4866 position |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4867 = Fcons (window, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4868 Fcons (Qvertical_scroll_bar, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4869 Fcons (portion_whole, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4870 Fcons (make_number (event->timestamp), |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4871 Fcons (part, Qnil))))); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4872 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4873 /* Always treat scroll bar events as clicks. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4874 event->modifiers |= click_modifier; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4875 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4876 /* Get the symbol we should use for the mouse click. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4877 head = modify_event_symbol (event->code, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4878 event->modifiers, |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4879 Qmouse_click, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4880 Vlispy_mouse_stem, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4881 NULL, &mouse_syms, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4882 XVECTOR (mouse_syms)->size); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4883 return Fcons (head, Fcons (position, Qnil)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4884 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4885 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4886 #endif /* USE_TOOLKIT_SCROLL_BARS */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4887 |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4888 #ifdef WINDOWSNT |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16504
diff
changeset
|
4889 case w32_scroll_bar_click: |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4890 { |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4891 int button = event->code; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4892 int is_double; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4893 Lisp_Object position; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4894 Lisp_Object *start_pos_ptr; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4895 Lisp_Object start_pos; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4896 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4897 { |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4898 Lisp_Object window; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4899 Lisp_Object portion_whole; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4900 Lisp_Object part; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4901 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4902 window = event->frame_or_window; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4903 portion_whole = Fcons (event->x, event->y); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4904 part = *scroll_bar_parts[(int) event->part]; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4905 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
4906 position |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
4907 = Fcons (window, |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
4908 Fcons (Qvertical_scroll_bar, |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
4909 Fcons (portion_whole, |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
4910 Fcons (make_number (event->timestamp), |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
4911 Fcons (part, Qnil))))); |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4912 } |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4913 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16504
diff
changeset
|
4914 /* Always treat W32 scroll bar events as clicks. */ |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4915 event->modifiers |= click_modifier; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4916 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4917 { |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4918 /* Get the symbol we should use for the mouse click. */ |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4919 Lisp_Object head; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4920 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4921 head = modify_event_symbol (button, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4922 event->modifiers, |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4923 Qmouse_click, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4924 Vlispy_mouse_stem, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4925 NULL, &mouse_syms, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
4926 XVECTOR (mouse_syms)->size); |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4927 return Fcons (head, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4928 Fcons (position, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4929 Qnil)); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4930 } |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
4931 } |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4932 case mouse_wheel: |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4933 { |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4934 int part; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4935 FRAME_PTR f = XFRAME (event->frame_or_window); |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4936 Lisp_Object window; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4937 Lisp_Object posn; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4938 Lisp_Object head, position; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4939 int row, column; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4940 |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4941 /* Ignore mouse events that were made on frame that |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4942 have been deleted. */ |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4943 if (! FRAME_LIVE_P (f)) |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4944 return Qnil; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4945 pixel_to_glyph_coords (f, XINT (event->x), XINT (event->y), |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4946 &column, &row, NULL, 1); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4947 window = window_from_coordinates (f, column, row, &part, 0); |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4948 |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4949 if (!WINDOWP (window)) |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4950 { |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4951 window = event->frame_or_window; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4952 posn = Qnil; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4953 } |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4954 else |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4955 { |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4956 int pixcolumn, pixrow; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4957 column -= XINT (XWINDOW (window)->left); |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4958 row -= XINT (XWINDOW (window)->top); |
29313
1d74ff8abe23
(make_lispy_event) [WINDOWS_NT]: Pass a window pointer to
Jason Rumney <jasonr@gnu.org>
parents:
29280
diff
changeset
|
4959 glyph_to_pixel_coords (XWINDOW(window), column, row, |
1d74ff8abe23
(make_lispy_event) [WINDOWS_NT]: Pass a window pointer to
Jason Rumney <jasonr@gnu.org>
parents:
29280
diff
changeset
|
4960 &pixcolumn, &pixrow); |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4961 XSETINT (event->x, pixcolumn); |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4962 XSETINT (event->y, pixrow); |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4963 |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4964 if (part == 1) |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4965 posn = Qmode_line; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4966 else if (part == 2) |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4967 posn = Qvertical_line; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4968 else if (part == 3) |
25546 | 4969 posn = Qheader_line; |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4970 else |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4971 XSETINT (posn, |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4972 buffer_posn_from_coords (XWINDOW (window), |
27979
0eacc2b5db8a
(make_lispy_event): Call buffer_posn_from_coords with correct parameters.
Jason Rumney <jasonr@gnu.org>
parents:
27880
diff
changeset
|
4973 &column, &row)); |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4974 } |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4975 |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4976 { |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4977 Lisp_Object head, position; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4978 |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4979 position |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4980 = Fcons (window, |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4981 Fcons (posn, |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4982 Fcons (Fcons (event->x, event->y), |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4983 Fcons (make_number (event->timestamp), |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4984 Qnil)))); |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4985 |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4986 head = modify_event_symbol (0, event->modifiers, |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4987 Qmouse_wheel, Qnil, |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4988 lispy_mouse_wheel_names, |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4989 &mouse_wheel_syms, 1); |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4990 return Fcons (head, |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4991 Fcons (position, |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4992 Fcons (make_number (event->code), |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4993 Qnil))); |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4994 } |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4995 } |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4996 #endif /* WINDOWSNT */ |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4997 |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4998 case drag_n_drop: |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
4999 { |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5000 int part; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5001 FRAME_PTR f; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5002 Lisp_Object window; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5003 Lisp_Object posn; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5004 Lisp_Object files; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5005 int row, column; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5006 |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5007 /* The frame_or_window field should be a cons of the frame in |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5008 which the event occurred and a list of the filenames |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5009 dropped. */ |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5010 if (! CONSP (event->frame_or_window)) |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5011 abort (); |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5012 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
5013 f = XFRAME (XCAR (event->frame_or_window)); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
5014 files = XCDR (event->frame_or_window); |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5015 |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5016 /* Ignore mouse events that were made on frames that |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5017 have been deleted. */ |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5018 if (! FRAME_LIVE_P (f)) |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5019 return Qnil; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5020 pixel_to_glyph_coords (f, XINT (event->x), XINT (event->y), |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5021 &column, &row, NULL, 1); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5022 window = window_from_coordinates (f, column, row, &part, 0); |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5023 |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5024 if (!WINDOWP (window)) |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5025 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
5026 window = XCAR (event->frame_or_window); |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5027 posn = Qnil; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5028 } |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5029 else |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5030 { |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5031 /* It's an event in window `window' at frame coordinates |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5032 event->x/ event->y. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5033 struct window *w = XWINDOW (window); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5034 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5035 /* Get window relative coordinates. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5036 int wx = FRAME_TO_WINDOW_PIXEL_X (w, XINT (event->x)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5037 int wy = FRAME_TO_WINDOW_PIXEL_Y (w, XINT (event->y)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5038 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5039 /* Set event coordinates to window-relative coordinates |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5040 for constructing the Lisp event below. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5041 XSETINT (event->x, wx); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5042 XSETINT (event->y, wy); |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5043 |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5044 if (part == 1) |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5045 posn = Qmode_line; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5046 else if (part == 2) |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5047 posn = Qvertical_line; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5048 else if (part == 3) |
25546 | 5049 posn = Qheader_line; |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5050 else |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5051 XSETINT (posn, buffer_posn_from_coords (w, &wx, &wy)); |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5052 } |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5053 |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5054 { |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5055 Lisp_Object head, position; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5056 |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5057 position |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5058 = Fcons (window, |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5059 Fcons (posn, |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5060 Fcons (Fcons (event->x, event->y), |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5061 Fcons (make_number (event->timestamp), |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5062 Qnil)))); |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5063 |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5064 head = modify_event_symbol (0, event->modifiers, |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5065 Qdrag_n_drop, Qnil, |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5066 lispy_drag_n_drop_names, |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5067 &drag_n_drop_syms, 1); |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5068 return Fcons (head, |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5069 Fcons (position, |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5070 Fcons (files, |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5071 Qnil))); |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5072 } |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
5073 } |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
5074 #endif /* HAVE_MOUSE */ |
518 | 5075 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
5076 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5077 case MENU_BAR_EVENT: |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5078 if (EQ (event->arg, event->frame_or_window)) |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5079 /* This is the prefix key. We translate this to |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5080 `(menu_bar)' because the code in keyboard.c for menu |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5081 events, which we use, relies on this. */ |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5082 return Fcons (Qmenu_bar, Qnil); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5083 return event->arg; |
11285
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
5084 #endif |
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
5085 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
5086 case TOOL_BAR_EVENT: |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5087 if (EQ (event->arg, event->frame_or_window)) |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5088 /* This is the prefix key. We translate this to |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5089 `(tool_bar)' because the code in keyboard.c for menu |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5090 events, which we use, relies on this. */ |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5091 return Fcons (Qtool_bar, Qnil); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5092 else if (SYMBOLP (event->arg)) |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5093 return apply_modifiers (event->modifiers, event->arg); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5094 return event->arg; |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5095 |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5096 case USER_SIGNAL_EVENT: |
24375
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
5097 /* A user signal. */ |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
5098 return *lispy_user_signals[event->code]; |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
5099 |
518 | 5100 /* The 'kind' field of the event is something we don't recognize. */ |
5101 default: | |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
5102 abort (); |
518 | 5103 } |
5104 } | |
5105 | |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
5106 #ifdef HAVE_MOUSE |
6805
8310b2eb6b06
(make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents:
6749
diff
changeset
|
5107 |
518 | 5108 static Lisp_Object |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5109 make_lispy_movement (frame, bar_window, part, x, y, time) |
765 | 5110 FRAME_PTR frame; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5111 Lisp_Object bar_window; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
5112 enum scroll_bar_part part; |
518 | 5113 Lisp_Object x, y; |
732 | 5114 unsigned long time; |
518 | 5115 { |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
5116 /* Is it a scroll bar movement? */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5117 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
|
5118 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5119 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
|
5120 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5121 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
|
5122 return Fcons (Qscroll_bar_movement, |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5123 (Fcons (Fcons (bar_window, |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
5124 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
|
5125 Fcons (Fcons (x, y), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5126 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
|
5127 Fcons (part_sym, |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5128 Qnil))))), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5129 Qnil))); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5130 } |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5131 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5132 /* Or is it an ordinary mouse movement? */ |
518 | 5133 else |
5134 { | |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5135 int area; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5136 Lisp_Object window; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5137 Lisp_Object posn; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5138 |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5139 if (frame) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5140 /* It's in a frame; which window on that frame? */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5141 window = window_from_coordinates (frame, XINT (x), XINT (y), &area, 0); |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5142 else |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5143 window = Qnil; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5144 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5145 if (WINDOWP (window)) |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5146 { |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5147 struct window *w = XWINDOW (window); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5148 int wx, wy; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5149 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5150 /* Get window relative coordinates. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5151 wx = FRAME_TO_WINDOW_PIXEL_X (w, XINT (x)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5152 wy = FRAME_TO_WINDOW_PIXEL_Y (w, XINT (y)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5153 XSETINT (x, wx); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5154 XSETINT (y, wy); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5155 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5156 if (area == 1) |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5157 posn = Qmode_line; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5158 else if (area == 2) |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5159 posn = Qvertical_line; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5160 else if (area == 3) |
25546 | 5161 posn = Qheader_line; |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5162 else |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5163 XSETINT (posn, buffer_posn_from_coords (w, &wx, &wy)); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5164 } |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5165 else if (frame != 0) |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5166 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
5167 XSETFRAME (window, frame); |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5168 posn = Qnil; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5169 } |
518 | 5170 else |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5171 { |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5172 window = Qnil; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5173 posn = Qnil; |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
5174 XSETFASTINT (x, 0); |
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
5175 XSETFASTINT (y, 0); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5176 } |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5177 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5178 return Fcons (Qmouse_movement, |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5179 Fcons (Fcons (window, |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5180 Fcons (posn, |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5181 Fcons (Fcons (x, y), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5182 Fcons (make_number (time), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5183 Qnil)))), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5184 Qnil)); |
518 | 5185 } |
5186 } | |
5187 | |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
5188 #endif /* HAVE_MOUSE */ |
6805
8310b2eb6b06
(make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents:
6749
diff
changeset
|
5189 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
5190 /* 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
|
5191 static Lisp_Object |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
5192 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
|
5193 Lisp_Object frame; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
5194 { |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
5195 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
|
5196 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5197 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5198 /* Manipulating modifiers. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5199 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5200 /* 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
|
5201 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5202 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
|
5203 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
|
5204 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
|
5205 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5206 This doesn't use any caches. */ |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5207 |
518 | 5208 static int |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5209 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
|
5210 Lisp_Object symbol; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5211 int *modifier_end; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5212 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5213 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
|
5214 int i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5215 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5216 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5217 CHECK_SYMBOL (symbol, 1); |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5218 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5219 modifiers = 0; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5220 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
|
5221 |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
5222 for (i = 0; i+2 <= STRING_BYTES (name); ) |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5223 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5224 int this_mod_end = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5225 int this_mod = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5226 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5227 /* See if the name continues with a modifier word. |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5228 Check that the word appears, but don't check what follows it. |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5229 Set this_mod and this_mod_end to record what we find. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5230 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5231 switch (name->data[i]) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5232 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5233 #define SINGLE_LETTER_MOD(BIT) \ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5234 (this_mod_end = i + 1, this_mod = BIT) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5235 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5236 case 'A': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5237 SINGLE_LETTER_MOD (alt_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5238 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5239 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5240 case 'C': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5241 SINGLE_LETTER_MOD (ctrl_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5242 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5243 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5244 case 'H': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5245 SINGLE_LETTER_MOD (hyper_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5246 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5247 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5248 case 'M': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5249 SINGLE_LETTER_MOD (meta_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5250 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5251 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5252 case 'S': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5253 SINGLE_LETTER_MOD (shift_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5254 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5255 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5256 case 's': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5257 SINGLE_LETTER_MOD (super_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5258 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5259 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5260 #undef SINGLE_LETTER_MOD |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5261 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5262 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5263 /* If we found no modifier, stop looking for them. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5264 if (this_mod_end == 0) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5265 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5266 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5267 /* Check there is a dash after the modifier, so that it |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5268 really is a modifier. */ |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
5269 if (this_mod_end >= STRING_BYTES (name) |
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
5270 || name->data[this_mod_end] != '-') |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5271 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5272 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5273 /* This modifier is real; look for another. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5274 modifiers |= this_mod; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5275 i = this_mod_end + 1; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5276 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5277 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5278 /* 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
|
5279 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
|
5280 | double_modifier | triple_modifier)) |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
5281 && i + 7 == STRING_BYTES (name) |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5282 && 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
|
5283 && ('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
|
5284 modifiers |= click_modifier; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5285 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5286 if (modifier_end) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5287 *modifier_end = i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5288 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5289 return modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5290 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5291 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5292 /* 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
|
5293 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
|
5294 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
|
5295 static Lisp_Object |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
5296 apply_modifiers_uncached (modifiers, base, base_len, base_len_byte) |
518 | 5297 int modifiers; |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5298 char *base; |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
5299 int base_len, base_len_byte; |
518 | 5300 { |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5301 /* 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
|
5302 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
|
5303 reference to it. */ |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
5304 char *new_mods |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
5305 = (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
|
5306 int mod_len; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5307 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5308 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5309 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
|
5310 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5311 /* 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
|
5312 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
|
5313 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
|
5314 abort (); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5315 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5316 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
|
5317 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
|
5318 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
|
5319 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
|
5320 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
|
5321 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
|
5322 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
|
5323 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
|
5324 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
|
5325 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
|
5326 /* 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
|
5327 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5328 *p = '\0'; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5329 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5330 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
|
5331 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5332 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5333 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5334 Lisp_Object new_name; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5335 |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
5336 new_name = make_uninit_multibyte_string (mod_len + base_len, |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
5337 mod_len + base_len_byte); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5338 bcopy (new_mods, XSTRING (new_name)->data, mod_len); |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
5339 bcopy (base, XSTRING (new_name)->data + mod_len, base_len_byte); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5340 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5341 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
|
5342 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5343 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5344 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5345 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5346 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
|
5347 { |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5348 "up", "down", "drag", "click", "double", "triple", 0, 0, |
12946
271dc8563a91
(modifier_names): Add 4 bits to modifier bit positions.
Richard M. Stallman <rms@gnu.org>
parents:
12919
diff
changeset
|
5349 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5350 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
|
5351 }; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5352 #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
|
5353 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5354 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
|
5355 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5356 /* 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
|
5357 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5358 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
|
5359 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5360 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5361 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
|
5362 int i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5363 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5364 modifier_list = Qnil; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5365 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
|
5366 if (modifiers & (1<<i)) |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5367 modifier_list = Fcons (XVECTOR (modifier_symbols)->contents[i], |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5368 modifier_list); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5369 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5370 return modifier_list; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5371 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5372 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5373 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5374 /* 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
|
5375 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
|
5376 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
|
5377 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
|
5378 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
|
5379 Qevent_symbol_elements property. */ |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5380 |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
5381 Lisp_Object |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5382 parse_modifiers (symbol) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5383 Lisp_Object symbol; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5384 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5385 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
|
5386 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5387 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
|
5388 if (CONSP (elements)) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5389 return elements; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5390 else |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5391 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5392 int end; |
11682
7eda6c1f3d5e
(parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
11671
diff
changeset
|
5393 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
|
5394 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
|
5395 Lisp_Object mask; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5396 |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5397 unmodified = Fintern (make_string (XSYMBOL (symbol)->name->data + end, |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
5398 STRING_BYTES (XSYMBOL (symbol)->name) - end), |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5399 Qnil); |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5400 |
11682
7eda6c1f3d5e
(parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
11671
diff
changeset
|
5401 if (modifiers & ~(((EMACS_INT)1 << VALBITS) - 1)) |
2436
80aafda1127b
* keyboard.c (parse_modifiers, apply_modifiers): Make sure we're
Jim Blandy <jimb@redhat.com>
parents:
2434
diff
changeset
|
5402 abort (); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
5403 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
|
5404 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
|
5405 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5406 /* 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
|
5407 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
|
5408 elements); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5409 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
|
5410 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
|
5411 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5412 /* 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
|
5413 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
|
5414 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
|
5415 canonical. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5416 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5417 return elements; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5418 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5419 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5420 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5421 /* 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
|
5422 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
|
5423 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5424 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
|
5425 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
|
5426 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
|
5427 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
5428 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
|
5429 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
|
5430 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5431 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
|
5432 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5433 Lisp_Object base; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5434 { |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5435 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
|
5436 |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5437 /* Mask out upper bits. We don't know where this value's been. */ |
11682
7eda6c1f3d5e
(parse_modifiers, apply_modifiers): Don't assume 32-bit EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
11671
diff
changeset
|
5438 modifiers &= ((EMACS_INT)1 << VALBITS) - 1; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
5439 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5440 /* 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
|
5441 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
|
5442 XSETFASTINT (index, (modifiers & ~click_modifier)); |
7999
f1837249c67f
(apply_modifiers): Use assq_no_quit.
Richard M. Stallman <rms@gnu.org>
parents:
7957
diff
changeset
|
5443 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
|
5444 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5445 if (CONSP (entry)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
5446 new_symbol = XCDR (entry); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5447 else |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5448 { |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5449 /* We have to create the symbol ourselves. */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5450 new_symbol = apply_modifiers_uncached (modifiers, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5451 XSYMBOL (base)->name->data, |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
5452 XSYMBOL (base)->name->size, |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
5453 STRING_BYTES (XSYMBOL (base)->name)); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5454 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5455 /* 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
|
5456 entry = Fcons (index, new_symbol); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5457 Fput (base, Qmodifier_cache, Fcons (entry, cache)); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5458 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5459 /* 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
|
5460 XSETFASTINT (index, modifiers); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5461 Fput (new_symbol, Qevent_symbol_element_mask, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5462 Fcons (base, Fcons (index, Qnil))); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5463 Fput (new_symbol, Qevent_symbol_elements, |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5464 Fcons (base, lispy_modifier_list (modifiers))); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5465 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5466 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5467 /* Make sure this symbol is of the same kind as BASE. |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5468 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5469 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
|
5470 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
|
5471 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
|
5472 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
|
5473 Qevent_kind set right as well. */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5474 if (NILP (Fget (new_symbol, Qevent_kind))) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5475 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5476 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
|
5477 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5478 kind = Fget (base, Qevent_kind); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5479 if (! NILP (kind)) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5480 Fput (new_symbol, Qevent_kind, kind); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5481 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5482 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5483 return new_symbol; |
518 | 5484 } |
5485 | |
5486 | |
5487 /* Given a symbol whose name begins with modifiers ("C-", "M-", etc), | |
5488 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
|
5489 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
|
5490 always come last. The 'click' modifier is never written out. |
518 | 5491 |
5492 Fdefine_key calls this to make sure that (for example) C-M-foo | |
5493 and M-C-foo end up being equivalent in the keymap. */ | |
5494 | |
5495 Lisp_Object | |
5496 reorder_modifiers (symbol) | |
5497 Lisp_Object symbol; | |
5498 { | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5499 /* 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
|
5500 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
|
5501 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
|
5502 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5503 parsed = parse_modifiers (symbol); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
5504 return apply_modifiers ((int) XINT (XCAR (XCDR (parsed))), |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
5505 XCAR (parsed)); |
518 | 5506 } |
5507 | |
5508 | |
5509 /* For handling events, we often want to produce a symbol whose name | |
5510 is a series of modifier key prefixes ("M-", "C-", etcetera) attached | |
5511 to some base, like the name of a function key or mouse button. | |
5512 modify_event_symbol produces symbols of this sort. | |
5513 | |
5514 NAME_TABLE should point to an array of strings, such that NAME_TABLE[i] | |
5515 is the name of the i'th symbol. TABLE_SIZE is the number of elements | |
5516 in the table. | |
5517 | |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5518 Alternatively, NAME_ALIST_OR_STEM is either an alist mapping codes |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5519 into symbol names, or a string specifying a name stem used to |
30749
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
5520 construct a symbol name or the form `STEM-N', where N is the decimal |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5521 representation of SYMBOL_NUM. NAME_ALIST_OR_STEM is used if it is |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5522 non-nil; otherwise NAME_TABLE is used. |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5523 |
518 | 5524 SYMBOL_TABLE should be a pointer to a Lisp_Object whose value will |
5525 persist between calls to modify_event_symbol that it can use to | |
5526 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
|
5527 before. The object stored there may be a vector or an alist. |
518 | 5528 |
5529 SYMBOL_NUM is the number of the base name we want from NAME_TABLE. | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5530 |
518 | 5531 MODIFIERS is a set of modifier bits (as given in struct input_events) |
5532 whose prefixes should be applied to the symbol name. | |
5533 | |
5534 SYMBOL_KIND is the value to be placed in the event_kind property of | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5535 the returned symbol. |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5536 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5537 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
|
5538 `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
|
5539 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
|
5540 |
518 | 5541 static Lisp_Object |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5542 modify_event_symbol (symbol_num, modifiers, symbol_kind, name_alist_or_stem, |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5543 name_table, symbol_table, table_size) |
518 | 5544 int symbol_num; |
5545 unsigned modifiers; | |
5546 Lisp_Object symbol_kind; | |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5547 Lisp_Object name_alist_or_stem; |
518 | 5548 char **name_table; |
5549 Lisp_Object *symbol_table; | |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5550 unsigned int table_size; |
518 | 5551 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5552 Lisp_Object value; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5553 Lisp_Object symbol_int; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5554 |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5555 /* Get rid of the "vendor-specific" bit here. */ |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5556 XSETINT (symbol_int, symbol_num & 0xffffff); |
518 | 5557 |
5558 /* 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
|
5559 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
|
5560 return Qnil; |
518 | 5561 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5562 if (CONSP (*symbol_table)) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5563 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
|
5564 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5565 /* 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
|
5566 *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
|
5567 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
|
5568 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
|
5569 else |
518 | 5570 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5571 if (! VECTORP (*symbol_table) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5572 || XVECTOR (*symbol_table)->size != table_size) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5573 { |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5574 Lisp_Object size; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5575 |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
5576 XSETFASTINT (size, table_size); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5577 *symbol_table = Fmake_vector (size, Qnil); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5578 } |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5579 |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5580 value = XVECTOR (*symbol_table)->contents[symbol_num]; |
518 | 5581 } |
5582 | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5583 /* 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
|
5584 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
|
5585 { |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5586 /* No; let's create it. */ |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5587 if (CONSP (name_alist_or_stem)) |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5588 value = Fcdr_safe (Fassq (symbol_int, name_alist_or_stem)); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5589 else if (STRINGP (name_alist_or_stem)) |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5590 { |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5591 int len = STRING_BYTES (XSTRING (name_alist_or_stem)); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5592 char *buf = (char *) alloca (len + 50); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5593 sprintf (buf, "%s-%d", XSTRING (name_alist_or_stem)->data, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5594 XINT (symbol_int) + 1); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5595 value = intern (buf); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5596 } |
16734 | 5597 else if (name_table != 0 && name_table[symbol_num]) |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5598 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
|
5599 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
5600 #ifdef HAVE_WINDOW_SYSTEM |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5601 if (NILP (value)) |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5602 { |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5603 char *name = x_get_keysym_name (symbol_num); |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5604 if (name) |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5605 value = intern (name); |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5606 } |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5607 #endif |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
5608 |
6894
34435700529d
(modify_event_symbol): Use the cdr of the alist entry.
Richard M. Stallman <rms@gnu.org>
parents:
6893
diff
changeset
|
5609 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
|
5610 { |
793f7e0dc66b
(modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents:
2980
diff
changeset
|
5611 char buf[20]; |
793f7e0dc66b
(modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents:
2980
diff
changeset
|
5612 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
|
5613 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
|
5614 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5615 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5616 if (CONSP (*symbol_table)) |
15524
4a92710b931c
(modify_event_symbol): Add properly to *symbol_table.
Richard M. Stallman <rms@gnu.org>
parents:
15474
diff
changeset
|
5617 *symbol_table = Fcons (Fcons (symbol_int, value), *symbol_table); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5618 else |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5619 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
|
5620 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5621 /* Fill in the cache entries for this symbol; this also |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5622 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
|
5623 cares about. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5624 apply_modifiers (modifiers & click_modifier, value); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5625 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
|
5626 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5627 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
5628 /* Apply modifiers to that symbol. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5629 return apply_modifiers (modifiers, value); |
518 | 5630 } |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5631 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5632 /* Convert a list that represents an event type, |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5633 such as (ctrl meta backspace), into the usual representation of that |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5634 event type as a number or a symbol. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5635 |
12150
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
5636 DEFUN ("event-convert-list", Fevent_convert_list, Sevent_convert_list, 1, 1, 0, |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
5637 "Convert the event description list EVENT-DESC to an event type.\n\ |
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
5638 EVENT-DESC should contain one base event type (a character or symbol)\n\ |
12150
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
5639 and zero or more modifier names (control, meta, hyper, super, shift, alt,\n\ |
15128
a5faedec59f1
(Fevent_convert_list): Never treat last elt as modifier.
Richard M. Stallman <rms@gnu.org>
parents:
15112
diff
changeset
|
5640 drag, down, double or triple). The base must be last.\n\ |
12150
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
5641 The return value is an event type (a character or symbol) which\n\ |
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
5642 has the same base event type and all the specified modifiers.") |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
5643 (event_desc) |
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
5644 Lisp_Object event_desc; |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5645 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5646 Lisp_Object base; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5647 int modifiers = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5648 Lisp_Object rest; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5649 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5650 base = Qnil; |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
5651 rest = event_desc; |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5652 while (CONSP (rest)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5653 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5654 Lisp_Object elt; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5655 int this = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5656 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
5657 elt = XCAR (rest); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
5658 rest = XCDR (rest); |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5659 |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5660 /* Given a symbol, see if it is a modifier name. */ |
15128
a5faedec59f1
(Fevent_convert_list): Never treat last elt as modifier.
Richard M. Stallman <rms@gnu.org>
parents:
15112
diff
changeset
|
5661 if (SYMBOLP (elt) && CONSP (rest)) |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5662 this = parse_solitary_modifier (elt); |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5663 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5664 if (this != 0) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5665 modifiers |= this; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5666 else if (!NILP (base)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5667 error ("Two bases given in one event"); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5668 else |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5669 base = elt; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5670 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5671 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5672 |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5673 /* Let the symbol A refer to the character A. */ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5674 if (SYMBOLP (base) && XSYMBOL (base)->name->size == 1) |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5675 XSETINT (base, XSYMBOL (base)->name->data[0]); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5676 |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5677 if (INTEGERP (base)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5678 { |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5679 /* Turn (shift a) into A. */ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5680 if ((modifiers & shift_modifier) != 0 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5681 && (XINT (base) >= 'a' && XINT (base) <= 'z')) |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5682 { |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5683 XSETINT (base, XINT (base) - ('a' - 'A')); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5684 modifiers &= ~shift_modifier; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5685 } |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5686 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5687 /* Turn (control a) into C-a. */ |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5688 if (modifiers & ctrl_modifier) |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5689 return make_number ((modifiers & ~ctrl_modifier) |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5690 | make_ctrl_char (XINT (base))); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5691 else |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5692 return make_number (modifiers | XINT (base)); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5693 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5694 else if (SYMBOLP (base)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5695 return apply_modifiers (modifiers, base); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5696 else |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
5697 { |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
5698 error ("Invalid base event"); |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
5699 return Qnil; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
5700 } |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5701 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5702 |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5703 /* Try to recognize SYMBOL as a modifier name. |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5704 Return the modifier flag bit, or 0 if not recognized. */ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5705 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5706 static int |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5707 parse_solitary_modifier (symbol) |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5708 Lisp_Object symbol; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5709 { |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5710 struct Lisp_String *name = XSYMBOL (symbol)->name; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5711 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5712 switch (name->data[0]) |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5713 { |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5714 #define SINGLE_LETTER_MOD(BIT) \ |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
5715 if (STRING_BYTES (name) == 1) \ |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5716 return BIT; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5717 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5718 #define MULTI_LETTER_MOD(BIT, NAME, LEN) \ |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
5719 if (LEN == STRING_BYTES (name) \ |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5720 && ! strncmp (name->data, NAME, LEN)) \ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5721 return BIT; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5722 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5723 case 'A': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5724 SINGLE_LETTER_MOD (alt_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5725 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5726 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5727 case 'a': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5728 MULTI_LETTER_MOD (alt_modifier, "alt", 3); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5729 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5730 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5731 case 'C': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5732 SINGLE_LETTER_MOD (ctrl_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5733 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5734 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5735 case 'c': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5736 MULTI_LETTER_MOD (ctrl_modifier, "ctrl", 4); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5737 MULTI_LETTER_MOD (ctrl_modifier, "control", 7); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5738 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5739 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5740 case 'H': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5741 SINGLE_LETTER_MOD (hyper_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5742 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5743 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5744 case 'h': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5745 MULTI_LETTER_MOD (hyper_modifier, "hyper", 5); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5746 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5747 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5748 case 'M': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5749 SINGLE_LETTER_MOD (meta_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5750 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5751 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5752 case 'm': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5753 MULTI_LETTER_MOD (meta_modifier, "meta", 4); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5754 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5755 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5756 case 'S': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5757 SINGLE_LETTER_MOD (shift_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5758 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5759 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5760 case 's': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5761 MULTI_LETTER_MOD (shift_modifier, "shift", 5); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5762 MULTI_LETTER_MOD (super_modifier, "super", 5); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5763 SINGLE_LETTER_MOD (super_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5764 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5765 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5766 case 'd': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5767 MULTI_LETTER_MOD (drag_modifier, "drag", 4); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5768 MULTI_LETTER_MOD (down_modifier, "down", 4); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5769 MULTI_LETTER_MOD (double_modifier, "double", 6); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5770 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5771 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5772 case 't': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5773 MULTI_LETTER_MOD (triple_modifier, "triple", 6); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5774 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5775 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5776 #undef SINGLE_LETTER_MOD |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5777 #undef MULTI_LETTER_MOD |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5778 } |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5779 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5780 return 0; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5781 } |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
5782 |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5783 /* Return 1 if EVENT is a list whose elements are all integers or symbols. |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5784 Such a list is not valid as an event, |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5785 but it can be a Lucid-style event type list. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5786 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5787 int |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5788 lucid_event_type_list_p (object) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5789 Lisp_Object object; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5790 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5791 Lisp_Object tail; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5792 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5793 if (! CONSP (object)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5794 return 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5795 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
5796 for (tail = object; CONSP (tail); tail = XCDR (tail)) |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5797 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5798 Lisp_Object elt; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
5799 elt = XCAR (tail); |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5800 if (! (INTEGERP (elt) || SYMBOLP (elt))) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5801 return 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5802 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5803 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5804 return NILP (tail); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
5805 } |
518 | 5806 |
5807 /* Store into *addr a value nonzero if terminal input chars are available. | |
5808 Serves the purpose of ioctl (0, FIONREAD, addr) | |
5809 but works even if FIONREAD does not exist. | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
5810 (In fact, this may actually read some input.) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
5811 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
5812 If DO_TIMERS_NOW is nonzero, actually run timer events that are ripe. */ |
518 | 5813 |
5814 static void | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
5815 get_input_pending (addr, do_timers_now) |
518 | 5816 int *addr; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
5817 int do_timers_now; |
518 | 5818 { |
5819 /* First of all, have we already counted some input? */ | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
5820 *addr = !NILP (Vquit_flag) || readable_events (do_timers_now); |
518 | 5821 |
5822 /* If input is being read as it arrives, and we have none, there is none. */ | |
5823 if (*addr > 0 || (interrupt_input && ! interrupts_deferred)) | |
5824 return; | |
5825 | |
5826 /* Try to read some input and see how much we get. */ | |
5827 gobble_input (0); | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
5828 *addr = !NILP (Vquit_flag) || readable_events (do_timers_now); |
518 | 5829 } |
5830 | |
8727
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
5831 /* Interface to read_avail_input, blocking SIGIO or SIGALRM if necessary. */ |
518 | 5832 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
5833 void |
518 | 5834 gobble_input (expected) |
5835 int expected; | |
5836 { | |
5837 #ifndef VMS | |
5838 #ifdef SIGIO | |
5839 if (interrupt_input) | |
5840 { | |
624 | 5841 SIGMASKTYPE mask; |
16055
b69d8517497a
(record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents:
16051
diff
changeset
|
5842 mask = sigblock (sigmask (SIGIO)); |
518 | 5843 read_avail_input (expected); |
638 | 5844 sigsetmask (mask); |
518 | 5845 } |
5846 else | |
8727
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
5847 #ifdef POLL_FOR_INPUT |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
5848 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
|
5849 { |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
5850 SIGMASKTYPE mask; |
16055
b69d8517497a
(record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents:
16051
diff
changeset
|
5851 mask = sigblock (sigmask (SIGALRM)); |
8727
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
5852 read_avail_input (expected); |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
5853 sigsetmask (mask); |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
5854 } |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
5855 else |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
5856 #endif |
9572 | 5857 #endif |
518 | 5858 read_avail_input (expected); |
5859 #endif | |
5860 } | |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
5861 |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5862 /* 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
|
5863 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
|
5864 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
5865 void |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
5866 record_asynch_buffer_change () |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
5867 { |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
5868 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
|
5869 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
|
5870 |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
5871 event.kind = buffer_switch_event; |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
5872 event.frame_or_window = Qnil; |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5873 event.arg = Qnil; |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5874 |
8718
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
5875 #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
|
5876 /* 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
|
5877 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
|
5878 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
|
5879 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
|
5880 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
|
5881 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
|
5882 return; |
8718
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
5883 #else |
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
5884 /* 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
|
5885 return; |
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
5886 #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
|
5887 |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5888 /* 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
|
5889 #ifdef SIGIO |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5890 if (interrupt_input) |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5891 { |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5892 SIGMASKTYPE mask; |
16055
b69d8517497a
(record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents:
16051
diff
changeset
|
5893 mask = sigblock (sigmask (SIGIO)); |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5894 kbd_buffer_store_event (&event); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5895 sigsetmask (mask); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5896 } |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5897 else |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5898 #endif |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5899 { |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5900 stop_polling (); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5901 kbd_buffer_store_event (&event); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5902 start_polling (); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
5903 } |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
5904 } |
518 | 5905 |
5906 #ifndef VMS | |
5907 | |
5908 /* Read any terminal input already buffered up by the system | |
5909 into the kbd_buffer, but do not wait. | |
5910 | |
5911 EXPECTED should be nonzero if the caller knows there is some input. | |
5912 | |
5913 Except on VMS, all input is read by this function. | |
5914 If interrupt_input is nonzero, this function MUST be called | |
5915 only when SIGIO is blocked. | |
5916 | |
5917 Returns the number of keyboard chars read, or -1 meaning | |
5918 this is a bad time to try to read input. */ | |
5919 | |
5920 static int | |
5921 read_avail_input (expected) | |
5922 int expected; | |
5923 { | |
5924 struct input_event buf[KBD_BUFFER_SIZE]; | |
5925 register int i; | |
5926 int nread; | |
5927 | |
5928 if (read_socket_hook) | |
5929 /* No need for FIONREAD or fcntl; just say don't wait. */ | |
16325
bcc66c0b3bff
(read_avail_input): Don't pass WAITP to read_socket_hook.
Richard M. Stallman <rms@gnu.org>
parents:
16253
diff
changeset
|
5930 nread = (*read_socket_hook) (input_fd, buf, KBD_BUFFER_SIZE, expected); |
518 | 5931 else |
5932 { | |
5032
2802aff49c77
(read_avail_input): Make cbuf 1 char shorter.
Richard M. Stallman <rms@gnu.org>
parents:
4996
diff
changeset
|
5933 /* 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
|
5934 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
|
5935 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
|
5936 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
|
5937 int n_to_read; |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
5938 |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
5939 /* Determine how many characters we should *try* to read. */ |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
5940 #ifdef WINDOWSNT |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
5941 return 0; |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
5942 #else /* not WINDOWSNT */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5943 #ifdef MSDOS |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
5944 n_to_read = dos_keysns (); |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
5945 if (n_to_read == 0) |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
5946 return 0; |
6891
065060f1f9b8
(read_avail_input): Fix comment delimiter.
Karl Heuer <kwzh@gnu.org>
parents:
6875
diff
changeset
|
5947 #else /* not MSDOS */ |
518 | 5948 #ifdef FIONREAD |
5949 /* 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
|
5950 if (ioctl (input_fd, FIONREAD, &n_to_read) < 0) |
518 | 5951 /* Formerly simply reported no input, but that sometimes led to |
5952 a failure of Emacs to terminate. | |
5953 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
|
5954 /* ??? 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
|
5955 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
|
5956 Perhaps on systems with FIONREAD Emacs is alone in its group. */ |
518 | 5957 kill (getpid (), SIGHUP); |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
5958 if (n_to_read == 0) |
518 | 5959 return 0; |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
5960 if (n_to_read > sizeof cbuf) |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
5961 n_to_read = sizeof cbuf; |
518 | 5962 #else /* no FIONREAD */ |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
5963 #if defined (USG) || defined (DGUX) |
518 | 5964 /* 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
|
5965 n_to_read = sizeof cbuf; |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
5966 fcntl (input_fd, F_SETFL, O_NDELAY); |
518 | 5967 #else |
5968 you lose; | |
5969 #endif | |
5970 #endif | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5971 #endif /* not MSDOS */ |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
5972 #endif /* not WINDOWSNT */ |
518 | 5973 |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
5974 /* 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
|
5975 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
|
5976 do |
518 | 5977 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5978 #ifdef MSDOS |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
5979 cbuf[0] = dos_keyread (); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5980 nread = 1; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5981 #else |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25973
diff
changeset
|
5982 nread = emacs_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
|
5983 #endif |
18405
4eaaff49a24e
(read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents:
18231
diff
changeset
|
5984 /* POSIX infers that processes which are not in the session leader's |
4eaaff49a24e
(read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents:
18231
diff
changeset
|
5985 process group won't get SIGHUP's at logout time. BSDI adheres to |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
5986 this part standard and returns -1 from read (0) with errno==EIO |
18405
4eaaff49a24e
(read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents:
18231
diff
changeset
|
5987 when the control tty is taken away. |
4eaaff49a24e
(read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents:
18231
diff
changeset
|
5988 Jeffrey Honig <jch@bsdi.com> says this is generally safe. */ |
4eaaff49a24e
(read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents:
18231
diff
changeset
|
5989 if (nread == -1 && errno == EIO) |
4eaaff49a24e
(read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents:
18231
diff
changeset
|
5990 kill (0, SIGHUP); |
6936
5538df04e96a
(read_avail_input): Test both aix386 and _BSD.
Richard M. Stallman <rms@gnu.org>
parents:
6932
diff
changeset
|
5991 #if defined (AIX) && (! defined (aix386) && defined (_BSD)) |
518 | 5992 /* The kernel sometimes fails to deliver SIGHUP for ptys. |
5993 This looks incorrect, but it isn't, because _BSD causes | |
5994 O_NDELAY to be defined in fcntl.h as O_NONBLOCK, | |
5995 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
|
5996 if (nread == 0) |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5997 kill (0, SIGHUP); |
518 | 5998 #endif |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
5999 } |
6972
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6000 while ( |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6001 /* 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
|
6002 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
|
6003 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
|
6004 where a retry is actually needed? */ |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6005 #if 0 |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6006 nread < 0 && (errno == EAGAIN |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6007 #ifdef EFAULT |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
6008 || errno == EFAULT |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6009 #endif |
518 | 6010 #ifdef EBADSLT |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
6011 || errno == EBADSLT |
518 | 6012 #endif |
6972
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6013 ) |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6014 #else |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6015 0 |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6016 #endif |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6017 ); |
518 | 6018 |
6019 #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
|
6020 #if defined (USG) || defined (DGUX) |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
6021 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
|
6022 #endif /* USG or DGUX */ |
518 | 6023 #endif /* no FIONREAD */ |
6024 for (i = 0; i < nread; i++) | |
6025 { | |
6026 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
|
6027 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
|
6028 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
|
6029 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
|
6030 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
|
6031 cbuf[i] &= ~0x80; |
9745
129ec4acc4ff
(read_avail_input): Fix Lisp_Object vs. int problem.
Karl Heuer <kwzh@gnu.org>
parents:
9729
diff
changeset
|
6032 |
129ec4acc4ff
(read_avail_input): Fix Lisp_Object vs. int problem.
Karl Heuer <kwzh@gnu.org>
parents:
9729
diff
changeset
|
6033 buf[i].code = cbuf[i]; |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
6034 buf[i].frame_or_window = selected_frame; |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
6035 buf[i].arg = Qnil; |
518 | 6036 } |
6037 } | |
6038 | |
6039 /* Scan the chars for C-g and store them in kbd_buffer. */ | |
6040 for (i = 0; i < nread; i++) | |
6041 { | |
6042 kbd_buffer_store_event (&buf[i]); | |
6043 /* Don't look at input that follows a C-g too closely. | |
6044 This reduces lossage due to autorepeat on C-g. */ | |
6045 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
|
6046 && buf[i].code == quit_char) |
518 | 6047 break; |
6048 } | |
6049 | |
6050 return nread; | |
6051 } | |
6052 #endif /* not VMS */ | |
6053 | |
6054 #ifdef SIGIO /* for entire page */ | |
6055 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
6056 | |
1119
5d315d54b8b4
* keyboard.c (kbd_buffer_get_event): When performing the
Jim Blandy <jimb@redhat.com>
parents:
1104
diff
changeset
|
6057 SIGTYPE |
518 | 6058 input_available_signal (signo) |
6059 int signo; | |
6060 { | |
6061 /* Must preserve main program's value of errno. */ | |
6062 int old_errno = errno; | |
6063 #ifdef BSD4_1 | |
6064 extern int select_alarmed; | |
6065 #endif | |
6066 | |
16115
cc8c3e2cc6ed
(input_available_signal) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents:
16111
diff
changeset
|
6067 #if defined (USG) && !defined (POSIX_SIGNALS) |
518 | 6068 /* USG systems forget handlers when they are used; |
6069 must reestablish each time */ | |
6070 signal (signo, input_available_signal); | |
6071 #endif /* USG */ | |
6072 | |
6073 #ifdef BSD4_1 | |
6074 sigisheld (SIGIO); | |
6075 #endif | |
6076 | |
648 | 6077 if (input_available_clear_time) |
6078 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0); | |
518 | 6079 |
6080 while (1) | |
6081 { | |
6082 int nread; | |
6083 nread = read_avail_input (1); | |
6084 /* -1 means it's not ok to read the input now. | |
6085 UNBLOCK_INPUT will read it later; now, avoid infinite loop. | |
6086 0 means there was no keyboard input available. */ | |
6087 if (nread <= 0) | |
6088 break; | |
6089 | |
6090 #ifdef BSD4_1 | |
6091 select_alarmed = 1; /* Force the select emulator back to life */ | |
6092 #endif | |
6093 } | |
6094 | |
6095 #ifdef BSD4_1 | |
6096 sigfree (); | |
6097 #endif | |
6098 errno = old_errno; | |
6099 } | |
6100 #endif /* SIGIO */ | |
2726
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
6101 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
6102 /* Send ourselves a SIGIO. |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
6103 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
6104 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
|
6105 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
|
6106 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
|
6107 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
|
6108 void |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
6109 reinvoke_input_signal () |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
6110 { |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6111 #ifdef SIGIO |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
6112 kill (getpid (), SIGIO); |
2726
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
6113 #endif |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
6114 } |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
6115 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
6116 |
518 | 6117 |
6118 /* Return the prompt-string of a sparse keymap. | |
6119 This is the first element which is a string. | |
6120 Return nil if there is none. */ | |
6121 | |
6122 Lisp_Object | |
6123 map_prompt (map) | |
6124 Lisp_Object map; | |
6125 { | |
6126 while (CONSP (map)) | |
6127 { | |
6128 register Lisp_Object tem; | |
6129 tem = Fcar (map); | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6130 if (STRINGP (tem)) |
518 | 6131 return tem; |
6132 map = Fcdr (map); | |
6133 } | |
6134 return Qnil; | |
6135 } | |
6136 | |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6137 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
|
6138 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
|
6139 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6140 /* 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
|
6141 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
|
6142 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
|
6143 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
|
6144 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
|
6145 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6146 /* 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
|
6147 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
|
6148 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
|
6149 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6150 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
|
6151 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6152 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
|
6153 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
|
6154 Lisp_Object old; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6155 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6156 /* 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
|
6157 keymaps we have allocated space for. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6158 int nmaps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6159 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6160 /* 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
|
6161 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
|
6162 Lisp_Object *maps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6163 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
6164 Lisp_Object def, tem, tail; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6165 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6166 Lisp_Object result; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6167 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6168 int mapno; |
3255
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
6169 Lisp_Object oquit; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6170 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6171 int i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6172 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6173 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
|
6174 |
3209
1166db56c752
* keyboard.c (menu_bar_items): Bind Qinhibit_quit to Qt while we
Jim Blandy <jimb@redhat.com>
parents:
3174
diff
changeset
|
6175 /* 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
|
6176 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
|
6177 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
|
6178 quitting while building the menus. |
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
6179 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
|
6180 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
|
6181 oquit = Vinhibit_quit; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6182 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
|
6183 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6184 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
|
6185 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
|
6186 else |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6187 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
|
6188 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
|
6189 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6190 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
|
6191 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6192 /* Build our list of keymaps. |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6193 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
|
6194 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
|
6195 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
|
6196 the initial keymaps from the current buffer. */ |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6197 { |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6198 Lisp_Object *tmaps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6199 |
12264 | 6200 /* Should overriding-terminal-local-map and overriding-local-map apply? */ |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
6201 if (!NILP (Voverriding_local_map_menu_flag)) |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
6202 { |
12264 | 6203 /* Yes, use them (if non-nil) as well as the global map. */ |
6204 maps = (Lisp_Object *) alloca (3 * sizeof (maps[0])); | |
6205 nmaps = 0; | |
6206 if (!NILP (current_kboard->Voverriding_terminal_local_map)) | |
6207 maps[nmaps++] = current_kboard->Voverriding_terminal_local_map; | |
6208 if (!NILP (Voverriding_local_map)) | |
6209 maps[nmaps++] = Voverriding_local_map; | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
6210 } |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
6211 else |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
6212 { |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6213 /* No, so use major and minor mode keymaps and keymap property. */ |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6214 int extra_maps = 2; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6215 Lisp_Object map = get_local_map (PT, current_buffer, keymap); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6216 if (!NILP (map)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6217 extra_maps = 3; |
12264 | 6218 nmaps = current_minor_maps (NULL, &tmaps); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6219 maps = (Lisp_Object *) alloca ((nmaps + extra_maps) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6220 * sizeof (maps[0])); |
12264 | 6221 bcopy (tmaps, maps, nmaps * sizeof (maps[0])); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6222 if (!NILP (map)) |
31697 | 6223 maps[nmaps++] = map; |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6224 maps[nmaps++] = get_local_map (PT, current_buffer, local_map); |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
6225 } |
12264 | 6226 maps[nmaps++] = current_global_map; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6227 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6228 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6229 /* 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
|
6230 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6231 result = Qnil; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6232 |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
6233 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
|
6234 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6235 if (! NILP (maps[mapno])) |
18742
a56124aa2164
(command_loop_1): Add missing message2 argument.
Richard M. Stallman <rms@gnu.org>
parents:
18513
diff
changeset
|
6236 def = get_keyelt (access_keymap (maps[mapno], Qmenu_bar, 1, 0), 0); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6237 else |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6238 def = Qnil; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6239 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6240 tem = Fkeymapp (def); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6241 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
|
6242 menu_bar_one_keymap (def); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6243 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6244 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6245 /* 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
|
6246 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6247 for (tail = Vmenu_bar_final_items; CONSP (tail); tail = XCDR (tail)) |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
6248 { |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6249 int i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6250 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
|
6251 |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6252 for (i = 0; i < end; i += 4) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6253 if (EQ (XCAR (tail), XVECTOR (menu_bar_items_vector)->contents[i])) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6254 { |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6255 Lisp_Object tem0, tem1, tem2, tem3; |
6159
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
6256 /* 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
|
6257 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
|
6258 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
|
6259 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
|
6260 tem2 = XVECTOR (menu_bar_items_vector)->contents[i + 2]; |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6261 tem3 = XVECTOR (menu_bar_items_vector)->contents[i + 3]; |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6262 if (end > i + 4) |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6263 bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 4], |
6159
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
6264 &XVECTOR (menu_bar_items_vector)->contents[i], |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6265 (end - i - 4) * sizeof (Lisp_Object)); |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6266 XVECTOR (menu_bar_items_vector)->contents[end - 4] = tem0; |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6267 XVECTOR (menu_bar_items_vector)->contents[end - 3] = tem1; |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6268 XVECTOR (menu_bar_items_vector)->contents[end - 2] = tem2; |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6269 XVECTOR (menu_bar_items_vector)->contents[end - 1] = tem3; |
6159
78275962ef1e
(menu_bar_items): When moving an item to the end,
Richard M. Stallman <rms@gnu.org>
parents:
6135
diff
changeset
|
6270 break; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6271 } |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
6272 } |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
6273 |
15284 | 6274 /* Add nil, nil, nil, nil at the end. */ |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6275 i = menu_bar_items_index; |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6276 if (i + 4 > XVECTOR (menu_bar_items_vector)->size) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6277 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6278 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
|
6279 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
|
6280 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
|
6281 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
|
6282 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
|
6283 } |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6284 /* 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
|
6285 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
|
6286 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
|
6287 XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil; |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6288 XVECTOR (menu_bar_items_vector)->contents[i++] = Qnil; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6289 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
|
6290 |
3255
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
6291 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
|
6292 UNGCPRO; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6293 return menu_bar_items_vector; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6294 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6295 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6296 /* 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
|
6297 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
|
6298 |
23975
b0040d620df9
In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents:
23935
diff
changeset
|
6299 static Lisp_Object menu_bar_one_keymap_changed_items; |
b0040d620df9
In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents:
23935
diff
changeset
|
6300 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6301 static void |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6302 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
|
6303 Lisp_Object keymap; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6304 { |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
6305 Lisp_Object tail, item; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6306 |
23975
b0040d620df9
In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents:
23935
diff
changeset
|
6307 menu_bar_one_keymap_changed_items = Qnil; |
b0040d620df9
In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents:
23935
diff
changeset
|
6308 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6309 /* Loop over all keymap entries that have menu strings. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6310 for (tail = keymap; CONSP (tail); tail = XCDR (tail)) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6311 { |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6312 item = XCAR (tail); |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6313 if (CONSP (item)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6314 menu_bar_item (XCAR (item), XCDR (item)); |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
6315 else if (VECTORP (item)) |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6316 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6317 /* 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
|
6318 int len = XVECTOR (item)->size; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6319 int c; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6320 for (c = 0; c < len; c++) |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6321 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6322 Lisp_Object character; |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6323 XSETFASTINT (character, c); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6324 menu_bar_item (character, XVECTOR (item)->contents[c]); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6325 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6326 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6327 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6328 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6329 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
6330 /* 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
|
6331 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
|
6332 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6333 Lisp_Object item_properties; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6334 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6335 static void |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6336 menu_bar_item (key, item) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6337 Lisp_Object key, item; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6338 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6339 struct gcpro gcpro1; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6340 int i; |
23975
b0040d620df9
In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents:
23935
diff
changeset
|
6341 Lisp_Object tem; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6342 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6343 if (EQ (item, Qundefined)) |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
6344 { |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
6345 /* If a map has an explicit `undefined' as definition, |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
6346 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
|
6347 |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6348 for (i = 0; i < menu_bar_items_index; i += 4) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6349 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
|
6350 { |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6351 if (menu_bar_items_index > i + 4) |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6352 bcopy (&XVECTOR (menu_bar_items_vector)->contents[i + 4], |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6353 &XVECTOR (menu_bar_items_vector)->contents[i], |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6354 (menu_bar_items_index - i - 4) * sizeof (Lisp_Object)); |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6355 menu_bar_items_index -= 4; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6356 } |
31206
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6357 } |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6358 |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6359 /* If this keymap has already contributed to this KEY, |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6360 don't contribute to it a second time. */ |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6361 tem = Fmemq (key, menu_bar_one_keymap_changed_items); |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6362 if (!NILP (tem) || NILP (item)) |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6363 return; |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6364 |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6365 menu_bar_one_keymap_changed_items |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6366 = Fcons (key, menu_bar_one_keymap_changed_items); |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6367 |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6368 /* We add to menu_bar_one_keymap_changed_items before doing the |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6369 parse_menu_item, so that if it turns out it wasn't a menu item, |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6370 it still correctly hides any further menu item. */ |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
6371 GCPRO1 (key); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6372 i = parse_menu_item (item, 0, 1); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6373 UNGCPRO; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6374 if (!i) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6375 return; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6376 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6377 item = XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF]; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6378 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
6379 /* Find any existing item for this KEY. */ |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6380 for (i = 0; i < menu_bar_items_index; i += 4) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6381 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
|
6382 break; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6383 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
6384 /* 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
|
6385 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
|
6386 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6387 /* If vector is too small, get a bigger one. */ |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6388 if (i + 4 > XVECTOR (menu_bar_items_vector)->size) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6389 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6390 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
|
6391 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
|
6392 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
|
6393 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
|
6394 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
|
6395 } |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6396 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6397 /* 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
|
6398 XVECTOR (menu_bar_items_vector)->contents[i++] = key; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6399 XVECTOR (menu_bar_items_vector)->contents[i++] |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6400 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME]; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6401 XVECTOR (menu_bar_items_vector)->contents[i++] = Fcons (item, Qnil); |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
6402 XVECTOR (menu_bar_items_vector)->contents[i++] = make_number (0); |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
6403 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
|
6404 } |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6405 /* We did find an item for this KEY. Add ITEM to its list of maps. */ |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
6406 else |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
6407 { |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
6408 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
|
6409 old = XVECTOR (menu_bar_items_vector)->contents[i + 2]; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6410 XVECTOR (menu_bar_items_vector)->contents[i + 2] = Fcons (item, old); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6411 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6412 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6413 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6414 /* This is used as the handler when calling menu_item_eval_property. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6415 static Lisp_Object |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6416 menu_item_eval_property_1 (arg) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6417 Lisp_Object arg; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6418 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6419 /* If we got a quit from within the menu computation, |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6420 quit all the way out of it. This takes care of C-] in the debugger. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6421 if (CONSP (arg) && EQ (XCAR (arg), Qquit)) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6422 Fsignal (Qquit, Qnil); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6423 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6424 return Qnil; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6425 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6426 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6427 /* Evaluate an expression and return the result (or nil if something |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6428 went wrong). Used to evaluate dynamic parts of menu items. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6429 Lisp_Object |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6430 menu_item_eval_property (sexpr) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6431 Lisp_Object sexpr; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6432 { |
22542
ca46e1a32856
(menu_item_eval_property): Bind Qinhibit_redisplay.
Karl Heuer <kwzh@gnu.org>
parents:
22469
diff
changeset
|
6433 int count = specpdl_ptr - specpdl; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6434 Lisp_Object val; |
22542
ca46e1a32856
(menu_item_eval_property): Bind Qinhibit_redisplay.
Karl Heuer <kwzh@gnu.org>
parents:
22469
diff
changeset
|
6435 specbind (Qinhibit_redisplay, Qt); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6436 val = internal_condition_case_1 (Feval, sexpr, Qerror, |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6437 menu_item_eval_property_1); |
22542
ca46e1a32856
(menu_item_eval_property): Bind Qinhibit_redisplay.
Karl Heuer <kwzh@gnu.org>
parents:
22469
diff
changeset
|
6438 return unbind_to (count, val); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6439 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6440 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6441 /* This function parses a menu item and leaves the result in the |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6442 vector item_properties. |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6443 ITEM is a key binding, a possible menu item. |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6444 If NOTREAL is nonzero, only check for equivalent key bindings, don't |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6445 evaluate dynamic expressions in the menu item. |
22040
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
6446 INMENUBAR is > 0 when this is considered for an entry in a menu bar |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6447 top level. |
22040
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
6448 INMENUBAR is < 0 when this is considered for an entry in a keyboard menu. |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6449 parse_menu_item returns true if the item is a menu item and false |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6450 otherwise. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6451 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6452 int |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6453 parse_menu_item (item, notreal, inmenubar) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6454 Lisp_Object item; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6455 int notreal, inmenubar; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6456 { |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6457 Lisp_Object def, tem, item_string, start; |
23459
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
6458 Lisp_Object cachelist; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
6459 Lisp_Object filter; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
6460 Lisp_Object keyhint; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6461 int i; |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6462 int newcache = 0; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6463 |
23459
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
6464 cachelist = Qnil; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
6465 filter = Qnil; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
6466 keyhint = Qnil; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
6467 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6468 if (!CONSP (item)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6469 return 0; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6470 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6471 /* Create item_properties vector if necessary. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6472 if (NILP (item_properties)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6473 item_properties |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6474 = Fmake_vector (make_number (ITEM_PROPERTY_ENABLE + 1), Qnil); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6475 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6476 /* Initialize optional entries. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6477 for (i = ITEM_PROPERTY_DEF; i < ITEM_PROPERTY_ENABLE; i++) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6478 XVECTOR (item_properties)->contents[i] = Qnil; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6479 XVECTOR (item_properties)->contents[ITEM_PROPERTY_ENABLE] = Qt; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6480 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6481 /* Save the item here to protect it from GC. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6482 XVECTOR (item_properties)->contents[ITEM_PROPERTY_ITEM] = item; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6483 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6484 item_string = XCAR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6485 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6486 start = item; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6487 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6488 if (STRINGP (item_string)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6489 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6490 /* Old format menu item. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6491 XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME] = item_string; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6492 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6493 /* Maybe help string. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6494 if (CONSP (item) && STRINGP (XCAR (item))) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6495 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6496 XVECTOR (item_properties)->contents[ITEM_PROPERTY_HELP] |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6497 = XCAR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6498 start = item; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6499 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6500 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6501 |
30051
70d9d51a864c
(show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29816
diff
changeset
|
6502 /* Maybe key binding cache. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6503 if (CONSP (item) && CONSP (XCAR (item)) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6504 && (NILP (XCAR (XCAR (item))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6505 || VECTORP (XCAR (XCAR (item))))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6506 { |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6507 cachelist = XCAR (item); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6508 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6509 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6510 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6511 /* This is the real definition--the function to run. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6512 XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF] = item; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6513 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6514 /* Get enable property, if any. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6515 if (SYMBOLP (item)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6516 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6517 tem = Fget (item, Qmenu_enable); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6518 if (!NILP (tem)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6519 XVECTOR (item_properties)->contents[ITEM_PROPERTY_ENABLE] = tem; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6520 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6521 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6522 else if (EQ (item_string, Qmenu_item) && CONSP (item)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6523 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6524 /* New format menu item. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6525 XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME] |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6526 = XCAR (item); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6527 start = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6528 if (CONSP (start)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6529 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6530 /* We have a real binding. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6531 XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF] |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6532 = XCAR (start); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6533 |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6534 item = XCDR (start); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6535 /* Is there a cache list with key equivalences. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6536 if (CONSP (item) && CONSP (XCAR (item))) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6537 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6538 cachelist = XCAR (item); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6539 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6540 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6541 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6542 /* Parse properties. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6543 while (CONSP (item) && CONSP (XCDR (item))) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6544 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6545 tem = XCAR (item); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6546 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6547 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6548 if (EQ (tem, QCenable)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6549 XVECTOR (item_properties)->contents[ITEM_PROPERTY_ENABLE] |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6550 = XCAR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6551 else if (EQ (tem, QCvisible) && !notreal) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6552 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6553 /* If got a visible property and that evaluates to nil |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6554 then ignore this item. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6555 tem = menu_item_eval_property (XCAR (item)); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6556 if (NILP (tem)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6557 return 0; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6558 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6559 else if (EQ (tem, QChelp)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6560 XVECTOR (item_properties)->contents[ITEM_PROPERTY_HELP] |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6561 = XCAR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6562 else if (EQ (tem, QCfilter)) |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6563 filter = item; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6564 else if (EQ (tem, QCkey_sequence)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6565 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6566 tem = XCAR (item); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6567 if (NILP (cachelist) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6568 && (SYMBOLP (tem) || STRINGP (tem) || VECTORP (tem))) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6569 /* Be GC protected. Set keyhint to item instead of tem. */ |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6570 keyhint = item; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6571 } |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6572 else if (EQ (tem, QCkeys)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6573 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6574 tem = XCAR (item); |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
6575 if (CONSP (tem) || (STRINGP (tem) && NILP (cachelist))) |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6576 XVECTOR (item_properties)->contents[ITEM_PROPERTY_KEYEQ] |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6577 = tem; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6578 } |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6579 else if (EQ (tem, QCbutton) && CONSP (XCAR (item))) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6580 { |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6581 Lisp_Object type; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6582 tem = XCAR (item); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6583 type = XCAR (tem); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6584 if (EQ (type, QCtoggle) || EQ (type, QCradio)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6585 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6586 XVECTOR (item_properties)->contents[ITEM_PROPERTY_SELECTED] |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6587 = XCDR (tem); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6588 XVECTOR (item_properties)->contents[ITEM_PROPERTY_TYPE] |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6589 = type; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6590 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6591 } |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6592 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6593 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6594 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6595 else if (inmenubar || !NILP (start)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6596 return 0; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6597 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6598 else |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6599 return 0; /* not a menu item */ |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6600 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6601 /* If item string is not a string, evaluate it to get string. |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6602 If we don't get a string, skip this item. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6603 item_string = XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME]; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6604 if (!(STRINGP (item_string) || notreal)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6605 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6606 item_string = menu_item_eval_property (item_string); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6607 if (!STRINGP (item_string)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6608 return 0; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6609 XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME] = item_string; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6610 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6611 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6612 /* If got a filter apply it on definition. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6613 def = XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF]; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6614 if (!NILP (filter)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6615 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6616 def = menu_item_eval_property (list2 (XCAR (filter), |
22469
516ef6b2ceb9
(parse_menu_item): Put a quote around DEF
Richard M. Stallman <rms@gnu.org>
parents:
22384
diff
changeset
|
6617 list2 (Qquote, def))); |
516ef6b2ceb9
(parse_menu_item): Put a quote around DEF
Richard M. Stallman <rms@gnu.org>
parents:
22384
diff
changeset
|
6618 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6619 XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF] = def; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6620 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6621 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6622 /* If we got no definition, this item is just unselectable text which |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6623 is OK in a submenu but not in the menubar. */ |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6624 if (NILP (def)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6625 return (inmenubar ? 0 : 1); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6626 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6627 /* Enable or disable selection of item. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6628 tem = XVECTOR (item_properties)->contents[ITEM_PROPERTY_ENABLE]; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6629 if (!EQ (tem, Qt)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6630 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6631 if (notreal) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6632 tem = Qt; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6633 else |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6634 tem = menu_item_eval_property (tem); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6635 if (inmenubar && NILP (tem)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6636 return 0; /* Ignore disabled items in menu bar. */ |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6637 XVECTOR (item_properties)->contents[ITEM_PROPERTY_ENABLE] = tem; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6638 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6639 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6640 /* See if this is a separate pane or a submenu. */ |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6641 def = XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF]; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6642 tem = get_keymap_1 (def, 0, 1); |
23418
13e4ce88374d
(parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents:
23226
diff
changeset
|
6643 /* For a subkeymap, just record its details and exit. */ |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6644 if (!NILP (tem)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6645 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6646 XVECTOR (item_properties)->contents[ITEM_PROPERTY_MAP] = tem; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6647 XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF] = tem; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6648 return 1; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6649 } |
23418
13e4ce88374d
(parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents:
23226
diff
changeset
|
6650 /* At the top level in the menu bar, do likewise for commands also. |
13e4ce88374d
(parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents:
23226
diff
changeset
|
6651 The menu bar does not display equivalent key bindings anyway. |
13e4ce88374d
(parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents:
23226
diff
changeset
|
6652 ITEM_PROPERTY_DEF is already set up properly. */ |
13e4ce88374d
(parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents:
23226
diff
changeset
|
6653 if (inmenubar > 0) |
13e4ce88374d
(parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents:
23226
diff
changeset
|
6654 return 1; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6655 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6656 /* This is a command. See if there is an equivalent key binding. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6657 if (NILP (cachelist)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6658 { |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6659 /* We have to create a cachelist. */ |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6660 CHECK_IMPURE (start); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6661 XCDR (start) = Fcons (Fcons (Qnil, Qnil), XCDR (start)); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6662 cachelist = XCAR (XCDR (start)); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6663 newcache = 1; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6664 tem = XVECTOR (item_properties)->contents[ITEM_PROPERTY_KEYEQ]; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6665 if (!NILP (keyhint)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6666 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6667 XCAR (cachelist) = XCAR (keyhint); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6668 newcache = 0; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6669 } |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6670 else if (STRINGP (tem)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6671 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6672 XCDR (cachelist) = Fsubstitute_command_keys (tem); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6673 XCAR (cachelist) = Qt; |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6674 } |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6675 } |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6676 tem = XCAR (cachelist); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6677 if (!EQ (tem, Qt)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6678 { |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6679 int chkcache = 0; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6680 Lisp_Object prefix; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6681 |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6682 if (!NILP (tem)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6683 tem = Fkey_binding (tem, Qnil); |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6684 |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6685 prefix = XVECTOR (item_properties)->contents[ITEM_PROPERTY_KEYEQ]; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6686 if (CONSP (prefix)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6687 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6688 def = XCAR (prefix); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6689 prefix = XCDR (prefix); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6690 } |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6691 else |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6692 def = XVECTOR (item_properties)->contents[ITEM_PROPERTY_DEF]; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6693 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6694 if (NILP (XCAR (cachelist))) /* Have no saved key. */ |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6695 { |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6696 if (newcache /* Always check first time. */ |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6697 /* Should we check everything when precomputing key |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6698 bindings? */ |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6699 /* || notreal */ |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6700 /* If something had no key binding before, don't recheck it |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6701 because that is too slow--except if we have a list of |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6702 rebound commands in Vdefine_key_rebound_commands, do |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6703 recheck any command that appears in that list. */ |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6704 || (CONSP (Vdefine_key_rebound_commands) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6705 && !NILP (Fmemq (def, Vdefine_key_rebound_commands)))) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6706 chkcache = 1; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6707 } |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6708 /* We had a saved key. Is it still bound to the command? */ |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6709 else if (NILP (tem) |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
6710 || (!EQ (tem, def) |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
6711 /* If the command is an alias for another |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
6712 (such as lmenu.el set it up), check if the |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
6713 original command matches the cached command. */ |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
6714 && !(SYMBOLP (def) && EQ (tem, XSYMBOL (def)->function)))) |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6715 chkcache = 1; /* Need to recompute key binding. */ |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6716 |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6717 if (chkcache) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6718 { |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6719 /* Recompute equivalent key binding. If the command is an alias |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6720 for another (such as lmenu.el set it up), see if the original |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6721 command name has equivalent keys. Otherwise look up the |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6722 specified command itself. We don't try both, because that |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6723 makes lmenu menus slow. */ |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6724 if (SYMBOLP (def) && SYMBOLP (XSYMBOL (def)->function) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6725 && ! NILP (Fget (def, Qmenu_alias))) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6726 def = XSYMBOL (def)->function; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6727 tem = Fwhere_is_internal (def, Qnil, Qt, Qnil); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6728 XCAR (cachelist) = tem; |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6729 if (NILP (tem)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6730 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6731 XCDR (cachelist) = Qnil; |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6732 chkcache = 0; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6733 } |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6734 } |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6735 else if (!NILP (keyhint) && !NILP (XCAR (cachelist))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6736 { |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6737 tem = XCAR (cachelist); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6738 chkcache = 1; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6739 } |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6740 |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6741 newcache = chkcache; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6742 if (chkcache) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6743 { |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6744 tem = Fkey_description (tem); |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6745 if (CONSP (prefix)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6746 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6747 if (STRINGP (XCAR (prefix))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6748 tem = concat2 (XCAR (prefix), tem); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6749 if (STRINGP (XCDR (prefix))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6750 tem = concat2 (tem, XCDR (prefix)); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6751 } |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6752 XCDR (cachelist) = tem; |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6753 } |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6754 } |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6755 |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6756 tem = XCDR (cachelist); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6757 if (newcache && !NILP (tem)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6758 { |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
6759 tem = concat3 (build_string (" ("), tem, build_string (")")); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6760 XCDR (cachelist) = tem; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6761 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6762 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6763 /* If we only want to precompute equivalent key bindings, stop here. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6764 if (notreal) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6765 return 1; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6766 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6767 /* If we have an equivalent key binding, use that. */ |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6768 XVECTOR (item_properties)->contents[ITEM_PROPERTY_KEYEQ] = tem; |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6769 |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6770 /* Include this when menu help is implemented. |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6771 tem = XVECTOR (item_properties)->contents[ITEM_PROPERTY_HELP]; |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6772 if (!(NILP (tem) || STRINGP (tem))) |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6773 { |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6774 tem = menu_item_eval_property (tem); |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6775 if (!STRINGP (tem)) |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6776 tem = Qnil; |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6777 XVECTOR (item_properties)->contents[ITEM_PROPERTY_HELP] = tem; |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
6778 } |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6779 */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6780 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6781 /* Handle radio buttons or toggle boxes. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6782 tem = XVECTOR (item_properties)->contents[ITEM_PROPERTY_SELECTED]; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6783 if (!NILP (tem)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6784 XVECTOR (item_properties)->contents[ITEM_PROPERTY_SELECTED] |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6785 = menu_item_eval_property (tem); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6786 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
6787 return 1; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
6788 } |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6789 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6790 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6791 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6792 /*********************************************************************** |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6793 Tool-bars |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6794 ***********************************************************************/ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6795 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6796 /* A vector holding tool bar items while they are parsed in function |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6797 tool_bar_items runs Each item occupies TOOL_BAR_ITEM_NSCLOTS elements |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6798 in the vector. */ |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6799 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6800 static Lisp_Object tool_bar_items_vector; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6801 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6802 /* A vector holding the result of parse_tool_bar_item. Layout is like |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6803 the one for a single item in tool_bar_items_vector. */ |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6804 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6805 static Lisp_Object tool_bar_item_properties; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6806 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6807 /* Next free index in tool_bar_items_vector. */ |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6808 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6809 static int ntool_bar_items; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6810 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6811 /* The symbols `tool-bar', and `:image'. */ |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6812 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6813 extern Lisp_Object Qtool_bar; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6814 Lisp_Object QCimage; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6815 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6816 /* Function prototypes. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6817 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6818 static void init_tool_bar_items P_ ((Lisp_Object)); |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6819 static void process_tool_bar_item P_ ((Lisp_Object, Lisp_Object)); |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6820 static int parse_tool_bar_item P_ ((Lisp_Object, Lisp_Object)); |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6821 static void append_tool_bar_item P_ ((void)); |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6822 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6823 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6824 /* Return a vector of tool bar items for keymaps currently in effect. |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6825 Reuse vector REUSE if non-nil. Return in *NITEMS the number of |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6826 tool bar items found. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6827 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6828 Lisp_Object |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6829 tool_bar_items (reuse, nitems) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6830 Lisp_Object reuse; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6831 int *nitems; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6832 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6833 Lisp_Object *maps; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6834 int nmaps, i; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6835 Lisp_Object oquit; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6836 Lisp_Object *tmaps; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6837 extern Lisp_Object Voverriding_local_map_menu_flag; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6838 extern Lisp_Object Voverriding_local_map; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6839 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6840 *nitems = 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6841 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6842 /* In order to build the menus, we need to call the keymap |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6843 accessors. They all call QUIT. But this function is called |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6844 during redisplay, during which a quit is fatal. So inhibit |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6845 quitting while building the menus. We do this instead of |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6846 specbind because (1) errors will clear it anyway and (2) this |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6847 avoids risk of specpdl overflow. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6848 oquit = Vinhibit_quit; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6849 Vinhibit_quit = Qt; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6850 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6851 /* Initialize tool_bar_items_vector and protect it from GC. */ |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6852 init_tool_bar_items (reuse); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6853 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6854 /* Build list of keymaps in maps. Set nmaps to the number of maps |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6855 to process. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6856 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6857 /* Should overriding-terminal-local-map and overriding-local-map apply? */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6858 if (!NILP (Voverriding_local_map_menu_flag)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6859 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6860 /* Yes, use them (if non-nil) as well as the global map. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6861 maps = (Lisp_Object *) alloca (3 * sizeof (maps[0])); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6862 nmaps = 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6863 if (!NILP (current_kboard->Voverriding_terminal_local_map)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6864 maps[nmaps++] = current_kboard->Voverriding_terminal_local_map; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6865 if (!NILP (Voverriding_local_map)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6866 maps[nmaps++] = Voverriding_local_map; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6867 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6868 else |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6869 { |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6870 /* No, so use major and minor mode keymaps and keymap property. */ |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6871 int extra_maps = 2; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6872 Lisp_Object map = get_local_map (PT, current_buffer, keymap); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6873 if (!NILP (map)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6874 extra_maps = 3; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6875 nmaps = current_minor_maps (NULL, &tmaps); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6876 maps = (Lisp_Object *) alloca ((nmaps + extra_maps) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6877 * sizeof (maps[0])); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6878 bcopy (tmaps, maps, nmaps * sizeof (maps[0])); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6879 if (!NILP (map)) |
31697 | 6880 maps[nmaps++] = map; |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
6881 maps[nmaps++] = get_local_map (PT, current_buffer, local_map); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6882 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6883 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6884 /* Add global keymap at the end. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6885 maps[nmaps++] = current_global_map; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6886 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6887 /* Process maps in reverse order and look up in each map the prefix |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6888 key `tool-bar'. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6889 for (i = nmaps - 1; i >= 0; --i) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6890 if (!NILP (maps[i])) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6891 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6892 Lisp_Object keymap; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6893 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6894 keymap = get_keyelt (access_keymap (maps[i], Qtool_bar, 1, 1), 0); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6895 if (!NILP (Fkeymapp (keymap))) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6896 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6897 Lisp_Object tail; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6898 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6899 /* KEYMAP is a list `(keymap (KEY . BINDING) ...)'. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6900 for (tail = keymap; CONSP (tail); tail = XCDR (tail)) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6901 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6902 Lisp_Object keydef = XCAR (tail); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6903 if (CONSP (keydef)) |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6904 process_tool_bar_item (XCAR (keydef), XCDR (keydef)); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6905 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6906 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6907 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6908 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6909 Vinhibit_quit = oquit; |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6910 *nitems = ntool_bar_items / TOOL_BAR_ITEM_NSLOTS; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6911 return tool_bar_items_vector; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6912 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6913 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6914 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6915 /* Process the definition of KEY which is DEF. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6916 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6917 static void |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6918 process_tool_bar_item (key, def) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6919 Lisp_Object key, def; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6920 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6921 int i; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6922 extern Lisp_Object Qundefined; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6923 struct gcpro gcpro1, gcpro2; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6924 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6925 /* Protect KEY and DEF from GC because parse_tool_bar_item may call |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6926 eval. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6927 GCPRO2 (key, def); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6928 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6929 if (EQ (def, Qundefined)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6930 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6931 /* If a map has an explicit `undefined' as definition, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6932 discard any previously made item. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6933 for (i = 0; i < ntool_bar_items; i += TOOL_BAR_ITEM_NSLOTS) |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6934 { |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6935 Lisp_Object *v = XVECTOR (tool_bar_items_vector)->contents + i; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6936 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6937 if (EQ (key, v[TOOL_BAR_ITEM_KEY])) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6938 { |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6939 if (ntool_bar_items > i + TOOL_BAR_ITEM_NSLOTS) |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6940 bcopy (v + TOOL_BAR_ITEM_NSLOTS, v, |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6941 ((ntool_bar_items - i - TOOL_BAR_ITEM_NSLOTS) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6942 * sizeof (Lisp_Object))); |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6943 ntool_bar_items -= TOOL_BAR_ITEM_NSLOTS; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6944 break; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6945 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6946 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6947 } |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6948 else if (parse_tool_bar_item (key, def)) |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6949 /* Append a new tool bar item to tool_bar_items_vector. Accept |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6950 more than one definition for the same key. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6951 append_tool_bar_item (); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6952 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6953 UNGCPRO; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6954 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6955 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6956 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6957 /* Parse a tool bar item specification ITEM for key KEY and return the |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6958 result in tool_bar_item_properties. Value is zero if ITEM is |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6959 invalid. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6960 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6961 ITEM is a list `(menu-item CAPTION BINDING PROPS...)'. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6962 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6963 CAPTION is the caption of the item, If it's not a string, it is |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6964 evaluated to get a string. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6965 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6966 BINDING is the tool bar item's binding. Tool-bar items with keymaps |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6967 as binding are currently ignored. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6968 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6969 The following properties are recognized: |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6970 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6971 - `:enable FORM'. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6972 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6973 FORM is evaluated and specifies whether the tool bar item is |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6974 enabled or disabled. |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6975 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6976 - `:visible FORM' |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6977 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6978 FORM is evaluated and specifies whether the tool bar item is visible. |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6979 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6980 - `:filter FUNCTION' |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6981 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6982 FUNCTION is invoked with one parameter `(quote BINDING)'. Its |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6983 result is stored as the new binding. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6984 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6985 - `:button (TYPE SELECTED)' |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6986 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6987 TYPE must be one of `:radio' or `:toggle'. SELECTED is evaluated |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6988 and specifies whether the button is selected (pressed) or not. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6989 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6990 - `:image IMAGES' |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6991 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6992 IMAGES is either a single image specification or a vector of four |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6993 image specifications. See enum tool_bar_item_images. |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6994 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6995 - `:help HELP-STRING'. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6996 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
6997 Gives a help string to display for the tool bar item. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6998 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
6999 static int |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7000 parse_tool_bar_item (key, item) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7001 Lisp_Object key, item; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7002 { |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7003 /* Access slot with index IDX of vector tool_bar_item_properties. */ |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7004 #define PROP(IDX) XVECTOR (tool_bar_item_properties)->contents[IDX] |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7005 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7006 Lisp_Object filter = Qnil; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7007 Lisp_Object caption; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7008 extern Lisp_Object QCenable, QCvisible, QChelp, QCfilter; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7009 extern Lisp_Object QCbutton, QCtoggle, QCradio; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7010 int i; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7011 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7012 /* Defininition looks like `(menu-item CAPTION BINDING PROPS...)'. |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7013 Rule out items that aren't lists, don't start with |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7014 `menu-item' or whose rest following `tool-bar-item' is not a |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7015 list. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7016 if (!CONSP (item) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7017 || !EQ (XCAR (item), Qmenu_item) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7018 || (item = XCDR (item), |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7019 !CONSP (item))) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7020 return 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7021 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7022 /* Create tool_bar_item_properties vector if necessary. Reset it to |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7023 defaults. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7024 if (VECTORP (tool_bar_item_properties)) |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7025 { |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7026 for (i = 0; i < TOOL_BAR_ITEM_NSLOTS; ++i) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7027 PROP (i) = Qnil; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7028 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7029 else |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7030 tool_bar_item_properties |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7031 = Fmake_vector (make_number (TOOL_BAR_ITEM_NSLOTS), Qnil); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7032 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7033 /* Set defaults. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7034 PROP (TOOL_BAR_ITEM_KEY) = key; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7035 PROP (TOOL_BAR_ITEM_ENABLED_P) = Qt; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7036 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7037 /* Get the caption of the item. If the caption is not a string, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7038 evaluate it to get a string. If we don't get a string, skip this |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7039 item. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7040 caption = XCAR (item); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7041 if (!STRINGP (caption)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7042 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7043 caption = menu_item_eval_property (caption); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7044 if (!STRINGP (caption)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7045 return 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7046 } |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7047 PROP (TOOL_BAR_ITEM_CAPTION) = caption; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7048 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7049 /* Give up if rest following the caption is not a list. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7050 item = XCDR (item); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7051 if (!CONSP (item)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7052 return 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7053 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7054 /* Store the binding. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7055 PROP (TOOL_BAR_ITEM_BINDING) = XCAR (item); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7056 item = XCDR (item); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7057 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7058 /* Ignore cached key binding, if any. */ |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7059 if (CONSP (item) && CONSP (XCAR (item))) |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7060 item = XCDR (item); |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7061 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7062 /* Process the rest of the properties. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7063 for (; CONSP (item) && CONSP (XCDR (item)); item = XCDR (XCDR (item))) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7064 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7065 Lisp_Object key, value; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7066 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7067 key = XCAR (item); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7068 value = XCAR (XCDR (item)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7069 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7070 if (EQ (key, QCenable)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7071 /* `:enable FORM'. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7072 PROP (TOOL_BAR_ITEM_ENABLED_P) = value; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7073 else if (EQ (key, QCvisible)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7074 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7075 /* `:visible FORM'. If got a visible property and that |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7076 evaluates to nil then ignore this item. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7077 if (NILP (menu_item_eval_property (value))) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7078 return 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7079 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7080 else if (EQ (key, QChelp)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7081 /* `:help HELP-STRING'. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7082 PROP (TOOL_BAR_ITEM_HELP) = value; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7083 else if (EQ (key, QCfilter)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7084 /* ':filter FORM'. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7085 filter = value; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7086 else if (EQ (key, QCbutton) && CONSP (value)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7087 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7088 /* `:button (TYPE . SELECTED)'. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7089 Lisp_Object type, selected; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7090 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7091 type = XCAR (value); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7092 selected = XCDR (value); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7093 if (EQ (type, QCtoggle) || EQ (type, QCradio)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7094 { |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7095 PROP (TOOL_BAR_ITEM_SELECTED_P) = selected; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7096 PROP (TOOL_BAR_ITEM_TYPE) = type; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7097 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7098 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7099 else if (EQ (key, QCimage) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7100 && (CONSP (value) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7101 || (VECTORP (value) && XVECTOR (value)->size == 4))) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7102 /* Value is either a single image specification or a vector |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7103 of 4 such specifications for the different buttion states. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7104 PROP (TOOL_BAR_ITEM_IMAGES) = value; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7105 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7106 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7107 /* If got a filter apply it on binding. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7108 if (!NILP (filter)) |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7109 PROP (TOOL_BAR_ITEM_BINDING) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7110 = menu_item_eval_property (list2 (filter, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7111 list2 (Qquote, |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7112 PROP (TOOL_BAR_ITEM_BINDING)))); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7113 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7114 /* See if the binding is a keymap. Give up if it is. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7115 if (!NILP (get_keymap_1 (PROP (TOOL_BAR_ITEM_BINDING), 0, 1))) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7116 return 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7117 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7118 /* Enable or disable selection of item. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7119 if (!EQ (PROP (TOOL_BAR_ITEM_ENABLED_P), Qt)) |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7120 PROP (TOOL_BAR_ITEM_ENABLED_P) |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7121 = menu_item_eval_property (PROP (TOOL_BAR_ITEM_ENABLED_P)); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7122 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7123 /* Handle radio buttons or toggle boxes. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7124 if (!NILP (PROP (TOOL_BAR_ITEM_SELECTED_P))) |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7125 PROP (TOOL_BAR_ITEM_SELECTED_P) |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7126 = menu_item_eval_property (PROP (TOOL_BAR_ITEM_SELECTED_P)); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7127 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7128 return 1; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7129 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7130 #undef PROP |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7131 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7132 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7133 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7134 /* Initialize tool_bar_items_vector. REUSE, if non-nil, is a vector |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7135 that can be reused. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7136 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7137 static void |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7138 init_tool_bar_items (reuse) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7139 Lisp_Object reuse; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7140 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7141 if (VECTORP (reuse)) |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7142 tool_bar_items_vector = reuse; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7143 else |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7144 tool_bar_items_vector = Fmake_vector (make_number (64), Qnil); |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7145 ntool_bar_items = 0; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7146 } |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7147 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7148 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7149 /* Append parsed tool bar item properties from |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7150 tool_bar_item_properties */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7151 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7152 static void |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7153 append_tool_bar_item () |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7154 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7155 Lisp_Object *to, *from; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7156 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7157 /* Enlarge tool_bar_items_vector if necessary. */ |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7158 if (ntool_bar_items + TOOL_BAR_ITEM_NSLOTS |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7159 >= XVECTOR (tool_bar_items_vector)->size) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7160 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7161 Lisp_Object new_vector; |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7162 int old_size = XVECTOR (tool_bar_items_vector)->size; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7163 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7164 new_vector = Fmake_vector (make_number (2 * old_size), Qnil); |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7165 bcopy (XVECTOR (tool_bar_items_vector)->contents, |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7166 XVECTOR (new_vector)->contents, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7167 old_size * sizeof (Lisp_Object)); |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7168 tool_bar_items_vector = new_vector; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7169 } |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7170 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7171 /* Append entries from tool_bar_item_properties to the end of |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7172 tool_bar_items_vector. */ |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7173 to = XVECTOR (tool_bar_items_vector)->contents + ntool_bar_items; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7174 from = XVECTOR (tool_bar_item_properties)->contents; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7175 bcopy (from, to, TOOL_BAR_ITEM_NSLOTS * sizeof *to); |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7176 ntool_bar_items += TOOL_BAR_ITEM_NSLOTS; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7177 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7178 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7179 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7180 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7181 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7182 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
7183 /* 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
|
7184 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
|
7185 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
|
7186 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7187 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
|
7188 the first event of a key sequence. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7189 |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
7190 If USED_MOUSE_MENU is non-null, then we set *USED_MOUSE_MENU to 1 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
7191 if we used a mouse menu to read the input, or zero otherwise. If |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
7192 USED_MOUSE_MENU is null, we don't dereference it. |
518 | 7193 |
7194 The prompting is done based on the prompt-string of the map | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7195 and the strings associated with various map elements. |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7196 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7197 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
|
7198 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
|
7199 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
|
7200 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
|
7201 and do auto-saving in the inner call of read_char. */ |
518 | 7202 |
3453
1fd89e975a78
(read_char_menu_prompt): Now static. Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
3452
diff
changeset
|
7203 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
|
7204 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
|
7205 int nmaps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7206 Lisp_Object *maps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7207 Lisp_Object prev_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7208 int *used_mouse_menu; |
518 | 7209 { |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7210 int mapno; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7211 register Lisp_Object name; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7212 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
7213 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
|
7214 *used_mouse_menu = 0; |
518 | 7215 |
7216 /* Use local over global Menu maps */ | |
7217 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7218 if (! menu_prompting) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7219 return Qnil; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7220 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
7221 /* 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
|
7222 if (inhibit_local_menu_bar_menus) |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
7223 { |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
7224 maps += (nmaps - 1); |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
7225 nmaps = 1; |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
7226 } |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
7227 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7228 /* 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
|
7229 for (mapno = 0; mapno < nmaps; mapno++) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7230 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7231 name = map_prompt (maps[mapno]); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7232 if (!NILP (name)) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7233 break; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7234 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7235 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7236 /* 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
|
7237 if (mapno >= nmaps) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7238 return Qnil; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7239 |
13864
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
7240 #ifdef HAVE_MENUS |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7241 /* 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
|
7242 use a real menu for mouse selection. */ |
11613
c4ef6460a9c9
(read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents:
11543
diff
changeset
|
7243 if (EVENT_HAS_PARAMETERS (prev_event) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7244 && !EQ (XCAR (prev_event), Qmenu_bar) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7245 && !EQ (XCAR (prev_event), Qtool_bar)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7246 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7247 /* Display the menu and get the selection. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7248 Lisp_Object *realmaps |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7249 = (Lisp_Object *) alloca (nmaps * sizeof (Lisp_Object)); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7250 Lisp_Object value; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7251 int nmaps1 = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7252 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7253 /* Use the maps that are not nil. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7254 for (mapno = 0; mapno < nmaps; mapno++) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7255 if (!NILP (maps[mapno])) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7256 realmaps[nmaps1++] = maps[mapno]; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7257 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7258 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
|
7259 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
|
7260 { |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7261 Lisp_Object tem; |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7262 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7263 record_menu_key (XCAR (value)); |
16750
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
7264 |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7265 /* If we got multiple events, unread all but |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7266 the first. |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7267 There is no way to prevent those unread events |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7268 from showing up later in last_nonmenu_event. |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7269 So turn symbol and integer events into lists, |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7270 to indicate that they came from a mouse menu, |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7271 so that when present in last_nonmenu_event |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7272 they won't confuse things. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7273 for (tem = XCDR (value); !NILP (tem); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7274 tem = XCDR (tem)) |
16750
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
7275 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7276 record_menu_key (XCAR (tem)); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7277 if (SYMBOLP (XCAR (tem)) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7278 || INTEGERP (XCAR (tem))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7279 XCAR (tem) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7280 = Fcons (XCAR (tem), Qnil); |
16750
06001fb1a820
(read_char_x_menu_prompt): Unread and record all the input events from here.
Richard M. Stallman <rms@gnu.org>
parents:
16734
diff
changeset
|
7281 } |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
7282 |
2719
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
7283 /* 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
|
7284 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
|
7285 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
|
7286 Vunread_command_events |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7287 = nconc2 (XCDR (value), Vunread_command_events); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7288 value = XCAR (value); |
2719
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
7289 } |
6932
bde97688f58b
(read_char_x_menu_prompt): Don't check for value = nil
Richard M. Stallman <rms@gnu.org>
parents:
6925
diff
changeset
|
7290 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
|
7291 value = Qt; |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
7292 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
|
7293 *used_mouse_menu = 1; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7294 return value; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7295 } |
13864
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
7296 #endif /* HAVE_MENUS */ |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7297 return Qnil ; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7298 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7299 |
14490
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7300 /* Buffer in use so far for the minibuf prompts for menu keymaps. |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7301 We make this bigger when necessary, and never free it. */ |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7302 static char *read_char_minibuf_menu_text; |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7303 /* Size of that buffer. */ |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7304 static int read_char_minibuf_menu_width; |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7305 |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7306 static Lisp_Object |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
7307 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
|
7308 int commandflag ; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7309 int nmaps; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7310 Lisp_Object *maps; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7311 { |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7312 int mapno; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7313 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
|
7314 int nlength; |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
7315 int width = FRAME_WIDTH (SELECTED_FRAME ()) - 4; |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7316 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
|
7317 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
|
7318 Lisp_Object rest, vector; |
14490
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7319 char *menu; |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7320 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7321 vector = Qnil; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7322 |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7323 if (! menu_prompting) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7324 return Qnil; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7325 |
14490
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7326 /* Make sure we have a big enough buffer for the menu text. */ |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7327 if (read_char_minibuf_menu_text == 0) |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7328 { |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7329 read_char_minibuf_menu_width = width + 4; |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7330 read_char_minibuf_menu_text = (char *) xmalloc (width + 4); |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7331 } |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7332 else if (width + 4 > read_char_minibuf_menu_width) |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7333 { |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7334 read_char_minibuf_menu_width = width + 4; |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7335 read_char_minibuf_menu_text |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7336 = (char *) xrealloc (read_char_minibuf_menu_text, width + 4); |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7337 } |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7338 menu = read_char_minibuf_menu_text; |
c463c25a6806
(read_char_minibuf_menu_prompt): Use malloc to allocate
Richard M. Stallman <rms@gnu.org>
parents:
14454
diff
changeset
|
7339 |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7340 /* 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
|
7341 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
|
7342 { |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7343 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
|
7344 if (!NILP (name)) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7345 break; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7346 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7347 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7348 /* 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
|
7349 if (mapno >= nmaps) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7350 return Qnil; |
518 | 7351 |
7352 /* Prompt string always starts with map's prompt, and a space. */ | |
7353 strcpy (menu, XSTRING (name)->data); | |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
7354 nlength = STRING_BYTES (XSTRING (name)); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7355 menu[nlength++] = ':'; |
518 | 7356 menu[nlength++] = ' '; |
7357 menu[nlength] = 0; | |
7358 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7359 /* Start prompting at start of first map. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7360 mapno = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7361 rest = maps[mapno]; |
518 | 7362 |
7363 /* Present the documented bindings, a line at a time. */ | |
7364 while (1) | |
7365 { | |
7366 int notfirst = 0; | |
7367 int i = nlength; | |
7368 Lisp_Object obj; | |
7369 int ch; | |
10907
1e9ffdb9980c
(read_char_minibuf_menu_prompt): orig_defn_macro is now Lisp_Object, not int.
Karl Heuer <kwzh@gnu.org>
parents:
10905
diff
changeset
|
7370 Lisp_Object orig_defn_macro; |
518 | 7371 |
7372 /* Loop over elements of map. */ | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7373 while (i < width) |
518 | 7374 { |
22040
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7375 Lisp_Object elt; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7376 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7377 /* 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
|
7378 if (NILP (rest)) |
518 | 7379 { |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7380 mapno++; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7381 /* 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
|
7382 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
|
7383 if (mapno == nmaps) |
518 | 7384 { |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7385 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
|
7386 if (notfirst || nobindings) break; |
518 | 7387 } |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7388 rest = maps[mapno]; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7389 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7390 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7391 /* Look at the next element of the map. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7392 if (idx >= 0) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7393 elt = XVECTOR (vector)->contents[idx]; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7394 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7395 elt = Fcar_safe (rest); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7396 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
7397 if (idx < 0 && VECTORP (elt)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7398 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7399 /* 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
|
7400 advanced past it, but start scanning its contents. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7401 rest = Fcdr_safe (rest); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7402 vector = elt; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7403 idx = 0; |
518 | 7404 } |
7405 else | |
7406 { | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7407 /* An ordinary element. */ |
22040
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7408 Lisp_Object event, tem; |
12185
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7409 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7410 if (idx < 0) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7411 { |
22040
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7412 event = Fcar_safe (elt); /* alist */ |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7413 elt = Fcdr_safe (elt); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7414 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7415 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7416 { |
22040
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7417 XSETINT (event, idx); /* vector */ |
12185
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7418 } |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7419 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7420 /* Ignore the element if it has no prompt string. */ |
22040
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7421 if (INTEGERP (event) && parse_menu_item (elt, 0, -1)) |
12185
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7422 { |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7423 /* 1 if the char to type matches the string. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7424 int char_matches; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7425 Lisp_Object upcased_event, downcased_event; |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7426 Lisp_Object desc = Qnil; |
22040
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7427 Lisp_Object s |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7428 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME]; |
12185
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7429 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7430 upcased_event = Fupcase (event); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7431 downcased_event = Fdowncase (event); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7432 char_matches = (XINT (upcased_event) == XSTRING (s)->data[0] |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7433 || XINT (downcased_event) == XSTRING (s)->data[0]); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7434 if (! char_matches) |
30558
6e586164e039
(read_char_minibuf_menu_prompt): Add new parameter
Gerd Moellmann <gerd@gnu.org>
parents:
30368
diff
changeset
|
7435 desc = Fsingle_key_description (event, Qnil); |
12185
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7436 |
22040
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7437 tem |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7438 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_KEYEQ]; |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7439 if (!NILP (tem)) |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7440 /* Insert equivalent keybinding. */ |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7441 s = concat2 (s, tem); |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7442 |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7443 tem |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7444 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_TYPE]; |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7445 if (EQ (tem, QCradio) || EQ (tem, QCtoggle)) |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7446 { |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7447 /* Insert button prefix. */ |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7448 Lisp_Object selected |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7449 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_SELECTED]; |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7450 if (EQ (tem, QCradio)) |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7451 tem = build_string (NILP (selected) ? "(*) " : "( ) "); |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7452 else |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7453 tem = build_string (NILP (selected) ? "[X] " : "[ ] "); |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7454 s = concat2 (tem, s); |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7455 } |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7456 |
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7457 |
12185
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7458 /* If we have room for the prompt string, add it to this line. |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7459 If this is the first on the line, always add it. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7460 if ((XSTRING (s)->size + i + 2 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7461 + (char_matches ? 0 : XSTRING (desc)->size + 3)) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7462 < width |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7463 || !notfirst) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7464 { |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7465 int thiswidth; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7466 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7467 /* Punctuate between strings. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7468 if (notfirst) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7469 { |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7470 strcpy (menu + i, ", "); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7471 i += 2; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7472 } |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7473 notfirst = 1; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7474 nobindings = 0 ; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7475 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7476 /* If the char to type doesn't match the string's |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7477 first char, explicitly show what char to type. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7478 if (! char_matches) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7479 { |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7480 /* Add as much of string as fits. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7481 thiswidth = XSTRING (desc)->size; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7482 if (thiswidth + i > width) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7483 thiswidth = width - i; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7484 bcopy (XSTRING (desc)->data, menu + i, thiswidth); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7485 i += thiswidth; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7486 strcpy (menu + i, " = "); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7487 i += 3; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7488 } |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7489 |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7490 /* Add as much of string as fits. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7491 thiswidth = XSTRING (s)->size; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7492 if (thiswidth + i > width) |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7493 thiswidth = width - i; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7494 bcopy (XSTRING (s)->data, menu + i, thiswidth); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7495 i += thiswidth; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7496 menu[i] = 0; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7497 } |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7498 else |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7499 { |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7500 /* If this element does not fit, end the line now, |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7501 and save the element for the next line. */ |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7502 strcpy (menu + i, "..."); |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7503 break; |
7a18efea682a
(read_char_minibuf_menu_prompt):
Karl Heuer <kwzh@gnu.org>
parents:
12176
diff
changeset
|
7504 } |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7505 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7506 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7507 /* 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
|
7508 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
|
7509 /* Handle reaching end of dense table. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7510 idx = -1; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7511 if (idx >= 0) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7512 idx++; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7513 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7514 rest = Fcdr_safe (rest); |
518 | 7515 } |
7516 } | |
7517 | |
7518 /* Prompt with that and read response. */ | |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
7519 message2_nolog (menu, strlen (menu), |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
7520 ! NILP (current_buffer->enable_multibyte_characters)); |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7521 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7522 /* Make believe its not a keyboard macro in case the help char |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7523 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
|
7524 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
|
7525 */ |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7526 orig_defn_macro = current_kboard->defining_kbd_macro; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7527 current_kboard->defining_kbd_macro = Qnil; |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
7528 do |
31215
cf1afda17592
(read_char_minibuf_menu_prompt): Call read_char with
Kenichi Handa <handa@m17n.org>
parents:
31206
diff
changeset
|
7529 obj = read_char (commandflag, 0, 0, Qt, 0); |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
7530 while (BUFFERP (obj)); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7531 current_kboard->defining_kbd_macro = orig_defn_macro; |
518 | 7532 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
7533 if (!INTEGERP (obj)) |
518 | 7534 return obj; |
7535 else | |
7536 ch = XINT (obj); | |
7537 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7538 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
|
7539 && (!INTEGERP (menu_prompt_more_char) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7540 || ! 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
|
7541 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7542 if (!NILP (current_kboard->defining_kbd_macro)) |
10907
1e9ffdb9980c
(read_char_minibuf_menu_prompt): orig_defn_macro is now Lisp_Object, not int.
Karl Heuer <kwzh@gnu.org>
parents:
10905
diff
changeset
|
7543 store_kbd_macro_char (obj); |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7544 return obj; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7545 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
7546 /* Help char - go round again */ |
518 | 7547 } |
7548 } | |
7549 | |
7550 /* Reading key sequences. */ | |
7551 | |
7552 /* Follow KEY in the maps in CURRENT[0..NMAPS-1], placing its bindings | |
7553 in DEFS[0..NMAPS-1]. Set NEXT[i] to DEFS[i] if DEFS[i] is a | |
7554 keymap, or nil otherwise. Return the index of the first keymap in | |
7555 which KEY has any binding, or NMAPS if no map has a binding. | |
7556 | |
7557 If KEY is a meta ASCII character, treat it like meta-prefix-char | |
7558 followed by the corresponding non-meta character. Keymaps in | |
7559 CURRENT with non-prefix bindings for meta-prefix-char become nil in | |
7560 NEXT. | |
7561 | |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7562 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
|
7563 unmodified. |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
7564 |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7565 NEXT may be the same array as CURRENT. */ |
518 | 7566 |
7567 static int | |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
7568 follow_key (key, nmaps, current, defs, next) |
518 | 7569 Lisp_Object key; |
7570 Lisp_Object *current, *defs, *next; | |
7571 int nmaps; | |
7572 { | |
7573 int i, first_binding; | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7574 int did_meta = 0; |
518 | 7575 |
7576 /* If KEY is a meta ASCII character, treat it like meta-prefix-char | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7577 followed by the corresponding non-meta character. |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7578 Put the results into DEFS, since we are going to alter that anyway. |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7579 Do not alter CURRENT or NEXT. */ |
29729
bf15c290522e
missed one in last checkin
Ken Raeburn <raeburn@raeburn.org>
parents:
29726
diff
changeset
|
7580 if (INTEGERP (key) && (XUINT (key) & CHAR_META)) |
518 | 7581 { |
7582 for (i = 0; i < nmaps; i++) | |
7583 if (! NILP (current[i])) | |
7584 { | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7585 Lisp_Object def; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7586 def = get_keyelt (access_keymap (current[i], |
18742
a56124aa2164
(command_loop_1): Add missing message2 argument.
Richard M. Stallman <rms@gnu.org>
parents:
18513
diff
changeset
|
7587 meta_prefix_char, 1, 0), 0); |
518 | 7588 |
7589 /* Note that since we pass the resulting bindings through | |
7590 get_keymap_1, non-prefix bindings for meta-prefix-char | |
7591 disappear. */ | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7592 defs[i] = get_keymap_1 (def, 0, 1); |
518 | 7593 } |
7594 else | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7595 defs[i] = Qnil; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7596 |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7597 did_meta = 1; |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
7598 XSETINT (key, XFASTINT (key) & ~CHAR_META); |
518 | 7599 } |
7600 | |
7601 first_binding = nmaps; | |
7602 for (i = nmaps - 1; i >= 0; i--) | |
7603 { | |
7604 if (! NILP (current[i])) | |
7605 { | |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7606 Lisp_Object map; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7607 if (did_meta) |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7608 map = defs[i]; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7609 else |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7610 map = current[i]; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
7611 |
30051
70d9d51a864c
(show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29816
diff
changeset
|
7612 defs[i] = get_keyelt (access_keymap (map, key, 1, 0), 1); |
518 | 7613 if (! NILP (defs[i])) |
7614 first_binding = i; | |
7615 } | |
7616 else | |
7617 defs[i] = Qnil; | |
7618 } | |
7619 | |
7620 /* 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
|
7621 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
|
7622 for (i = 0; i < nmaps; i++) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7623 next[i] = NILP (defs[i]) ? Qnil : get_keymap_1 (defs[i], 0, 1); |
518 | 7624 |
7625 return first_binding; | |
7626 } | |
7627 | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7628 /* Read a sequence of keys that ends with a non prefix character, |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7629 storing it in KEYBUF, a buffer of size BUFSIZE. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7630 Prompt with PROMPT. |
518 | 7631 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
|
7632 Return -1 if the user rejected a command menu. |
518 | 7633 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7634 Echo starting immediately unless `prompt' is 0. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7635 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7636 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
|
7637 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
|
7638 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
|
7639 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7640 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
|
7641 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
|
7642 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
|
7643 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
|
7644 |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
7645 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
|
7646 `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
|
7647 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
|
7648 then into clicks. |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7649 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7650 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
|
7651 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
|
7652 symbol denoting that area - `mode-line', `vertical-line', or |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7653 whatever. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7654 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7655 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
|
7656 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
|
7657 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7658 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
|
7659 off the switch-frame event until later; the next call to |
17389
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
7660 read_char will return it. |
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
7661 |
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
7662 If FIX_CURRENT_BUFFER is nonzero, we restore current_buffer |
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
7663 from the selected window's buffer. */ |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
7664 |
518 | 7665 static int |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
7666 read_key_sequence (keybuf, bufsize, prompt, dont_downcase_last, |
17389
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
7667 can_return_switch_frame, fix_current_buffer) |
518 | 7668 Lisp_Object *keybuf; |
7669 int bufsize; | |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
7670 Lisp_Object prompt; |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
7671 int dont_downcase_last; |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
7672 int can_return_switch_frame; |
17389
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
7673 int fix_current_buffer; |
518 | 7674 { |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7675 volatile int count = specpdl_ptr - specpdl; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7676 |
518 | 7677 /* How many keys there are in the current key sequence. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7678 volatile int t; |
518 | 7679 |
7680 /* The length of the echo buffer when we started reading, and | |
7681 the length of this_command_keys when we started reading. */ | |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7682 volatile int echo_start; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7683 volatile int keys_start; |
518 | 7684 |
7685 /* The number of keymaps we're scanning right now, and the number of | |
7686 keymaps we have allocated space for. */ | |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7687 volatile int nmaps; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7688 volatile int nmaps_allocated = 0; |
518 | 7689 |
7690 /* defs[0..nmaps-1] are the definitions of KEYBUF[0..t-1] in | |
7691 the current keymaps. */ | |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7692 Lisp_Object *volatile defs = NULL; |
518 | 7693 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7694 /* 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
|
7695 in the current keymaps, or nil where it is not a prefix. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7696 Lisp_Object *volatile submaps = NULL; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7697 |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
7698 /* The local map to start out with at start of key sequence. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7699 volatile Lisp_Object orig_local_map; |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
7700 |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7701 /* The map from the `keymap' property to start out with at start of |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7702 key sequence. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7703 volatile Lisp_Object orig_keymap; |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7704 |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
7705 /* 1 if we have already considered switching to the local-map property |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
7706 of the place where a mouse click occurred. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7707 volatile int localized_local_map = 0; |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
7708 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7709 /* 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
|
7710 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
|
7711 defs[i] is non-nil. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7712 volatile int first_binding; |
518 | 7713 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7714 /* If t < mock_input, then KEYBUF[t] should be read as the next |
899 | 7715 input key. |
7716 | |
7717 We use this to recover after recognizing a function key. Once we | |
7718 realize that a suffix of the current key sequence is actually a | |
7719 function key's escape sequence, we replace the suffix with the | |
7720 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
|
7721 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
|
7722 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
|
7723 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
|
7724 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
|
7725 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
|
7726 reading characters from the keyboard. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7727 volatile int mock_input = 0; |
518 | 7728 |
899 | 7729 /* If the sequence is unbound in submaps[], then |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7730 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
|
7731 and fkey_map is its binding. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7732 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7733 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
|
7734 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
|
7735 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
|
7736 key's again in Vfunction_key_map. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7737 volatile int fkey_start = 0, fkey_end = 0; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7738 volatile Lisp_Object fkey_map; |
518 | 7739 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
7740 /* Likewise, for key_translation_map. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7741 volatile int keytran_start = 0, keytran_end = 0; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7742 volatile Lisp_Object keytran_map; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
7743 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
7744 /* 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
|
7745 we put it off for later. While we're reading, we keep the event here. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7746 volatile Lisp_Object delayed_switch_frame; |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
7747 |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
7748 /* 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
|
7749 #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
|
7750 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
|
7751 #endif |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
7752 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7753 volatile Lisp_Object original_uppercase; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7754 volatile int original_uppercase_position = -1; |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
7755 |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
7756 /* Gets around Microsoft compiler limitations. */ |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
7757 int dummyflag = 0; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
7758 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
7759 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
|
7760 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
7761 /* 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
|
7762 in function_key_map. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7763 volatile int function_key_possible = 0; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7764 volatile 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
|
7765 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
7766 /* Save the status of key translation before each step, |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
7767 so that we can restore this after downcasing. */ |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
7768 Lisp_Object prev_fkey_map; |
18110
22725376c70b
(read_key_sequence): Change some locals to `int'.
Richard M. Stallman <rms@gnu.org>
parents:
17967
diff
changeset
|
7769 int prev_fkey_start; |
22725376c70b
(read_key_sequence): Change some locals to `int'.
Richard M. Stallman <rms@gnu.org>
parents:
17967
diff
changeset
|
7770 int prev_fkey_end; |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
7771 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
7772 Lisp_Object prev_keytran_map; |
18110
22725376c70b
(read_key_sequence): Change some locals to `int'.
Richard M. Stallman <rms@gnu.org>
parents:
17967
diff
changeset
|
7773 int prev_keytran_start; |
22725376c70b
(read_key_sequence): Change some locals to `int'.
Richard M. Stallman <rms@gnu.org>
parents:
17967
diff
changeset
|
7774 int prev_keytran_end; |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
7775 |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
7776 #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
|
7777 int junk; |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
7778 #endif |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
7779 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
7780 raw_keybuf_count = 0; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
7781 |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
7782 last_nonmenu_event = Qnil; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
7783 |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
7784 delayed_switch_frame = Qnil; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
7785 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
|
7786 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
|
7787 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
7788 /* 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
|
7789 if (NILP (Fkeymapp (Vfunction_key_map))) |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7790 fkey_start = fkey_end = bufsize + 1; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7791 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
7792 /* 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
|
7793 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
|
7794 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
|
7795 |
518 | 7796 if (INTERACTIVE) |
7797 { | |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
7798 if (!NILP (prompt)) |
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
7799 echo_prompt (XSTRING (prompt)->data); |
27769
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
7800 else if (cursor_in_echo_area |
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
7801 && (FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes)) |
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
7802 && NILP (Fzerop (Vecho_keystrokes))) |
518 | 7803 /* This doesn't put in a dash if the echo buffer is empty, so |
7804 you don't always see a dash hanging out in the minibuffer. */ | |
7805 echo_dash (); | |
7806 } | |
7807 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7808 /* 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
|
7809 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
|
7810 if (INTERACTIVE) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7811 echo_start = echo_length (); |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7812 keys_start = this_command_key_count; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
7813 this_single_command_key_start = keys_start; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7814 |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
7815 #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
|
7816 /* 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
|
7817 does cannot safely be bypassed. It seems too risky to try to make |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7818 this work right. */ |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
7819 |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
7820 /* 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
|
7821 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
|
7822 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
|
7823 &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
|
7824 #endif /* GOBBLE_FIRST_EVENT */ |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
7825 |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7826 orig_local_map = get_local_map (PT, current_buffer, local_map); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7827 orig_keymap = get_local_map (PT, current_buffer, keymap); |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
7828 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
7829 /* 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
|
7830 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
|
7831 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
|
7832 replay_sequence: |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
7833 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
7834 starting_buffer = current_buffer; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
7835 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
|
7836 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
|
7837 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7838 /* Build our list of keymaps. |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
7839 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
|
7840 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
|
7841 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
|
7842 the initial keymaps from the current buffer. */ |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7843 { |
518 | 7844 Lisp_Object *maps; |
7845 | |
12264 | 7846 if (!NILP (current_kboard->Voverriding_terminal_local_map) |
7847 || !NILP (Voverriding_local_map)) | |
518 | 7848 { |
12264 | 7849 if (3 > nmaps_allocated) |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7850 { |
12264 | 7851 submaps = (Lisp_Object *) alloca (3 * sizeof (submaps[0])); |
7852 defs = (Lisp_Object *) alloca (3 * sizeof (defs[0])); | |
7853 nmaps_allocated = 3; | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7854 } |
12264 | 7855 nmaps = 0; |
7856 if (!NILP (current_kboard->Voverriding_terminal_local_map)) | |
7857 submaps[nmaps++] = current_kboard->Voverriding_terminal_local_map; | |
7858 if (!NILP (Voverriding_local_map)) | |
7859 submaps[nmaps++] = Voverriding_local_map; | |
518 | 7860 } |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7861 else |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7862 { |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7863 int extra_maps = 2; |
12264 | 7864 nmaps = current_minor_maps (0, &maps); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7865 if (!NILP (orig_keymap)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7866 extra_maps = 3; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7867 if (nmaps + extra_maps > nmaps_allocated) |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7868 { |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7869 submaps = (Lisp_Object *) alloca ((nmaps+extra_maps) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7870 * sizeof (submaps[0])); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7871 defs = (Lisp_Object *) alloca ((nmaps+extra_maps) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7872 * sizeof (defs[0])); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7873 nmaps_allocated = nmaps + extra_maps; |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7874 } |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7875 bcopy (maps, (void *) submaps, nmaps * sizeof (submaps[0])); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7876 if (!NILP (orig_keymap)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7877 submaps[nmaps++] = orig_keymap; |
12264 | 7878 submaps[nmaps++] = orig_local_map; |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7879 } |
12264 | 7880 submaps[nmaps++] = current_global_map; |
518 | 7881 } |
7882 | |
7883 /* Find an accurate initial value for first_binding. */ | |
7884 for (first_binding = 0; first_binding < nmaps; first_binding++) | |
899 | 7885 if (! NILP (submaps[first_binding])) |
518 | 7886 break; |
7887 | |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
7888 /* Start from the beginning in keybuf. */ |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7889 t = 0; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7890 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7891 /* 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
|
7892 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
|
7893 this_command_key_count = keys_start; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7894 if (INTERACTIVE && t < mock_input) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7895 echo_truncate (echo_start); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7896 |
3809
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
7897 /* 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
|
7898 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
|
7899 reading. */ |
899 | 7900 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
|
7901 || (first_binding >= nmaps |
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
7902 && fkey_start < t |
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
7903 /* 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
|
7904 && mock_input <= fkey_start) |
10533
52b954844444
(read_key_sequence): Don't wait for a possible key translation sequence if we
Karl Heuer <kwzh@gnu.org>
parents:
10457
diff
changeset
|
7905 || (first_binding >= nmaps |
52b954844444
(read_key_sequence): Don't wait for a possible key translation sequence if we
Karl Heuer <kwzh@gnu.org>
parents:
10457
diff
changeset
|
7906 && 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
|
7907 /* 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
|
7908 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
|
7909 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
|
7910 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
|
7911 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
|
7912 ) |
518 | 7913 { |
7914 Lisp_Object key; | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
7915 int used_mouse_menu = 0; |
518 | 7916 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
7917 /* 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
|
7918 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
|
7919 (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
|
7920 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
|
7921 of keybuf. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7922 volatile int last_real_key_start; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
7923 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
7924 /* 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
|
7925 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
|
7926 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
|
7927 just one key. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7928 volatile int echo_local_start, keys_local_start, local_first_binding; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7929 |
518 | 7930 if (t >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
7931 error ("Key sequence too long"); |
518 | 7932 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7933 if (INTERACTIVE) |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7934 echo_local_start = echo_length (); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7935 keys_local_start = this_command_key_count; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7936 local_first_binding = first_binding; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7937 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7938 replay_key: |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
7939 /* 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
|
7940 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
|
7941 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
|
7942 loop. */ |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
7943 if (INTERACTIVE && t < mock_input) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7944 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
|
7945 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
|
7946 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
|
7947 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
7948 /* 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
|
7949 last_real_key_start = t; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
7950 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
7951 /* Does mock_input indicate that we are re-reading a key sequence? */ |
518 | 7952 if (t < mock_input) |
7953 { | |
7954 key = keybuf[t]; | |
7955 add_command_key (key); | |
27769
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
7956 if ((FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes)) |
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
7957 && NILP (Fzerop (Vecho_keystrokes))) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
7958 echo_char (key); |
518 | 7959 } |
899 | 7960 |
7961 /* If not, we should actually read a character. */ | |
518 | 7962 else |
7963 { | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7964 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7965 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7966 KBOARD *interrupted_kboard = current_kboard; |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
7967 struct frame *interrupted_frame = SELECTED_FRAME (); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7968 if (setjmp (wrong_kboard_jmpbuf)) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7969 { |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7970 if (!NILP (delayed_switch_frame)) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7971 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7972 interrupted_kboard->kbd_queue |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7973 = Fcons (delayed_switch_frame, |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7974 interrupted_kboard->kbd_queue); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7975 delayed_switch_frame = Qnil; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7976 } |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7977 while (t > 0) |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7978 interrupted_kboard->kbd_queue |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7979 = Fcons (keybuf[--t], interrupted_kboard->kbd_queue); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7980 |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7981 /* If the side queue is non-empty, ensure it begins with a |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7982 switch-frame, so we'll replay it in the right context. */ |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7983 if (CONSP (interrupted_kboard->kbd_queue) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7984 && (key = XCAR (interrupted_kboard->kbd_queue), |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7985 !(EVENT_HAS_PARAMETERS (key) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7986 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (key)), |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
7987 Qswitch_frame)))) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7988 { |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7989 Lisp_Object frame; |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7990 XSETFRAME (frame, interrupted_frame); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7991 interrupted_kboard->kbd_queue |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7992 = Fcons (make_lispy_switch_frame (frame), |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
7993 interrupted_kboard->kbd_queue); |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7994 } |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7995 mock_input = 0; |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7996 orig_local_map = get_local_map (PT, current_buffer, local_map); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
7997 orig_keymap = get_local_map (PT, current_buffer, keymap); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7998 goto replay_sequence; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
7999 } |
10820
5bef43a53c01
(display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents:
10800
diff
changeset
|
8000 #endif |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8001 key = read_char (NILP (prompt), nmaps, |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8002 (Lisp_Object *) submaps, last_nonmenu_event, |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
8003 &used_mouse_menu); |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
8004 } |
518 | 8005 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
8006 /* 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
|
8007 Just return -1. */ |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
8008 if (EQ (key, Qt)) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8009 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8010 unbind_to (count, Qnil); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8011 return -1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8012 } |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
8013 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8014 /* read_char returns -1 at the end of a macro. |
518 | 8015 Emacs 18 handles this by returning immediately with a |
8016 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
|
8017 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
|
8018 { |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8019 t = 0; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8020 /* The Microsoft C compiler can't handle the goto that |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8021 would go here. */ |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8022 dummyflag = 1; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8023 break; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
8024 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8025 |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
8026 /* 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
|
8027 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
|
8028 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
|
8029 { |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
8030 mock_input = t; |
17389
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
8031 /* Reset the current buffer from the selected window |
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
8032 in case something changed the former and not the latter. |
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
8033 This is to be more consistent with the behavior |
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
8034 of the command_loop_1. */ |
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
8035 if (fix_current_buffer) |
23226
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
8036 { |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
8037 if (! FRAME_LIVE_P (XFRAME (selected_frame))) |
23226
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
8038 Fkill_emacs (Qnil); |
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
8039 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer) |
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
8040 Fset_buffer (XWINDOW (selected_window)->buffer); |
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
8041 } |
17389
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
8042 |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8043 orig_local_map = get_local_map (PT, current_buffer, local_map); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8044 orig_keymap = get_local_map (PT, current_buffer, keymap); |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
8045 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
|
8046 } |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
8047 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
8048 /* 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
|
8049 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
|
8050 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
|
8051 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
|
8052 { |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8053 GROW_RAW_KEYBUF; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8054 XVECTOR (raw_keybuf)->contents[raw_keybuf_count++] = key; |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
8055 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
|
8056 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
|
8057 Vquit_flag = Qnil; |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8058 orig_local_map = get_local_map (PT, current_buffer, local_map); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8059 orig_keymap = get_local_map (PT, current_buffer, keymap); |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
8060 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
|
8061 } |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
8062 |
518 | 8063 Vquit_flag = Qnil; |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8064 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8065 if (EVENT_HAS_PARAMETERS (key) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8066 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (key)), Qswitch_frame)) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8067 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8068 /* If we're at the beginning of a key sequence, and the caller |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8069 says it's okay, go ahead and return this event. If we're |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8070 in the midst of a key sequence, delay it until the end. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8071 if (t > 0 || !can_return_switch_frame) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8072 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8073 delayed_switch_frame = key; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8074 goto replay_key; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8075 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8076 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8077 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8078 GROW_RAW_KEYBUF; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8079 XVECTOR (raw_keybuf)->contents[raw_keybuf_count++] = key; |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8080 } |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8081 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8082 /* Clicks in non-text areas get prefixed by the symbol |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8083 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
|
8084 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
|
8085 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8086 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
|
8087 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
|
8088 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
|
8089 here. |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8090 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8091 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
|
8092 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
|
8093 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
|
8094 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
|
8095 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
|
8096 if (EVENT_HAS_PARAMETERS (key)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8097 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8098 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
|
8099 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8100 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
|
8101 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
|
8102 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8103 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
|
8104 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8105 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
|
8106 posn = POSN_BUFFER_POSN (EVENT_START (key)); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8107 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
8108 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
|
8109 { |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8110 /* 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
|
8111 sequence which we expanded before. Set |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8112 last_real_key_start appropriately. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8113 if (t > 0) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8114 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
|
8115 } |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8116 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8117 /* 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
|
8118 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
|
8119 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
|
8120 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
|
8121 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
|
8122 && WINDOWP (window) |
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
8123 && BUFFERP (XWINDOW (window)->buffer) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8124 && 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
|
8125 { |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8126 XVECTOR (raw_keybuf)->contents[raw_keybuf_count++] = key; |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8127 keybuf[t] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8128 mock_input = t + 1; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8129 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8130 /* 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
|
8131 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
|
8132 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
|
8133 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
|
8134 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
|
8135 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
|
8136 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
|
8137 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
|
8138 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
|
8139 emacsclient). */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8140 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
|
8141 |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
8142 if (! FRAME_LIVE_P (XFRAME (selected_frame))) |
23226
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
8143 Fkill_emacs (Qnil); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8144 set_buffer_internal (XBUFFER (XWINDOW |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8145 (window)->buffer) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8146 ); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8147 orig_local_map = get_local_map (PT, current_buffer, |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8148 local_map); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8149 orig_keymap = get_local_map (PT, current_buffer, keymap); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8150 goto replay_sequence; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8151 } |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8152 |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8153 /* For a mouse click, get the local text-property keymap |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8154 of the place clicked on, rather than point. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8155 if (last_real_key_start == 0 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8156 && CONSP (XCDR (key)) |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8157 && ! localized_local_map) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8158 { |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8159 Lisp_Object map_here, start, pos; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8160 |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8161 localized_local_map = 1; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8162 start = EVENT_START (key); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8163 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8164 if (CONSP (start) && CONSP (XCDR (start))) |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8165 { |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8166 pos = POSN_BUFFER_POSN (start); |
12979
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
8167 if (INTEGERP (pos) |
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
8168 && XINT (pos) >= BEG && XINT (pos) <= Z) |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8169 { |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8170 map_here = get_local_map (XINT (pos), |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8171 current_buffer, local_map); |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8172 if (!EQ (map_here, orig_local_map)) |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8173 { |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8174 orig_local_map = map_here; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8175 keybuf[t] = key; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8176 mock_input = t + 1; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8177 |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8178 goto replay_sequence; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8179 } |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8180 map_here = get_local_map (XINT (pos), |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8181 current_buffer, keymap); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8182 if (!EQ (map_here, orig_keymap)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8183 { |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8184 orig_keymap = map_here; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8185 keybuf[t] = key; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8186 mock_input = t + 1; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8187 |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8188 goto replay_sequence; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8189 } |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8190 } |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8191 } |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8192 } |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8193 |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8194 /* Expand mode-line and scroll-bar events into two events: |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8195 use posn as a fake prefix key. */ |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8196 if (SYMBOLP (posn)) |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8197 { |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8198 if (t + 1 >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8199 error ("Key sequence too long"); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8200 keybuf[t] = posn; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8201 keybuf[t+1] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8202 mock_input = t + 2; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8203 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8204 /* 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
|
8205 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
|
8206 POSN_BUFFER_POSN (EVENT_START (key)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8207 = Fcons (posn, Qnil); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8208 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8209 /* If on a mode line string with a local keymap, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8210 reconsider the key sequence with that keymap. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8211 if (CONSP (POSN_STRING (EVENT_START (key)))) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8212 { |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8213 Lisp_Object string, pos, map, map2; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8214 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8215 string = POSN_STRING (EVENT_START (key)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8216 pos = XCDR (string); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8217 string = XCAR (string); |
29717
acaa36b47f50
fix up more Lisp_Object/int conversion issues
Ken Raeburn <raeburn@raeburn.org>
parents:
29635
diff
changeset
|
8218 if (XINT (pos) >= 0 |
acaa36b47f50
fix up more Lisp_Object/int conversion issues
Ken Raeburn <raeburn@raeburn.org>
parents:
29635
diff
changeset
|
8219 && XINT (pos) < XSTRING (string)->size) |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8220 { |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8221 map = Fget_text_property (pos, Qlocal_map, string); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8222 if (!NILP (map)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8223 orig_local_map = map; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8224 map2 = Fget_text_property (pos, Qkeymap, string); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8225 if (!NILP (map2)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8226 orig_keymap = map2; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8227 if (!NILP (map) || !NILP (map2)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8228 goto replay_sequence; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8229 } |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8230 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8231 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8232 goto replay_key; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
8233 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
8234 } |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8235 else if (CONSP (XCDR (key)) |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
8236 && CONSP (EVENT_START (key)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8237 && CONSP (XCDR (EVENT_START (key)))) |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
8238 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8239 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
|
8240 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8241 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
|
8242 /* Handle menu-bar events: |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8243 insert the dummy prefix event `menu-bar'. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8244 if (EQ (posn, Qmenu_bar) || EQ (posn, Qtool_bar)) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8245 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8246 if (t + 1 >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8247 error ("Key sequence too long"); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8248 keybuf[t] = posn; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8249 keybuf[t+1] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8250 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8251 /* 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
|
8252 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
|
8253 POSN_BUFFER_POSN (EVENT_START (key)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8254 = Fcons (posn, Qnil); |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8255 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8256 mock_input = t + 2; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8257 goto replay_sequence; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8258 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
8259 else if (CONSP (posn)) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8260 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8261 /* 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
|
8262 sequence which we expanded before. Set |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8263 last_real_key_start appropriately. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8264 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
|
8265 last_real_key_start = t - 1; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8266 } |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
8267 } |
518 | 8268 } |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8269 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8270 /* 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
|
8271 to look up. */ |
518 | 8272 first_binding = (follow_key (key, |
8273 nmaps - first_binding, | |
899 | 8274 submaps + first_binding, |
518 | 8275 defs + first_binding, |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8276 submaps + first_binding) |
518 | 8277 + first_binding); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
8278 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8279 /* 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
|
8280 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
|
8281 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8282 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
|
8283 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8284 head = EVENT_HEAD (key); |
12342
87aeb150a91a
(read_key_sequence): Don't use Vprefix_help_command
Richard M. Stallman <rms@gnu.org>
parents:
12335
diff
changeset
|
8285 if (help_char_p (head) && t > 0) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8286 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8287 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
|
8288 keybuf[t++] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8289 last_nonmenu_event = key; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8290 /* The Microsoft C compiler can't handle the goto that |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8291 would go here. */ |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8292 dummyflag = 1; |
10533
52b954844444
(read_key_sequence): Don't wait for a possible key translation sequence if we
Karl Heuer <kwzh@gnu.org>
parents:
10457
diff
changeset
|
8293 break; |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8294 } |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
8295 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
8296 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
|
8297 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8298 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
|
8299 int modifiers; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8300 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
8301 breakdown = parse_modifiers (head); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8302 modifiers = XINT (XCAR (XCDR (breakdown))); |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8303 /* 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
|
8304 event that is bound: |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8305 Drags reduce to clicks. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8306 Double-clicks reduce to clicks. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8307 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
|
8308 Down-clicks are eliminated. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8309 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
|
8310 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
|
8311 then are eliminated. */ |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8312 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
|
8313 | 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
|
8314 { |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8315 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
|
8316 | 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
|
8317 { |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8318 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
|
8319 if (modifiers & triple_modifier) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8320 modifiers ^= (double_modifier | triple_modifier); |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8321 else if (modifiers & double_modifier) |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8322 modifiers &= ~double_modifier; |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8323 else if (modifiers & drag_modifier) |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8324 modifiers &= ~drag_modifier; |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8325 else |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8326 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8327 /* 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
|
8328 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
|
8329 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8330 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
|
8331 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
|
8332 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
|
8333 mock input. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8334 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8335 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
|
8336 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
|
8337 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
|
8338 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
|
8339 anyway. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8340 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8341 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
|
8342 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
|
8343 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
|
8344 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
|
8345 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
|
8346 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
|
8347 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
|
8348 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
|
8349 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
|
8350 it. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8351 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8352 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
|
8353 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
|
8354 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
|
8355 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
|
8356 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8357 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
|
8358 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
|
8359 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8360 mock_input = 0; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8361 goto replay_key; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8362 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8363 else |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8364 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8365 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
|
8366 goto replay_sequence; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8367 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8368 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
8369 |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
8370 new_head |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8371 = apply_modifiers (modifiers, XCAR (breakdown)); |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
8372 new_click |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
8373 = 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
|
8374 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8375 /* 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
|
8376 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
|
8377 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
|
8378 first_binding |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
8379 = (follow_key (new_click, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
8380 nmaps - local_first_binding, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
8381 submaps + local_first_binding, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
8382 defs + local_first_binding, |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8383 submaps + local_first_binding) |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
8384 + local_first_binding); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8385 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8386 /* 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
|
8387 if (first_binding < nmaps) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8388 { |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8389 key = new_click; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8390 break; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8391 } |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8392 /* 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
|
8393 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
8394 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
8395 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
8396 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
8397 |
518 | 8398 keybuf[t++] = key; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8399 /* 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
|
8400 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
|
8401 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
|
8402 event that preceded the first level of menu. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8403 if (!used_mouse_menu) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8404 last_nonmenu_event = key; |
518 | 8405 |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
8406 /* Record what part of this_command_keys is the current key sequence. */ |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
8407 this_single_command_key_start = this_command_key_count - t; |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
8408 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8409 prev_fkey_map = fkey_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8410 prev_fkey_start = fkey_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8411 prev_fkey_end = fkey_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8412 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8413 prev_keytran_map = keytran_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8414 prev_keytran_start = keytran_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8415 prev_keytran_end = keytran_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8416 |
518 | 8417 /* If the sequence is unbound, see if we can hang a function key |
899 | 8418 off the end of it. We only want to scan real keyboard input |
8419 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
|
8420 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
|
8421 if (first_binding >= nmaps |
899 | 8422 && t >= mock_input) |
518 | 8423 { |
8424 Lisp_Object fkey_next; | |
8425 | |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
8426 /* 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
|
8427 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
|
8428 and start fkey_end from there. */ |
518 | 8429 while (fkey_end < t) |
8430 { | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8431 Lisp_Object key; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8432 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8433 key = keybuf[fkey_end++]; |
853 | 8434 /* Look up meta-characters by prefixing them |
8435 with meta_prefix_char. I hate this. */ | |
29726
c9430bc1c824
* keyboard.c (follow_key, read_key_sequence): Use XUINT on key value, or checks
Ken Raeburn <raeburn@raeburn.org>
parents:
29717
diff
changeset
|
8436 if (INTEGERP (key) && XUINT (key) & meta_modifier) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8437 { |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
8438 fkey_next |
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
8439 = get_keymap_1 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8440 (get_keyelt |
18742
a56124aa2164
(command_loop_1): Add missing message2 argument.
Richard M. Stallman <rms@gnu.org>
parents:
18513
diff
changeset
|
8441 (access_keymap (fkey_map, meta_prefix_char, 1, 0), 0), |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8442 0, 1); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
8443 XSETFASTINT (key, XFASTINT (key) & ~meta_modifier); |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8444 } |
853 | 8445 else |
8446 fkey_next = fkey_map; | |
8447 | |
3748
260c9c3200b1
Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents:
3682
diff
changeset
|
8448 fkey_next |
24052
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8449 = get_keyelt (access_keymap (fkey_next, key, 1, 0), 1); |
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8450 |
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8451 /* Handle symbol with autoload definition. */ |
24165
f3f396ac2407
(read_key_sequence): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
24052
diff
changeset
|
8452 if (SYMBOLP (fkey_next) && ! NILP (Ffboundp (fkey_next)) |
f3f396ac2407
(read_key_sequence): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
24052
diff
changeset
|
8453 && CONSP (XSYMBOL (fkey_next)->function) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8454 && EQ (XCAR (XSYMBOL (fkey_next)->function), Qautoload)) |
24165
f3f396ac2407
(read_key_sequence): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
24052
diff
changeset
|
8455 do_autoload (XSYMBOL (fkey_next)->function, |
f3f396ac2407
(read_key_sequence): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
24052
diff
changeset
|
8456 fkey_next); |
24052
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8457 |
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8458 /* Handle a symbol whose function definition is a keymap |
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8459 or an array. */ |
24165
f3f396ac2407
(read_key_sequence): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
24052
diff
changeset
|
8460 if (SYMBOLP (fkey_next) && ! NILP (Ffboundp (fkey_next)) |
f3f396ac2407
(read_key_sequence): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
24052
diff
changeset
|
8461 && (!NILP (Farrayp (XSYMBOL (fkey_next)->function)) |
f3f396ac2407
(read_key_sequence): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
24052
diff
changeset
|
8462 || !NILP (Fkeymapp (XSYMBOL (fkey_next)->function)))) |
f3f396ac2407
(read_key_sequence): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
24052
diff
changeset
|
8463 fkey_next = XSYMBOL (fkey_next)->function; |
939
c4dcdc9aed70
Clear the eighth bit of the character from the key sequence, NOT the
Jim Blandy <jimb@redhat.com>
parents:
899
diff
changeset
|
8464 |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
8465 #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
|
8466 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
|
8467 /* 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
|
8468 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
|
8469 if (SYMBOLP (key) && !NILP (Vinhibit_function_key_mapping)) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
8470 fkey_next = Qnil; |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
8471 #endif |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
8472 |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8473 /* 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
|
8474 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
|
8475 its value instead. */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8476 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
|
8477 && fkey_end == t) |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8478 { |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8479 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
|
8480 Lisp_Object tem; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8481 tem = fkey_next; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8482 |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8483 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
|
8484 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
|
8485 UNGCPRO; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8486 /* 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
|
8487 barf--don't ignore it. |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8488 (To ignore it safely, we would need to gcpro a bunch of |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8489 other variables.) */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8490 if (! (VECTORP (fkey_next) || STRINGP (fkey_next))) |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
8491 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
|
8492 } |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8493 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
8494 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
|
8495 |
939
c4dcdc9aed70
Clear the eighth bit of the character from the key sequence, NOT the
Jim Blandy <jimb@redhat.com>
parents:
899
diff
changeset
|
8496 /* If keybuf[fkey_start..fkey_end] is bound in the |
547 | 8497 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
|
8498 sequence (i.e. fkey_end == t), replace it with |
547 | 8499 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
|
8500 if ((VECTORP (fkey_next) || STRINGP (fkey_next)) |
518 | 8501 && fkey_end == t) |
8502 { | |
4417
02b7d9476fae
(read_key_sequence): Use XFASTINT to convert value
Richard M. Stallman <rms@gnu.org>
parents:
4397
diff
changeset
|
8503 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
|
8504 |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
8505 t = fkey_start + len; |
518 | 8506 if (t >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8507 error ("Key sequence too long"); |
518 | 8508 |
4137
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
8509 if (VECTORP (fkey_next)) |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
8510 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
|
8511 keybuf + fkey_start, |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
8512 (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
|
8513 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
|
8514 { |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
8515 int i; |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
8516 |
9f3fe01a678d
* keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents:
4115
diff
changeset
|
8517 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
|
8518 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
|
8519 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
|
8520 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8521 |
518 | 8522 mock_input = t; |
8523 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
|
8524 fkey_map = Vfunction_key_map; |
518 | 8525 |
24889
38f43c2c5afa
(read_key_sequence): Properly reinitialize
Karl Heuer <kwzh@gnu.org>
parents:
24375
diff
changeset
|
8526 /* Do pass the results through key-translation-map. |
38f43c2c5afa
(read_key_sequence): Properly reinitialize
Karl Heuer <kwzh@gnu.org>
parents:
24375
diff
changeset
|
8527 But don't retranslate what key-translation-map |
38f43c2c5afa
(read_key_sequence): Properly reinitialize
Karl Heuer <kwzh@gnu.org>
parents:
24375
diff
changeset
|
8528 has already translated. */ |
38f43c2c5afa
(read_key_sequence): Properly reinitialize
Karl Heuer <kwzh@gnu.org>
parents:
24375
diff
changeset
|
8529 keytran_end = keytran_start; |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
8530 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
|
8531 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8532 goto replay_sequence; |
518 | 8533 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8534 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8535 fkey_map = get_keymap_1 (fkey_next, 0, 1); |
518 | 8536 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8537 /* If we no longer have a bound suffix, try a new positions for |
547 | 8538 fkey_start. */ |
518 | 8539 if (NILP (fkey_map)) |
8540 { | |
8541 fkey_end = ++fkey_start; | |
8542 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
|
8543 function_key_possible = 0; |
518 | 8544 } |
8545 } | |
8546 } | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8547 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8548 /* 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
|
8549 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8550 Lisp_Object keytran_next; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8551 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8552 /* 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
|
8553 while (keytran_end < t) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8554 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8555 Lisp_Object key; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8556 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8557 key = keybuf[keytran_end++]; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8558 /* 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
|
8559 with meta_prefix_char. I hate this. */ |
29726
c9430bc1c824
* keyboard.c (follow_key, read_key_sequence): Use XUINT on key value, or checks
Ken Raeburn <raeburn@raeburn.org>
parents:
29717
diff
changeset
|
8560 if (INTEGERP (key) && XUINT (key) & meta_modifier) |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8561 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8562 keytran_next |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8563 = get_keymap_1 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8564 (get_keyelt |
18742
a56124aa2164
(command_loop_1): Add missing message2 argument.
Richard M. Stallman <rms@gnu.org>
parents:
18513
diff
changeset
|
8565 (access_keymap (keytran_map, meta_prefix_char, 1, 0), 0), |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8566 0, 1); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
8567 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
|
8568 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8569 else |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8570 keytran_next = keytran_map; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8571 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8572 keytran_next |
24015
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8573 = get_keyelt (access_keymap (keytran_next, key, 1, 0), 1); |
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8574 |
24052
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8575 /* Handle symbol with autoload definition. */ |
24015
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8576 if (SYMBOLP (keytran_next) && ! NILP (Ffboundp (keytran_next)) |
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8577 && CONSP (XSYMBOL (keytran_next)->function) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8578 && EQ (XCAR (XSYMBOL (keytran_next)->function), Qautoload)) |
24015
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8579 do_autoload (XSYMBOL (keytran_next)->function, |
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8580 keytran_next); |
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8581 |
24052
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8582 /* Handle a symbol whose function definition is a keymap |
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8583 or an array. */ |
24015
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8584 if (SYMBOLP (keytran_next) && ! NILP (Ffboundp (keytran_next)) |
24052
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8585 && (!NILP (Farrayp (XSYMBOL (keytran_next)->function)) |
157787e56b41
(read_key_sequence): In key-translation-map and
Richard M. Stallman <rms@gnu.org>
parents:
24015
diff
changeset
|
8586 || !NILP (Fkeymapp (XSYMBOL (keytran_next)->function)))) |
24015
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8587 keytran_next = XSYMBOL (keytran_next)->function; |
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8588 |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8589 /* If the key translation map gives a function, not an |
24015
2b8d4cd758b7
(read_key_sequence): Tell get_keyelt to look handle autoloads.
Richard M. Stallman <rms@gnu.org>
parents:
23975
diff
changeset
|
8590 array, then call the function with one arg and use |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8591 its value instead. */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8592 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
|
8593 && keytran_end == t) |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8594 { |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8595 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
|
8596 Lisp_Object tem; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8597 tem = keytran_next; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8598 |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
8599 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
|
8600 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
|
8601 UNGCPRO; |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8602 /* 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
|
8603 barf--don't ignore it. |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8604 (To ignore it safely, we would need to gcpro a bunch of |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8605 other variables.) */ |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8606 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
|
8607 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
|
8608 } |
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
8609 |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
8610 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
|
8611 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8612 /* 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
|
8613 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
|
8614 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
|
8615 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
|
8616 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
|
8617 && keytran_end == t) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8618 { |
4417
02b7d9476fae
(read_key_sequence): Use XFASTINT to convert value
Richard M. Stallman <rms@gnu.org>
parents:
4397
diff
changeset
|
8619 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
|
8620 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8621 t = keytran_start + len; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8622 if (t >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8623 error ("Key sequence too long"); |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8624 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8625 if (VECTORP (keytran_next)) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8626 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
|
8627 keybuf + keytran_start, |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8628 (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
|
8629 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
|
8630 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8631 int i; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8632 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8633 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
|
8634 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
|
8635 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
|
8636 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8637 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8638 mock_input = t; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8639 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
|
8640 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
|
8641 |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
8642 /* 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
|
8643 through function-key-map. */ |
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
8644 fkey_start = fkey_end = t; |
24889
38f43c2c5afa
(read_key_sequence): Properly reinitialize
Karl Heuer <kwzh@gnu.org>
parents:
24375
diff
changeset
|
8645 fkey_map = Vfunction_key_map; |
9445
712af9626dc0
(read_key_sequence): The output of function-key-map
Richard M. Stallman <rms@gnu.org>
parents:
9396
diff
changeset
|
8646 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8647 goto replay_sequence; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8648 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8649 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8650 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
|
8651 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8652 /* If we no longer have a bound suffix, try a new positions for |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8653 keytran_start. */ |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8654 if (NILP (keytran_map)) |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8655 { |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8656 keytran_end = ++keytran_start; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8657 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
|
8658 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
|
8659 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8660 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8661 } |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8662 |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8663 /* 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
|
8664 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
|
8665 and is an upper case letter |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8666 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
|
8667 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
|
8668 && ! key_translation_possible |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
8669 && INTEGERP (key) |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8670 && ((((XINT (key) & 0x3ffff) |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
8671 < XCHAR_TABLE (current_buffer->downcase_table)->size) |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8672 && UPPERCASEP (XINT (key) & 0x3ffff)) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8673 || (XINT (key) & shift_modifier))) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8674 { |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8675 Lisp_Object new_key; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8676 |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8677 original_uppercase = key; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8678 original_uppercase_position = t - 1; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8679 |
15049
61ee56ae39ef
(read_key_sequence): Fix confusion between key and new_key.
Richard M. Stallman <rms@gnu.org>
parents:
15045
diff
changeset
|
8680 if (XINT (key) & shift_modifier) |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8681 XSETINT (new_key, XINT (key) & ~shift_modifier); |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8682 else |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8683 XSETINT (new_key, (DOWNCASE (XINT (key) & 0x3ffff) |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8684 | (XINT (key) & ~0x3ffff))); |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8685 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8686 /* We have to do this unconditionally, regardless of whether |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8687 the lower-case char is defined in the keymaps, because they |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8688 might get translated through function-key-map. */ |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8689 keybuf[t - 1] = new_key; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8690 mock_input = t; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8691 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8692 fkey_map = prev_fkey_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8693 fkey_start = prev_fkey_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8694 fkey_end = prev_fkey_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8695 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8696 keytran_map = prev_keytran_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8697 keytran_start = prev_keytran_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8698 keytran_end = prev_keytran_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8699 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8700 goto replay_sequence; |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8701 } |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8702 /* If KEY is not defined in any of the keymaps, |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8703 and cannot be part of a function key or translation, |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8704 and is a shifted function key, |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8705 use the corresponding unshifted function key instead. */ |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8706 if (first_binding == nmaps && ! function_key_possible |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8707 && ! key_translation_possible |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8708 && SYMBOLP (key)) |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8709 { |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8710 Lisp_Object breakdown; |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8711 int modifiers; |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8712 |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8713 breakdown = parse_modifiers (key); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8714 modifiers = XINT (XCAR (XCDR (breakdown))); |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8715 if (modifiers & shift_modifier) |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8716 { |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8717 Lisp_Object new_key; |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8718 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8719 original_uppercase = key; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8720 original_uppercase_position = t - 1; |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8721 |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8722 modifiers &= ~shift_modifier; |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8723 new_key = apply_modifiers (modifiers, |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8724 XCAR (breakdown)); |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8725 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8726 keybuf[t - 1] = new_key; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8727 mock_input = t; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8728 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8729 fkey_map = prev_fkey_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8730 fkey_start = prev_fkey_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8731 fkey_end = prev_fkey_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8732 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8733 keytran_map = prev_keytran_map; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8734 keytran_start = prev_keytran_start; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8735 keytran_end = prev_keytran_end; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8736 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8737 goto replay_sequence; |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8738 } |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
8739 } |
518 | 8740 } |
8741 | |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8742 if (!dummyflag) |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8743 read_key_sequence_cmd = (first_binding < nmaps |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8744 ? defs[first_binding] |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8745 : Qnil); |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8746 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
8747 unread_switch_frame = delayed_switch_frame; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8748 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
|
8749 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8750 /* Don't downcase the last character if the caller says don't. |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8751 Don't downcase it if the result is undefined, either. */ |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8752 if ((dont_downcase_last || first_binding >= nmaps) |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
8753 && t - 1 == original_uppercase_position) |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8754 keybuf[t - 1] = original_uppercase; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8755 |
3799
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
8756 /* 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
|
8757 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
|
8758 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
|
8759 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
|
8760 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
|
8761 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
|
8762 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
|
8763 |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
8764 Better ideas? */ |
3809
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
8765 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
|
8766 { |
27769
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
8767 if ((FLOATP (Vecho_keystrokes) || INTEGERP (Vecho_keystrokes)) |
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
8768 && NILP (Fzerop (Vecho_keystrokes))) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
8769 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
|
8770 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
|
8771 } |
3799
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
8772 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8773 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8774 |
518 | 8775 return t; |
8776 } | |
8777 | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8778 #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
|
8779 This commented-out definition serves for DOC. */ |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
8780 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 4, 0, |
518 | 8781 "Read a sequence of keystrokes and return as a string or vector.\n\ |
8782 The sequence is sufficient to specify a non-prefix command in the\n\ | |
8783 current local and global maps.\n\ | |
8784 \n\ | |
691
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
8785 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
|
8786 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
|
8787 as a continuation of the previous key.\n\ |
518 | 8788 \n\ |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8789 The third (optional) arg DONT-DOWNCASE-LAST, if non-nil, means do not\n\ |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8790 convert the last event to lower case. (Normally any upper case event\n\ |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8791 is converted to lower case if the original event is undefined and the lower\n\ |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8792 case equivalent is defined.) A non-nil value is appropriate for reading\n\ |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8793 a key sequence to be defined.\n\ |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8794 \n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
8795 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
|
8796 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
|
8797 \n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
8798 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
|
8799 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
|
8800 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
|
8801 ""\n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
8802 `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
|
8803 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
|
8804 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
|
8805 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
|
8806 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
|
8807 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
|
8808 \n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
8809 `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
|
8810 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
|
8811 `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
|
8812 \n\ |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
8813 Optional fourth argument CAN-RETURN-SWITCH-FRAME non-nil means that this\n\ |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
8814 function will process a switch-frame event if the user switches frames\n\ |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
8815 before typing anything. If the user switches frames in the middle of a\n\ |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
8816 key sequence, or at the start of the sequence but CAN-RETURN-SWITCH-FRAME\n\ |
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
8817 is nil, then the event will be put off until after the current key sequence.\n\ |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
8818 \n\ |
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
8819 `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
|
8820 sequences, where they wouldn't conflict with ordinary bindings. See\n\ |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8821 `function-key-map' for more details.\n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8822 \n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8823 The optional fifth argument COMMAND-LOOP, if non-nil, means\n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8824 that this key sequence is being read by something that will\n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8825 read commands one after another. It should be nil if the caller\n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8826 will read just one key sequence.") |
23065
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
8827 (prompt, continue_echo, dont_downcase_last, can_return_switch_frame, command-loop) |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8828 #endif |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8829 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8830 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 5, 0, |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8831 0) |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8832 (prompt, continue_echo, dont_downcase_last, can_return_switch_frame, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8833 command_loop) |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8834 Lisp_Object prompt, continue_echo, dont_downcase_last; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8835 Lisp_Object can_return_switch_frame, command_loop; |
518 | 8836 { |
8837 Lisp_Object keybuf[30]; | |
8838 register int i; | |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
8839 struct gcpro gcpro1; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8840 int count = specpdl_ptr - specpdl; |
518 | 8841 |
8842 if (!NILP (prompt)) | |
8843 CHECK_STRING (prompt, 0); | |
8844 QUIT; | |
8845 | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8846 specbind (Qinput_method_exit_on_first_char, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8847 (NILP (command_loop) ? Qt : Qnil)); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8848 specbind (Qinput_method_use_echo_area, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8849 (NILP (command_loop) ? Qt : Qnil)); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8850 |
518 | 8851 bzero (keybuf, sizeof keybuf); |
8852 GCPRO1 (keybuf[0]); | |
8853 gcpro1.nvars = (sizeof keybuf/sizeof (keybuf[0])); | |
8854 | |
727 | 8855 if (NILP (continue_echo)) |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
8856 { |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
8857 this_command_key_count = 0; |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
8858 this_single_command_key_start = 0; |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
8859 } |
691
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
8860 |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8861 #ifdef HAVE_X_WINDOWS |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8862 if (display_busy_cursor_p) |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8863 cancel_busy_cursor (); |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8864 #endif |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8865 |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8866 i = read_key_sequence (keybuf, (sizeof keybuf/sizeof (keybuf[0])), |
10903
ff1b5efecdb0
(read_key_sequence): New arg can_return_switch_frame. All callers changed.
Karl Heuer <kwzh@gnu.org>
parents:
10861
diff
changeset
|
8867 prompt, ! NILP (dont_downcase_last), |
17389
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
8868 ! NILP (can_return_switch_frame), 0); |
518 | 8869 |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8870 #ifdef HAVE_X_WINDOWS |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8871 if (display_busy_cursor_p) |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8872 start_busy_cursor (); |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8873 #endif |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8874 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
8875 if (i == -1) |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
8876 { |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
8877 Vquit_flag = Qt; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
8878 QUIT; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
8879 } |
518 | 8880 UNGCPRO; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8881 return unbind_to (count, make_event_array (i, keybuf)); |
518 | 8882 } |
21024 | 8883 |
8884 DEFUN ("read-key-sequence-vector", Fread_key_sequence_vector, | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8885 Sread_key_sequence_vector, 1, 5, 0, |
21024 | 8886 "Like `read-key-sequence' but always return a vector.") |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8887 (prompt, continue_echo, dont_downcase_last, can_return_switch_frame, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8888 command_loop) |
21024 | 8889 Lisp_Object prompt, continue_echo, dont_downcase_last; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8890 Lisp_Object can_return_switch_frame, command_loop; |
21024 | 8891 { |
8892 Lisp_Object keybuf[30]; | |
8893 register int i; | |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
8894 struct gcpro gcpro1; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8895 int count = specpdl_ptr - specpdl; |
21024 | 8896 |
8897 if (!NILP (prompt)) | |
8898 CHECK_STRING (prompt, 0); | |
8899 QUIT; | |
8900 | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8901 specbind (Qinput_method_exit_on_first_char, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8902 (NILP (command_loop) ? Qt : Qnil)); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8903 specbind (Qinput_method_use_echo_area, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8904 (NILP (command_loop) ? Qt : Qnil)); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8905 |
21024 | 8906 bzero (keybuf, sizeof keybuf); |
8907 GCPRO1 (keybuf[0]); | |
8908 gcpro1.nvars = (sizeof keybuf/sizeof (keybuf[0])); | |
8909 | |
8910 if (NILP (continue_echo)) | |
8911 { | |
8912 this_command_key_count = 0; | |
8913 this_single_command_key_start = 0; | |
8914 } | |
8915 | |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8916 #ifdef HAVE_X_WINDOWS |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8917 if (display_busy_cursor_p) |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8918 cancel_busy_cursor (); |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8919 #endif |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8920 |
21024 | 8921 i = read_key_sequence (keybuf, (sizeof keybuf/sizeof (keybuf[0])), |
8922 prompt, ! NILP (dont_downcase_last), | |
8923 ! NILP (can_return_switch_frame), 0); | |
8924 | |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8925 #ifdef HAVE_X_WINDOWS |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8926 if (display_busy_cursor_p) |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8927 start_busy_cursor (); |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8928 #endif |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
8929 |
21024 | 8930 if (i == -1) |
8931 { | |
8932 Vquit_flag = Qt; | |
8933 QUIT; | |
8934 } | |
8935 UNGCPRO; | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
8936 return unbind_to (count, Fvector (i, keybuf)); |
21024 | 8937 } |
518 | 8938 |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8939 DEFUN ("command-execute", Fcommand_execute, Scommand_execute, 1, 4, 0, |
518 | 8940 "Execute CMD as an editor command.\n\ |
8941 CMD must be a symbol that satisfies the `commandp' predicate.\n\ | |
8942 Optional second arg RECORD-FLAG non-nil\n\ | |
8943 means unconditionally put this command in `command-history'.\n\ | |
13309
499e9df6c0f6
(Fcommand_execute): New arg KEYS. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
13290
diff
changeset
|
8944 Otherwise, that is done only if an arg is read using the minibuffer.\n\ |
499e9df6c0f6
(Fcommand_execute): New arg KEYS. Callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
13290
diff
changeset
|
8945 The argument KEYS specifies the value to use instead of (this-command-keys)\n\ |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
8946 when reading the arguments; if it is nil, (this-command-keys) is used.\n\ |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8947 The argument SPECIAL, if non-nil, means that this command is executing\n\ |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8948 a special event, so ignore the prefix argument and don't clear it.") |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8949 (cmd, record_flag, keys, special) |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8950 Lisp_Object cmd, record_flag, keys, special; |
518 | 8951 { |
8952 register Lisp_Object final; | |
8953 register Lisp_Object tem; | |
8954 Lisp_Object prefixarg; | |
8955 struct backtrace backtrace; | |
8956 extern int debug_on_next_call; | |
8957 | |
8958 debug_on_next_call = 0; | |
8959 | |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8960 if (NILP (special)) |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8961 { |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8962 prefixarg = current_kboard->Vprefix_arg; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8963 Vcurrent_prefix_arg = prefixarg; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8964 current_kboard->Vprefix_arg = Qnil; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8965 } |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8966 else |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8967 prefixarg = Qnil; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
8968 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
8969 if (SYMBOLP (cmd)) |
518 | 8970 { |
8971 tem = Fget (cmd, Qdisabled); | |
6208
db4139d43f8a
(command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents:
6204
diff
changeset
|
8972 if (!NILP (tem) && !NILP (Vrun_hooks)) |
12979
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
8973 { |
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
8974 tem = Fsymbol_value (Qdisabled_command_hook); |
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
8975 if (!NILP (tem)) |
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
8976 return call1 (Vrun_hooks, Qdisabled_command_hook); |
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
8977 } |
518 | 8978 } |
8979 | |
13842
7d0b87f737f9
(Fcommand_execute): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
13770
diff
changeset
|
8980 while (1) |
518 | 8981 { |
648 | 8982 final = Findirect_function (cmd); |
518 | 8983 |
8984 if (CONSP (final) && (tem = Fcar (final), EQ (tem, Qautoload))) | |
16109
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
8985 { |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
8986 struct gcpro gcpro1, gcpro2; |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
8987 |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
8988 GCPRO2 (cmd, prefixarg); |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
8989 do_autoload (final, cmd); |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
8990 UNGCPRO; |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
8991 } |
518 | 8992 else |
8993 break; | |
8994 } | |
8995 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
8996 if (STRINGP (final) || VECTORP (final)) |
518 | 8997 { |
8998 /* If requested, place the macro in the command history. For | |
8999 other sorts of commands, call-interactively takes care of | |
9000 this. */ | |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
9001 if (!NILP (record_flag)) |
21726
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9002 { |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9003 Vcommand_history |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9004 = Fcons (Fcons (Qexecute_kbd_macro, |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9005 Fcons (final, Fcons (prefixarg, Qnil))), |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9006 Vcommand_history); |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9007 |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9008 /* Don't keep command history around forever. */ |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9009 if (NUMBERP (Vhistory_length) && XINT (Vhistory_length) > 0) |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9010 { |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9011 tem = Fnthcdr (Vhistory_length, Vcommand_history); |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9012 if (CONSP (tem)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
9013 XCDR (tem) = Qnil; |
21726
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9014 } |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9015 } |
518 | 9016 |
9017 return Fexecute_kbd_macro (final, prefixarg); | |
9018 } | |
21726
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9019 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
9020 if (CONSP (final) || SUBRP (final) || COMPILEDP (final)) |
518 | 9021 { |
9022 backtrace.next = backtrace_list; | |
9023 backtrace_list = &backtrace; | |
9024 backtrace.function = &Qcall_interactively; | |
9025 backtrace.args = &cmd; | |
9026 backtrace.nargs = 1; | |
9027 backtrace.evalargs = 0; | |
9028 | |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
9029 tem = Fcall_interactively (cmd, record_flag, keys); |
518 | 9030 |
9031 backtrace_list = backtrace.next; | |
9032 return tem; | |
9033 } | |
9034 return Qnil; | |
9035 } | |
9036 | |
9037 DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command, | |
9038 1, 1, "P", | |
9039 "Read function name, then read its arguments and call it.") | |
9040 (prefixarg) | |
9041 Lisp_Object prefixarg; | |
9042 { | |
9043 Lisp_Object function; | |
9044 char buf[40]; | |
9045 Lisp_Object saved_keys; | |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9046 Lisp_Object bindings, value; |
16107
6398b414a250
(Fexecute_extended_command): gcpro prefixarg.
Richard M. Stallman <rms@gnu.org>
parents:
16055
diff
changeset
|
9047 struct gcpro gcpro1, gcpro2; |
518 | 9048 |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
9049 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
|
9050 XVECTOR (this_command_keys)->contents); |
518 | 9051 buf[0] = 0; |
16111
5ad91b5cd2b4
(Fexecute_extended_command): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
16109
diff
changeset
|
9052 GCPRO2 (saved_keys, prefixarg); |
518 | 9053 |
9054 if (EQ (prefixarg, Qminus)) | |
9055 strcpy (buf, "- "); | |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
9056 else if (CONSP (prefixarg) && XINT (XCAR (prefixarg)) == 4) |
518 | 9057 strcpy (buf, "C-u "); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
9058 else if (CONSP (prefixarg) && INTEGERP (XCAR (prefixarg))) |
11698
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9059 { |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9060 if (sizeof (int) == sizeof (EMACS_INT)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
9061 sprintf (buf, "%d ", XINT (XCAR (prefixarg))); |
11698
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9062 else if (sizeof (long) == sizeof (EMACS_INT)) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
9063 sprintf (buf, "%ld ", (long) XINT (XCAR (prefixarg))); |
11698
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9064 else |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9065 abort (); |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9066 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
9067 else if (INTEGERP (prefixarg)) |
11698
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9068 { |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9069 if (sizeof (int) == sizeof (EMACS_INT)) |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9070 sprintf (buf, "%d ", XINT (prefixarg)); |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9071 else if (sizeof (long) == sizeof (EMACS_INT)) |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
9072 sprintf (buf, "%ld ", (long) XINT (prefixarg)); |
11698
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9073 else |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9074 abort (); |
36204fbb45d0
(Fexecute_extended_command): Handle long EMACS_INT in sprintf.
Richard M. Stallman <rms@gnu.org>
parents:
11682
diff
changeset
|
9075 } |
518 | 9076 |
9077 /* This isn't strictly correct if execute-extended-command | |
9078 is bound to anything else. Perhaps it should use | |
9079 this_command_keys? */ | |
9080 strcat (buf, "M-x "); | |
9081 | |
9082 /* Prompt with buf, and then read a string, completing from and | |
9083 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
|
9084 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
|
9085 history list. */ |
518 | 9086 function = Fcompleting_read (build_string (buf), |
9087 Vobarray, Qcommandp, | |
19549
e1b1dcf77ac1
(Fexecute_extended_command): Call Fread_from_minibuffer
Kenichi Handa <handa@m17n.org>
parents:
18944
diff
changeset
|
9088 Qt, Qnil, Qextended_command_history, Qnil, |
e1b1dcf77ac1
(Fexecute_extended_command): Call Fread_from_minibuffer
Kenichi Handa <handa@m17n.org>
parents:
18944
diff
changeset
|
9089 Qnil); |
518 | 9090 |
13864
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
9091 if (STRINGP (function) && XSTRING (function)->size == 0) |
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
9092 error ("No command name given"); |
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
9093 |
708 | 9094 /* Set this_command_keys to the concatenation of saved_keys and |
9095 function, followed by a RET. */ | |
518 | 9096 { |
708 | 9097 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
|
9098 Lisp_Object *keys; |
518 | 9099 int i; |
9100 | |
708 | 9101 this_command_key_count = 0; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9102 this_single_command_key_start = 0; |
708 | 9103 |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
9104 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
|
9105 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
|
9106 add_command_key (keys[i]); |
708 | 9107 |
9108 str = XSTRING (function); | |
9109 for (i = 0; i < str->size; i++) | |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
9110 add_command_key (Faref (function, make_number (i))); |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
9111 |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
9112 add_command_key (make_number ('\015')); |
518 | 9113 } |
9114 | |
9115 UNGCPRO; | |
9116 | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9117 function = Fintern (function, Qnil); |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
9118 current_kboard->Vprefix_arg = prefixarg; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9119 Vthis_command = function; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9120 real_this_command = function; |
518 | 9121 |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9122 /* If enabled, show which key runs this command. */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9123 if (!NILP (Vsuggest_key_bindings) |
15272
f32de56357a1
(Fexecute_extended_command): Don't look for
Karl Heuer <kwzh@gnu.org>
parents:
15165
diff
changeset
|
9124 && NILP (Vexecuting_macro) |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9125 && SYMBOLP (function)) |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9126 bindings = Fwhere_is_internal (function, Voverriding_local_map, |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9127 Qt, Qnil); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9128 else |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9129 bindings = Qnil; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9130 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9131 value = Qnil; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9132 GCPRO2 (bindings, value); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9133 value = Fcommand_execute (function, Qt, Qnil, Qnil); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9134 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9135 /* If the command has a key binding, print it now. */ |
20270
3f3e7319341a
(Fexecute_extended_command): Fix message wording.
Karl Heuer <kwzh@gnu.org>
parents:
19947
diff
changeset
|
9136 if (!NILP (bindings) |
20431
01f1baff05d3
(Fexecute_extended_command): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
20380
diff
changeset
|
9137 && ! (VECTORP (bindings) && EQ (Faref (bindings, make_number (0)), |
01f1baff05d3
(Fexecute_extended_command): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
20380
diff
changeset
|
9138 Qmouse_movement))) |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9139 { |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9140 /* But first wait, and skip the message if there is input. */ |
22835
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9141 int delay_time; |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
9142 if (!NILP (echo_area_buffer[0])) |
22835
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9143 /* This command displayed something in the echo area; |
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9144 so wait a few seconds, then display our suggestion message. */ |
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9145 delay_time = (NUMBERP (Vsuggest_key_bindings) |
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9146 ? XINT (Vsuggest_key_bindings) : 2); |
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9147 else |
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9148 /* This command left the echo area empty, |
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9149 so display our message immediately. */ |
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9150 delay_time = 0; |
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9151 |
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
9152 if (!NILP (Fsit_for (make_number (delay_time), Qnil, Qnil)) |
18231
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
9153 && ! CONSP (Vunread_command_events)) |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9154 { |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9155 Lisp_Object binding; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9156 char *newmessage; |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
9157 int message_p = push_message (); |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9158 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9159 binding = Fkey_description (bindings); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9160 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9161 newmessage |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9162 = (char *) alloca (XSYMBOL (function)->name->size |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
9163 + STRING_BYTES (XSTRING (binding)) |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9164 + 100); |
20270
3f3e7319341a
(Fexecute_extended_command): Fix message wording.
Karl Heuer <kwzh@gnu.org>
parents:
19947
diff
changeset
|
9165 sprintf (newmessage, "You can run the command `%s' with %s", |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9166 XSYMBOL (function)->name->data, |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9167 XSTRING (binding)->data); |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
9168 message2_nolog (newmessage, |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
9169 strlen (newmessage), |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
9170 STRING_MULTIBYTE (binding)); |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9171 if (!NILP (Fsit_for ((NUMBERP (Vsuggest_key_bindings) |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9172 ? Vsuggest_key_bindings : make_number (2)), |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
9173 Qnil, Qnil)) |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
9174 && message_p) |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
9175 restore_message (); |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
9176 |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
9177 pop_message (); |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9178 } |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9179 } |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9180 |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
9181 RETURN_UNGCPRO (value); |
518 | 9182 } |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9183 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9184 /* Find the set of keymaps now active. |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9185 Store into *MAPS_P a vector holding the various maps |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9186 and return the number of them. The vector was malloc'd |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9187 and the caller should free it. */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9188 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9189 int |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9190 current_active_maps (maps_p) |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9191 Lisp_Object **maps_p; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9192 { |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9193 Lisp_Object *tmaps, *maps; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9194 int nmaps; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9195 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9196 /* Should overriding-terminal-local-map and overriding-local-map apply? */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9197 if (!NILP (Voverriding_local_map_menu_flag)) |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9198 { |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9199 /* Yes, use them (if non-nil) as well as the global map. */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9200 maps = (Lisp_Object *) xmalloc (3 * sizeof (maps[0])); |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9201 nmaps = 0; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9202 if (!NILP (current_kboard->Voverriding_terminal_local_map)) |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9203 maps[nmaps++] = current_kboard->Voverriding_terminal_local_map; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9204 if (!NILP (Voverriding_local_map)) |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9205 maps[nmaps++] = Voverriding_local_map; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9206 } |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9207 else |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9208 { |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9209 /* No, so use major and minor mode keymaps and keymap property. */ |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9210 int extra_maps = 2; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9211 Lisp_Object map = get_local_map (PT, current_buffer, keymap); |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9212 if (!NILP (map)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9213 extra_maps = 3; |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9214 nmaps = current_minor_maps (NULL, &tmaps); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9215 maps = (Lisp_Object *) alloca ((nmaps + extra_maps) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9216 * sizeof (maps[0])); |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9217 bcopy (tmaps, maps, nmaps * sizeof (maps[0])); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9218 if (!NILP (map)) |
31697 | 9219 maps[nmaps++] = map; |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9220 maps[nmaps++] = get_local_map (PT, current_buffer, local_map); |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9221 } |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9222 maps[nmaps++] = current_global_map; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9223 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9224 *maps_p = maps; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9225 return nmaps; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
9226 } |
518 | 9227 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9228 /* Return nonzero if input events are pending. */ |
518 | 9229 |
21514 | 9230 int |
518 | 9231 detect_input_pending () |
9232 { | |
9233 if (!input_pending) | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9234 get_input_pending (&input_pending, 0); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9235 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9236 return input_pending; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9237 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9238 |
16017
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9239 /* Return nonzero if input events are pending, and run any pending timers. */ |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9240 |
21514 | 9241 int |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
9242 detect_input_pending_run_timers (do_display) |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
9243 int do_display; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9244 { |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
9245 int old_timers_run = timers_run; |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
9246 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9247 if (!input_pending) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9248 get_input_pending (&input_pending, 1); |
518 | 9249 |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
9250 if (old_timers_run != timers_run && do_display) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9251 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9252 redisplay_preserve_echo_area (); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9253 /* The following fixes a bug when using lazy-lock with |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9254 lazy-lock-defer-on-the-fly set to t, i.e. when fontifying |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9255 from an idle timer function. The symptom of the bug is that |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9256 the cursor sometimes doesn't become visible until the next X |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9257 event is processed. --gerd. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9258 if (rif) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9259 rif->flush_display (NULL); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9260 } |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
9261 |
518 | 9262 return input_pending; |
9263 } | |
9264 | |
648 | 9265 /* This is called in some cases before a possible quit. |
9266 It cases the next call to detect_input_pending to recompute input_pending. | |
9267 So calling this function unnecessarily can't do any harm. */ | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
9268 |
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
9269 void |
648 | 9270 clear_input_pending () |
9271 { | |
9272 input_pending = 0; | |
9273 } | |
9274 | |
16017
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9275 /* Return nonzero if there are pending requeued events. |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9276 This isn't used yet. The hope is to make wait_reading_process_input |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9277 call it, and return return if it runs Lisp code that unreads something. |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9278 The problem is, kbd_buffer_get_event needs to be fixed to know what |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9279 to do in that case. It isn't trivial. */ |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9280 |
21514 | 9281 int |
16017
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9282 requeued_events_pending_p () |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9283 { |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9284 return (!NILP (Vunread_command_events) || unread_command_char != -1); |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9285 } |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9286 |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
9287 |
518 | 9288 DEFUN ("input-pending-p", Finput_pending_p, Sinput_pending_p, 0, 0, 0, |
9289 "T if command input is currently available with no waiting.\n\ | |
9290 Actually, the value is nil only if we can be sure that no input is available.") | |
9291 () | |
9292 { | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
9293 if (!NILP (Vunread_command_events) || unread_command_char != -1) |
518 | 9294 return (Qt); |
9295 | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9296 get_input_pending (&input_pending, 1); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
9297 return input_pending > 0 ? Qt : Qnil; |
518 | 9298 } |
9299 | |
9300 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
|
9301 "Return vector of last 100 events, not counting those from keyboard macros.") |
518 | 9302 () |
9303 { | |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
9304 Lisp_Object *keys = XVECTOR (recent_keys)->contents; |
518 | 9305 Lisp_Object val; |
9306 | |
9307 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
|
9308 return Fvector (total_keys, keys); |
518 | 9309 else |
9310 { | |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
9311 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
|
9312 bcopy (keys + recent_keys_index, |
518 | 9313 XVECTOR (val)->contents, |
9314 (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
|
9315 bcopy (keys, |
518 | 9316 XVECTOR (val)->contents + NUM_RECENT_KEYS - recent_keys_index, |
9317 recent_keys_index * sizeof (Lisp_Object)); | |
9318 return val; | |
9319 } | |
9320 } | |
9321 | |
9322 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
|
9323 "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
|
9324 The value is a string or a vector.") |
518 | 9325 () |
9326 { | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
9327 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
|
9328 XVECTOR (this_command_keys)->contents); |
518 | 9329 } |
9330 | |
21024 | 9331 DEFUN ("this-command-keys-vector", Fthis_command_keys_vector, Sthis_command_keys_vector, 0, 0, 0, |
9332 "Return the key sequence that invoked this command, as a vector.") | |
9333 () | |
9334 { | |
9335 return Fvector (this_command_key_count, | |
9336 XVECTOR (this_command_keys)->contents); | |
9337 } | |
9338 | |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9339 DEFUN ("this-single-command-keys", Fthis_single_command_keys, |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9340 Sthis_single_command_keys, 0, 0, 0, |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9341 "Return the key sequence that invoked this command.\n\ |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9342 Unlike `this-command-keys', this function's value\n\ |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9343 does not include prefix arguments.\n\ |
21024 | 9344 The value is always a vector.") |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9345 () |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9346 { |
21024 | 9347 return Fvector (this_command_key_count |
9348 - this_single_command_key_start, | |
9349 (XVECTOR (this_command_keys)->contents | |
9350 + this_single_command_key_start)); | |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9351 } |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9352 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9353 DEFUN ("this-single-command-raw-keys", Fthis_single_command_raw_keys, |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9354 Sthis_single_command_raw_keys, 0, 0, 0, |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9355 "Return the raw events that were read for this command.\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9356 Unlike `this-single-command-keys', this function's value\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9357 shows the events before all translations (except for input methods).\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9358 The value is always a vector.") |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9359 () |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9360 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9361 return Fvector (raw_keybuf_count, |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9362 (XVECTOR (raw_keybuf)->contents)); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9363 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9364 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9365 DEFUN ("reset-this-command-lengths", Freset_this_command_lengths, |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9366 Sreset_this_command_lengths, 0, 0, 0, |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9367 "Used for complicated reasons in `universal-argument-other-key'.\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9368 \n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9369 `universal-argument-other-key' rereads the event just typed.\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9370 It then gets translated through `function-key-map'.\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9371 The translated event gets included in the echo area and in\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9372 the value of `this-command-keys' in addition to the raw original event.\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9373 That is not right.\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9374 \n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9375 Calling this function directs the translated event to replace\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9376 the original event, so that only one version of the event actually\n\ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9377 appears in the echo area and in the value of `this-command-keys.'.") |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9378 () |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9379 { |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9380 before_command_restore_flag = 1; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9381 before_command_key_count_1 = before_command_key_count; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9382 before_command_echo_length_1 = before_command_echo_length; |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
9383 return Qnil; |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9384 } |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
9385 |
23439
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
9386 DEFUN ("clear-this-command-keys", Fclear_this_command_keys, |
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
9387 Sclear_this_command_keys, 0, 0, 0, |
27275
5cb23a4c6774
Add last change to doc string.
Gerd Moellmann <gerd@gnu.org>
parents:
27274
diff
changeset
|
9388 "Clear out the vector that `this-command-keys' returns.\n\ |
5cb23a4c6774
Add last change to doc string.
Gerd Moellmann <gerd@gnu.org>
parents:
27274
diff
changeset
|
9389 Clear vector containing last 100 events.") |
23439
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
9390 () |
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
9391 { |
27274
8ef20d572a68
(Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents:
26863
diff
changeset
|
9392 int i; |
8ef20d572a68
(Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents:
26863
diff
changeset
|
9393 |
23439
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
9394 this_command_key_count = 0; |
27274
8ef20d572a68
(Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents:
26863
diff
changeset
|
9395 |
8ef20d572a68
(Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents:
26863
diff
changeset
|
9396 for (i = 0; i < XVECTOR (recent_keys)->size; ++i) |
8ef20d572a68
(Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents:
26863
diff
changeset
|
9397 XVECTOR (recent_keys)->contents[i] = Qnil; |
8ef20d572a68
(Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents:
26863
diff
changeset
|
9398 total_keys = 0; |
8ef20d572a68
(Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents:
26863
diff
changeset
|
9399 recent_keys_index = 0; |
23439
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
9400 return Qnil; |
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
9401 } |
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
9402 |
518 | 9403 DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0, |
9404 "Return the current depth in recursive edits.") | |
9405 () | |
9406 { | |
9407 Lisp_Object temp; | |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
9408 XSETFASTINT (temp, command_loop_level + minibuf_level); |
518 | 9409 return temp; |
9410 } | |
9411 | |
9412 DEFUN ("open-dribble-file", Fopen_dribble_file, Sopen_dribble_file, 1, 1, | |
9413 "FOpen dribble file: ", | |
1888
86ff3942d7e1
(Fopen_dribble_file): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
1842
diff
changeset
|
9414 "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
|
9415 If FILE is nil, close any open dribble file.") |
518 | 9416 (file) |
9417 Lisp_Object file; | |
9418 { | |
14590
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
9419 if (dribble) |
518 | 9420 { |
14590
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
9421 fclose (dribble); |
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
9422 dribble = 0; |
518 | 9423 } |
14590
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
9424 if (!NILP (file)) |
518 | 9425 { |
9426 file = Fexpand_file_name (file, Qnil); | |
9427 dribble = fopen (XSTRING (file)->data, "w"); | |
14591
6002d6e3aea3
(Fopen_dribble_file): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents:
14590
diff
changeset
|
9428 if (dribble == 0) |
6002d6e3aea3
(Fopen_dribble_file): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents:
14590
diff
changeset
|
9429 report_file_error ("Opening dribble", Fcons (file, Qnil)); |
518 | 9430 } |
9431 return Qnil; | |
9432 } | |
9433 | |
9434 DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0, | |
9435 "Discard the contents of the terminal input buffer.\n\ | |
9436 Also cancel any kbd macro being defined.") | |
9437 () | |
9438 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9439 current_kboard->defining_kbd_macro = Qnil; |
518 | 9440 update_mode_lines++; |
9441 | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
9442 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
|
9443 unread_command_char = -1; |
518 | 9444 |
9445 discard_tty_input (); | |
9446 | |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9447 kbd_fetch_ptr = kbd_store_ptr; |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9448 Ffillarray (kbd_buffer_gcpro, Qnil); |
518 | 9449 input_pending = 0; |
9450 | |
9451 return Qnil; | |
9452 } | |
9453 | |
9454 DEFUN ("suspend-emacs", Fsuspend_emacs, Ssuspend_emacs, 0, 1, "", | |
9455 "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
|
9456 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
|
9457 control, run a subshell instead.\n\n\ |
518 | 9458 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
|
9459 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
|
9460 \n\ |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
9461 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
|
9462 After resumption run the normal hook `suspend-resume-hook'.\n\ |
518 | 9463 \n\ |
9464 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
|
9465 On such systems, Emacs starts a subshell instead of suspending.") |
518 | 9466 (stuffstring) |
9467 Lisp_Object stuffstring; | |
9468 { | |
9469 int count = specpdl_ptr - specpdl; | |
9470 int old_height, old_width; | |
9471 int width, height; | |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
9472 struct gcpro gcpro1; |
518 | 9473 |
9474 if (!NILP (stuffstring)) | |
9475 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
|
9476 |
2338
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
9477 /* Run the functions in suspend-hook. */ |
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
9478 if (!NILP (Vrun_hooks)) |
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
9479 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
|
9480 |
518 | 9481 GCPRO1 (stuffstring); |
765 | 9482 get_frame_size (&old_width, &old_height); |
518 | 9483 reset_sys_modes (); |
9484 /* sys_suspend can get an error if it tries to fork a subshell | |
9485 and the system resources aren't available for that. */ | |
20380
efe9d1d6fc23
(Fsuspend_emacs): Cast init_sys_modes when calling
Andreas Schwab <schwab@suse.de>
parents:
20366
diff
changeset
|
9486 record_unwind_protect ((Lisp_Object (*) P_ ((Lisp_Object))) init_sys_modes, |
21527
39c919d2a8be
(parse_menu_item): Don't GCPRO non-lisp variables.
Andreas Schwab <schwab@suse.de>
parents:
21514
diff
changeset
|
9487 Qnil); |
518 | 9488 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
|
9489 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
|
9490 sys_subshell (); |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
9491 else |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
9492 sys_suspend (); |
518 | 9493 unbind_to (count, Qnil); |
9494 | |
9495 /* Check if terminal/window size has changed. | |
9496 Note that this is not useful when we are running directly | |
9497 with a window system; but suspend should be disabled in that case. */ | |
765 | 9498 get_frame_size (&width, &height); |
518 | 9499 if (width != old_width || height != old_height) |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
9500 change_frame_size (SELECTED_FRAME (), height, width, 0, 0, 0); |
518 | 9501 |
2338
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
9502 /* Run suspend-resume-hook. */ |
518 | 9503 if (!NILP (Vrun_hooks)) |
9504 call1 (Vrun_hooks, intern ("suspend-resume-hook")); | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9505 |
518 | 9506 UNGCPRO; |
9507 return Qnil; | |
9508 } | |
9509 | |
9510 /* 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
|
9511 Then in any case stuff anything Emacs has read ahead and not used. */ |
518 | 9512 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
9513 void |
518 | 9514 stuff_buffered_input (stuffstring) |
9515 Lisp_Object stuffstring; | |
9516 { | |
9517 /* stuff_char works only in BSD, versions 4.2 and up. */ | |
16220
02044b05d8e0
Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
16196
diff
changeset
|
9518 #ifdef BSD_SYSTEM |
518 | 9519 #ifndef BSD4_1 |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
9520 register unsigned char *p; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
9521 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
9522 if (STRINGP (stuffstring)) |
518 | 9523 { |
9524 register int count; | |
9525 | |
9526 p = XSTRING (stuffstring)->data; | |
21244
50929073a0ba
Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents:
21240
diff
changeset
|
9527 count = STRING_BYTES (XSTRING (stuffstring)); |
518 | 9528 while (count-- > 0) |
9529 stuff_char (*p++); | |
9530 stuff_char ('\n'); | |
9531 } | |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9532 |
518 | 9533 /* Anything we have read ahead, put back for the shell to read. */ |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9534 /* ?? What should this do when we have multiple keyboards?? |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9535 Should we ignore anything that was typed in at the "wrong" kboard? */ |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9536 for (; kbd_fetch_ptr != kbd_store_ptr; kbd_fetch_ptr++) |
518 | 9537 { |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9538 int idx; |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9539 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9540 if (kbd_fetch_ptr == kbd_buffer + KBD_BUFFER_SIZE) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9541 kbd_fetch_ptr = kbd_buffer; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9542 if (kbd_fetch_ptr->kind == ascii_keystroke) |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9543 stuff_char (kbd_fetch_ptr->code); |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9544 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9545 kbd_fetch_ptr->kind = no_event; |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9546 idx = 2 * (kbd_fetch_ptr - kbd_buffer); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9547 ASET (kbd_buffer_gcpro, idx, Qnil); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9548 ASET (kbd_buffer_gcpro, idx + 1, Qnil); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9549 } |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9550 |
518 | 9551 input_pending = 0; |
9552 #endif | |
16220
02044b05d8e0
Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
16196
diff
changeset
|
9553 #endif /* BSD_SYSTEM and not BSD4_1 */ |
518 | 9554 } |
9555 | |
21514 | 9556 void |
648 | 9557 set_waiting_for_input (time_to_clear) |
9558 EMACS_TIME *time_to_clear; | |
518 | 9559 { |
648 | 9560 input_available_clear_time = time_to_clear; |
518 | 9561 |
9562 /* Tell interrupt_signal to throw back to read_char, */ | |
9563 waiting_for_input = 1; | |
9564 | |
9565 /* If interrupt_signal was called before and buffered a C-g, | |
9566 make it run again now, to avoid timing error. */ | |
9567 if (!NILP (Vquit_flag)) | |
9568 quit_throw_to_read_char (); | |
9569 } | |
9570 | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
9571 void |
518 | 9572 clear_waiting_for_input () |
9573 { | |
9574 /* Tell interrupt_signal not to throw back to read_char, */ | |
9575 waiting_for_input = 0; | |
648 | 9576 input_available_clear_time = 0; |
518 | 9577 } |
9578 | |
9579 /* This routine is called at interrupt level in response to C-G. | |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9580 |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9581 If interrupt_input, this is the handler for SIGINT. Otherwise, it |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9582 is called from kbd_buffer_store_event, in handling SIGIO or |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9583 SIGTINT. |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9584 |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9585 If `waiting_for_input' is non zero, then unless `echoing' is |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9586 nonzero, immediately throw back to read_char. |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9587 |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9588 Otherwise it sets the Lisp variable quit-flag not-nil. This causes |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9589 eval to throw, when it gets a chance. If quit-flag is already |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
9590 non-nil, it stops the job right away. */ |
518 | 9591 |
9592 SIGTYPE | |
10746
ea87e4d9c8ea
(input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents:
10701
diff
changeset
|
9593 interrupt_signal (signalnum) /* If we don't have an argument, */ |
ea87e4d9c8ea
(input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents:
10701
diff
changeset
|
9594 int signalnum; /* some compilers complain in signal calls. */ |
518 | 9595 { |
9596 char c; | |
9597 /* Must preserve main program's value of errno. */ | |
9598 int old_errno = errno; | |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
9599 struct frame *sf = SELECTED_FRAME (); |
518 | 9600 |
16115
cc8c3e2cc6ed
(input_available_signal) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents:
16111
diff
changeset
|
9601 #if defined (USG) && !defined (POSIX_SIGNALS) |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9602 if (!read_socket_hook && NILP (Vwindow_system)) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9603 { |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9604 /* USG systems forget handlers when they are used; |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9605 must reestablish each time */ |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9606 signal (SIGINT, interrupt_signal); |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9607 signal (SIGQUIT, interrupt_signal); |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9608 } |
518 | 9609 #endif /* USG */ |
9610 | |
9611 cancel_echoing (); | |
9612 | |
16873
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
9613 if (!NILP (Vquit_flag) |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
9614 && (FRAME_TERMCAP_P (sf) || FRAME_MSDOS_P (sf))) |
518 | 9615 { |
16873
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
9616 /* If SIGINT isn't blocked, don't let us be interrupted by |
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
9617 another SIGINT, it might be harmful due to non-reentrancy |
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
9618 in I/O functions. */ |
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
9619 sigblock (sigmask (SIGINT)); |
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
9620 |
518 | 9621 fflush (stdout); |
9622 reset_sys_modes (); | |
16873
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
9623 |
518 | 9624 #ifdef SIGTSTP /* Support possible in later USG versions */ |
9625 /* | |
9626 * On systems which can suspend the current process and return to the original | |
9627 * shell, this command causes the user to end up back at the shell. | |
9628 * The "Auto-save" and "Abort" questions are not asked until | |
9629 * the user elects to return to emacs, at which point he can save the current | |
9630 * job and either dump core or continue. | |
9631 */ | |
9632 sys_suspend (); | |
9633 #else | |
9634 #ifdef VMS | |
9635 if (sys_suspend () == -1) | |
9636 { | |
9637 printf ("Not running as a subprocess;\n"); | |
9638 printf ("you can continue or abort.\n"); | |
9639 } | |
9640 #else /* not VMS */ | |
9641 /* Perhaps should really fork an inferior shell? | |
9642 But that would not provide any way to get back | |
9643 to the original shell, ever. */ | |
9644 printf ("No support for stopping a process on this operating system;\n"); | |
9645 printf ("you can continue or abort.\n"); | |
9646 #endif /* not VMS */ | |
9647 #endif /* not SIGTSTP */ | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9648 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9649 /* 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
|
9650 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
|
9651 cursor_to (0, 0); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9652 #endif |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9653 /* It doesn't work to autosave while GC is in progress; |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9654 the code used for auto-saving doesn't cope with the mark bit. */ |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9655 if (!gc_in_progress) |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
9656 { |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9657 printf ("Auto-save? (y or n) "); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9658 fflush (stdout); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9659 if (((c = getchar ()) & ~040) == 'Y') |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9660 { |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9661 Fdo_auto_save (Qt, Qnil); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9662 #ifdef MSDOS |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9663 printf ("\r\nAuto-save done"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9664 #else /* not MSDOS */ |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9665 printf ("Auto-save done\n"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9666 #endif /* not MSDOS */ |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9667 } |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9668 while (c != '\n') c = getchar (); |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
9669 } |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9670 else |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9671 { |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9672 /* During GC, it must be safe to reenable quitting again. */ |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9673 Vinhibit_quit = Qnil; |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9674 #ifdef MSDOS |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9675 printf ("\r\n"); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9676 #endif /* not MSDOS */ |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9677 printf ("Garbage collection in progress; cannot auto-save now\r\n"); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9678 printf ("but will instead do a real quit after garbage collection ends\r\n"); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9679 fflush (stdout); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9680 } |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
9681 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9682 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9683 printf ("\r\nAbort? (y or n) "); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9684 #else /* not MSDOS */ |
518 | 9685 #ifdef VMS |
9686 printf ("Abort (and enter debugger)? (y or n) "); | |
9687 #else /* not VMS */ | |
9688 printf ("Abort (and dump core)? (y or n) "); | |
9689 #endif /* not VMS */ | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9690 #endif /* not MSDOS */ |
518 | 9691 fflush (stdout); |
9692 if (((c = getchar ()) & ~040) == 'Y') | |
9693 abort (); | |
9694 while (c != '\n') c = getchar (); | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9695 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9696 printf ("\r\nContinuing...\r\n"); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9697 #else /* not MSDOS */ |
518 | 9698 printf ("Continuing...\n"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
9699 #endif /* not MSDOS */ |
518 | 9700 fflush (stdout); |
9701 init_sys_modes (); | |
16873
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
9702 sigfree (); |
518 | 9703 } |
9704 else | |
9705 { | |
9706 /* If executing a function that wants to be interrupted out of | |
9707 and the user has not deferred quitting by binding `inhibit-quit' | |
9708 then quit right away. */ | |
9709 if (immediate_quit && NILP (Vinhibit_quit)) | |
9710 { | |
21024 | 9711 struct gl_state_s saved; |
9712 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; | |
9713 | |
518 | 9714 immediate_quit = 0; |
9715 sigfree (); | |
21024 | 9716 saved = gl_state; |
9717 GCPRO4 (saved.object, saved.global_code, | |
9718 saved.current_syntax_table, saved.old_prop); | |
518 | 9719 Fsignal (Qquit, Qnil); |
21024 | 9720 gl_state = saved; |
9721 UNGCPRO; | |
518 | 9722 } |
9723 else | |
9724 /* Else request quit when it's safe */ | |
9725 Vquit_flag = Qt; | |
9726 } | |
9727 | |
9728 if (waiting_for_input && !echoing) | |
9729 quit_throw_to_read_char (); | |
9730 | |
9731 errno = old_errno; | |
9732 } | |
9733 | |
9734 /* Handle a C-g by making read_char return C-g. */ | |
9735 | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
9736 void |
518 | 9737 quit_throw_to_read_char () |
9738 { | |
9739 sigfree (); | |
9740 /* Prevent another signal from doing this before we finish. */ | |
650 | 9741 clear_waiting_for_input (); |
518 | 9742 input_pending = 0; |
9743 | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
9744 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
|
9745 unread_command_char = -1; |
518 | 9746 |
12309
c78f7af6cee9
(quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents:
12290
diff
changeset
|
9747 #if 0 /* Currently, sit_for is called from read_char without turning |
c78f7af6cee9
(quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents:
12290
diff
changeset
|
9748 off polling. And that can call set_waiting_for_input. |
c78f7af6cee9
(quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents:
12290
diff
changeset
|
9749 It seems to be harmless. */ |
2340
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
9750 #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
|
9751 /* 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
|
9752 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
|
9753 abort (); |
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
9754 #endif |
12309
c78f7af6cee9
(quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents:
12290
diff
changeset
|
9755 #endif |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
9756 if (FRAMEP (internal_last_event_frame) |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
9757 && !EQ (internal_last_event_frame, selected_frame)) |
12290
99ffac67fb53
(quit_throw_to_read_char): Use do_switch_frame directly.
Richard M. Stallman <rms@gnu.org>
parents:
12264
diff
changeset
|
9758 do_switch_frame (make_lispy_switch_frame (internal_last_event_frame), |
99ffac67fb53
(quit_throw_to_read_char): Use do_switch_frame directly.
Richard M. Stallman <rms@gnu.org>
parents:
12264
diff
changeset
|
9759 Qnil, 0); |
2340
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
9760 |
518 | 9761 _longjmp (getcjmp, 1); |
9762 } | |
9763 | |
9764 DEFUN ("set-input-mode", Fset_input_mode, Sset_input_mode, 3, 4, 0, | |
9765 "Set mode of reading keyboard input.\n\ | |
695
e3fac20d3015
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
691
diff
changeset
|
9766 First arg INTERRUPT non-nil means use input interrupts;\n\ |
e3fac20d3015
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
691
diff
changeset
|
9767 nil means use CBREAK mode.\n\ |
e3fac20d3015
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
691
diff
changeset
|
9768 Second arg FLOW non-nil means use ^S/^Q flow control for output to terminal\n\ |
518 | 9769 (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
|
9770 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
|
9771 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
|
9772 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
|
9773 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
|
9774 See also `current-input-mode'.") |
518 | 9775 (interrupt, flow, meta, quit) |
9776 Lisp_Object interrupt, flow, meta, quit; | |
9777 { | |
9778 if (!NILP (quit) | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
9779 && (!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
|
9780 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
|
9781 |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
9782 #ifdef POLL_FOR_INPUT |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
9783 stop_polling (); |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
9784 #endif |
518 | 9785 |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
9786 #ifndef DOS_NT |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
9787 /* this causes startup screen to be restored and messes with the mouse */ |
518 | 9788 reset_sys_modes (); |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
9789 #endif |
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
9790 |
518 | 9791 #ifdef SIGIO |
9792 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9793 if (read_socket_hook) |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9794 { |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9795 /* When using X, don't give the user a real choice, |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9796 because we haven't implemented the mechanisms to support it. */ |
518 | 9797 #ifdef NO_SOCK_SIGIO |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9798 interrupt_input = 0; |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9799 #else /* not NO_SOCK_SIGIO */ |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9800 interrupt_input = 1; |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9801 #endif /* NO_SOCK_SIGIO */ |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9802 } |
518 | 9803 else |
9804 interrupt_input = !NILP (interrupt); | |
9805 #else /* not SIGIO */ | |
9806 interrupt_input = 0; | |
9807 #endif /* not SIGIO */ | |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9808 |
518 | 9809 /* Our VMS input only works by interrupts, as of now. */ |
9810 #ifdef VMS | |
9811 interrupt_input = 1; | |
9812 #endif | |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
9813 |
518 | 9814 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
|
9815 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
|
9816 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
|
9817 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
|
9818 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
|
9819 else |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
9820 meta_key = 2; |
518 | 9821 if (!NILP (quit)) |
9822 /* Don't let this value be out of range. */ | |
9823 quit_char = XINT (quit) & (meta_key ? 0377 : 0177); | |
9824 | |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
9825 #ifndef DOS_NT |
518 | 9826 init_sys_modes (); |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
9827 #endif |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
9828 |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
9829 #ifdef POLL_FOR_INPUT |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
9830 poll_suppress_count = 1; |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
9831 start_polling (); |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
9832 #endif |
518 | 9833 return Qnil; |
9834 } | |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9835 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9836 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
|
9837 "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
|
9838 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
|
9839 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
|
9840 nil, Emacs is using CBREAK mode.\n\ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9841 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
|
9842 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
|
9843 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
|
9844 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
|
9845 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
|
9846 all 8 bits as the character code.\n\ |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9847 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
|
9848 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
|
9849 `set-input-mode'.") |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9850 () |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9851 { |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9852 Lisp_Object val[4]; |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9853 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9854 val[0] = interrupt_input ? Qt : Qnil; |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9855 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
|
9856 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
|
9857 XSETFASTINT (val[3], quit_char); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9858 |
3116
05c3ef28bb6b
(Fcurrent_input_mode): Fix the call to Flist.
Richard M. Stallman <rms@gnu.org>
parents:
3104
diff
changeset
|
9859 return Flist (sizeof (val) / sizeof (val[0]), val); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9860 } |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
9861 |
518 | 9862 |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9863 /* |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9864 * Set up a new kboard object with reasonable initial values. |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9865 */ |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9866 void |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9867 init_kboard (kb) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9868 KBOARD *kb; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9869 { |
12264 | 9870 kb->Voverriding_terminal_local_map = Qnil; |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
9871 kb->Vlast_command = Qnil; |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
9872 kb->Vreal_last_command = Qnil; |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
9873 kb->Vprefix_arg = Qnil; |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
9874 kb->Vlast_prefix_arg = Qnil; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9875 kb->kbd_queue = Qnil; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9876 kb->kbd_queue_has_data = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9877 kb->immediate_echo = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9878 kb->echoptr = kb->echobuf; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9879 kb->echo_after_prompt = -1; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9880 kb->kbd_macro_buffer = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9881 kb->kbd_macro_bufsize = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9882 kb->defining_kbd_macro = Qnil; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9883 kb->Vlast_kbd_macro = Qnil; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9884 kb->reference_count = 0; |
11543
317e5825008b
(Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents:
11540
diff
changeset
|
9885 kb->Vsystem_key_alist = Qnil; |
12176
3e14d94320f2
(system_key_syms): Deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12173
diff
changeset
|
9886 kb->system_key_syms = Qnil; |
11777
14ecddbe182f
(init_kboard): Initialize Vdefault_minibuffer_frame.
Karl Heuer <kwzh@gnu.org>
parents:
11763
diff
changeset
|
9887 kb->Vdefault_minibuffer_frame = Qnil; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9888 } |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9889 |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9890 /* |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9891 * Destroy the contents of a kboard object, but not the object itself. |
14036 | 9892 * We use this just before deleting it, or if we're going to initialize |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9893 * it a second time. |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9894 */ |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9895 static void |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9896 wipe_kboard (kb) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9897 KBOARD *kb; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9898 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9899 if (kb->kbd_macro_buffer) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9900 xfree (kb->kbd_macro_buffer); |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9901 } |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
9902 |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9903 #ifdef MULTI_KBOARD |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9904 void |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9905 delete_kboard (kb) |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9906 KBOARD *kb; |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9907 { |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9908 KBOARD **kbp; |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9909 for (kbp = &all_kboards; *kbp != kb; kbp = &(*kbp)->next_kboard) |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9910 if (*kbp == NULL) |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9911 abort (); |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9912 *kbp = kb->next_kboard; |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9913 wipe_kboard (kb); |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9914 xfree (kb); |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9915 } |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9916 #endif |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
9917 |
21514 | 9918 void |
518 | 9919 init_keyboard () |
9920 { | |
9921 /* This is correct before outermost invocation of the editor loop */ | |
9922 command_loop_level = -1; | |
9923 immediate_quit = 0; | |
9924 quit_char = Ctl ('g'); | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
9925 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
|
9926 unread_command_char = -1; |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
9927 EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1); |
518 | 9928 total_keys = 0; |
1262
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
9929 recent_keys_index = 0; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9930 kbd_fetch_ptr = kbd_buffer; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9931 kbd_store_ptr = kbd_buffer; |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
9932 kbd_buffer_gcpro = Fmake_vector (make_number (2 * KBD_BUFFER_SIZE), Qnil); |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
9933 #ifdef HAVE_MOUSE |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
9934 do_mouse_tracking = Qnil; |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
9935 #endif |
518 | 9936 input_pending = 0; |
9937 | |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
9938 /* This means that command_loop_1 won't try to select anything the first |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
9939 time through. */ |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
9940 internal_last_event_frame = Qnil; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
9941 Vlast_event_frame = internal_last_event_frame; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
9942 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9943 #ifdef MULTI_KBOARD |
11363
f15dccd23db8
(init_keyboard): Don't malloc a new structure;
Karl Heuer <kwzh@gnu.org>
parents:
11350
diff
changeset
|
9944 current_kboard = initial_kboard; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9945 #endif |
11363
f15dccd23db8
(init_keyboard): Don't malloc a new structure;
Karl Heuer <kwzh@gnu.org>
parents:
11350
diff
changeset
|
9946 wipe_kboard (current_kboard); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9947 init_kboard (current_kboard); |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
9948 |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9949 if (!noninteractive && !read_socket_hook && NILP (Vwindow_system)) |
518 | 9950 { |
9951 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
|
9952 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS) |
518 | 9953 /* For systems with SysV TERMIO, C-g is set up for both SIGINT and |
9954 SIGQUIT and we can't tell which one it will give us. */ | |
9955 signal (SIGQUIT, interrupt_signal); | |
9956 #endif /* HAVE_TERMIO */ | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9957 } |
518 | 9958 /* Note SIGIO has been undef'd if FIONREAD is missing. */ |
9959 #ifdef SIGIO | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9960 if (!noninteractive) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9961 signal (SIGIO, input_available_signal); |
1008
f1df63f98e5c
* keyboard.c (init_keyboard): Changed "#endif SIGIO" to
Jim Blandy <jimb@redhat.com>
parents:
985
diff
changeset
|
9962 #endif /* SIGIO */ |
518 | 9963 |
9964 /* Use interrupt input by default, if it works and noninterrupt input | |
9965 has deficiencies. */ | |
9966 | |
9967 #ifdef INTERRUPT_INPUT | |
9968 interrupt_input = 1; | |
9969 #else | |
9970 interrupt_input = 0; | |
9971 #endif | |
9972 | |
9973 /* Our VMS input only works by interrupts, as of now. */ | |
9974 #ifdef VMS | |
9975 interrupt_input = 1; | |
9976 #endif | |
9977 | |
9978 sigfree (); | |
9979 dribble = 0; | |
9980 | |
9981 if (keyboard_init_hook) | |
9982 (*keyboard_init_hook) (); | |
9983 | |
9984 #ifdef POLL_FOR_INPUT | |
9985 poll_suppress_count = 1; | |
9986 start_polling (); | |
9987 #endif | |
9988 } | |
9989 | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9990 /* This type's only use is in syms_of_keyboard, to initialize the |
518 | 9991 event header symbols and put properties on them. */ |
9992 struct event_head { | |
9993 Lisp_Object *var; | |
9994 char *name; | |
9995 Lisp_Object *kind; | |
9996 }; | |
9997 | |
9998 struct event_head head_table[] = { | |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
9999 &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
|
10000 &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
|
10001 &Qswitch_frame, "switch-frame", &Qswitch_frame, |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
10002 &Qdelete_frame, "delete-frame", &Qdelete_frame, |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
10003 &Qiconify_frame, "iconify-frame", &Qiconify_frame, |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
10004 &Qmake_frame_visible, "make-frame-visible", &Qmake_frame_visible, |
518 | 10005 }; |
10006 | |
21514 | 10007 void |
518 | 10008 syms_of_keyboard () |
10009 { | |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
10010 Vlispy_mouse_stem = build_string ("mouse"); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
10011 staticpro (&Vlispy_mouse_stem); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
10012 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
10013 /* Tool-bars. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10014 QCimage = intern (":image"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10015 staticpro (&QCimage); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10016 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10017 staticpro (&Qhelp_echo); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10018 Qhelp_echo = intern ("help-echo"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10019 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10020 staticpro (&item_properties); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10021 item_properties = Qnil; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10022 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
10023 staticpro (&tool_bar_item_properties); |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
10024 tool_bar_item_properties = Qnil; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
10025 staticpro (&tool_bar_items_vector); |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
10026 tool_bar_items_vector = Qnil; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10027 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10028 staticpro (&real_this_command); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10029 real_this_command = Qnil; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10030 |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
10031 Qtimer_event_handler = intern ("timer-event-handler"); |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
10032 staticpro (&Qtimer_event_handler); |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
10033 |
4094
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
10034 Qdisabled_command_hook = intern ("disabled-command-hook"); |
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
10035 staticpro (&Qdisabled_command_hook); |
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
10036 |
518 | 10037 Qself_insert_command = intern ("self-insert-command"); |
10038 staticpro (&Qself_insert_command); | |
10039 | |
10040 Qforward_char = intern ("forward-char"); | |
10041 staticpro (&Qforward_char); | |
10042 | |
10043 Qbackward_char = intern ("backward-char"); | |
10044 staticpro (&Qbackward_char); | |
10045 | |
10046 Qdisabled = intern ("disabled"); | |
10047 staticpro (&Qdisabled); | |
10048 | |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
10049 Qundefined = intern ("undefined"); |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
10050 staticpro (&Qundefined); |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
10051 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10052 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
|
10053 staticpro (&Qpre_command_hook); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10054 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10055 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
|
10056 staticpro (&Qpost_command_hook); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10057 |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10058 Qpost_command_idle_hook = intern ("post-command-idle-hook"); |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10059 staticpro (&Qpost_command_idle_hook); |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10060 |
10070
def41008c136
(command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents:
10060
diff
changeset
|
10061 Qdeferred_action_function = intern ("deferred-action-function"); |
def41008c136
(command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents:
10060
diff
changeset
|
10062 staticpro (&Qdeferred_action_function); |
def41008c136
(command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents:
10060
diff
changeset
|
10063 |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
10064 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
|
10065 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
|
10066 |
518 | 10067 Qfunction_key = intern ("function-key"); |
10068 staticpro (&Qfunction_key); | |
1322
5f327f1dddd3
* keyboard.c (modify_event_symbol): Make sure that the unmodified
Jim Blandy <jimb@redhat.com>
parents:
1310
diff
changeset
|
10069 Qmouse_click = intern ("mouse-click"); |
518 | 10070 staticpro (&Qmouse_click); |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10071 #ifdef WINDOWSNT |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10072 Qmouse_wheel = intern ("mouse-wheel"); |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10073 staticpro (&Qmouse_wheel); |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
10074 Qlanguage_change = intern ("language-change"); |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
10075 staticpro (&Qlanguage_change); |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10076 #endif |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
10077 Qdrag_n_drop = intern ("drag-n-drop"); |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
10078 staticpro (&Qdrag_n_drop); |
518 | 10079 |
24375
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
10080 Qusr1_signal = intern ("usr1-signal"); |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
10081 staticpro (&Qusr1_signal); |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
10082 Qusr2_signal = intern ("usr2-signal"); |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
10083 staticpro (&Qusr2_signal); |
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
10084 |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
10085 Qmenu_enable = intern ("menu-enable"); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
10086 staticpro (&Qmenu_enable); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10087 Qmenu_alias = intern ("menu-alias"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10088 staticpro (&Qmenu_alias); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10089 QCenable = intern (":enable"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10090 staticpro (&QCenable); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10091 QCvisible = intern (":visible"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10092 staticpro (&QCvisible); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10093 QChelp = intern (":help"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10094 staticpro (&QChelp); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10095 QCfilter = intern (":filter"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10096 staticpro (&QCfilter); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10097 QCbutton = intern (":button"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10098 staticpro (&QCbutton); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
10099 QCkeys = intern (":keys"); |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
10100 staticpro (&QCkeys); |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
10101 QCkey_sequence = intern (":key-sequence"); |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
10102 staticpro (&QCkey_sequence); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10103 QCtoggle = intern (":toggle"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10104 staticpro (&QCtoggle); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10105 QCradio = intern (":radio"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
10106 staticpro (&QCradio); |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
10107 |
518 | 10108 Qmode_line = intern ("mode-line"); |
10109 staticpro (&Qmode_line); | |
732 | 10110 Qvertical_line = intern ("vertical-line"); |
10111 staticpro (&Qvertical_line); | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
10112 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
|
10113 staticpro (&Qvertical_scroll_bar); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
10114 Qmenu_bar = intern ("menu-bar"); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
10115 staticpro (&Qmenu_bar); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
10116 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
10117 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
|
10118 staticpro (&Qabove_handle); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
10119 Qhandle = intern ("handle"); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
10120 staticpro (&Qhandle); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
10121 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
|
10122 staticpro (&Qbelow_handle); |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
10123 Qup = intern ("up"); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
10124 staticpro (&Qup); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
10125 Qdown = intern ("down"); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
10126 staticpro (&Qdown); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10127 Qtop = intern ("top"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10128 staticpro (&Qtop); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10129 Qbottom = intern ("bottom"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10130 staticpro (&Qbottom); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10131 Qend_scroll = intern ("end-scroll"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10132 staticpro (&Qend_scroll); |
26788
5e97315b6f11
* keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26480
diff
changeset
|
10133 Qratio = intern ("ratio"); |
5e97315b6f11
* keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26480
diff
changeset
|
10134 staticpro (&Qratio); |
518 | 10135 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
10136 Qevent_kind = intern ("event-kind"); |
518 | 10137 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
|
10138 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
|
10139 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
|
10140 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
|
10141 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
|
10142 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
|
10143 staticpro (&Qmodifier_cache); |
518 | 10144 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
10145 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
|
10146 staticpro (&Qrecompute_lucid_menubar); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
10147 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
|
10148 staticpro (&Qactivate_menubar_hook); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
10149 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
10150 Qpolling_period = intern ("polling-period"); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
10151 staticpro (&Qpolling_period); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
10152 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10153 Qinput_method_function = intern ("input-method-function"); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10154 staticpro (&Qinput_method_function); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10155 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10156 Qinput_method_exit_on_first_char = intern ("input-method-exit-on-first-char"); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10157 staticpro (&Qinput_method_exit_on_first_char); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10158 Qinput_method_use_echo_area = intern ("input-method-use-echo-area"); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10159 staticpro (&Qinput_method_use_echo_area); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10160 |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10161 Fset (Qinput_method_exit_on_first_char, Qnil); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10162 Fset (Qinput_method_use_echo_area, Qnil); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10163 |
30681
eed7b9be8ad3
(syms_of_keyboard): Initialize last_point_position_buffer.
Ken Raeburn <raeburn@raeburn.org>
parents:
30558
diff
changeset
|
10164 last_point_position_buffer = Qnil; |
eed7b9be8ad3
(syms_of_keyboard): Initialize last_point_position_buffer.
Ken Raeburn <raeburn@raeburn.org>
parents:
30558
diff
changeset
|
10165 |
518 | 10166 { |
10167 struct event_head *p; | |
10168 | |
10169 for (p = head_table; | |
10170 p < head_table + (sizeof (head_table) / sizeof (head_table[0])); | |
10171 p++) | |
10172 { | |
10173 *p->var = intern (p->name); | |
10174 staticpro (p->var); | |
10175 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
|
10176 Fput (*p->var, Qevent_symbol_elements, Fcons (*p->var, Qnil)); |
518 | 10177 } |
10178 } | |
10179 | |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
10180 button_down_location = Fmake_vector (make_number (1), Qnil); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
10181 staticpro (&button_down_location); |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
10182 mouse_syms = Fmake_vector (make_number (1), Qnil); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
10183 staticpro (&mouse_syms); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
10184 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
10185 { |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
10186 int i; |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
10187 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
|
10188 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
10189 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
|
10190 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
|
10191 if (modifier_names[i]) |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10192 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
|
10193 staticpro (&modifier_symbols); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
10194 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
10195 |
1262
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
10196 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
|
10197 staticpro (&recent_keys); |
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
10198 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
10199 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
|
10200 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
|
10201 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10202 raw_keybuf = Fmake_vector (make_number (30), Qnil); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10203 staticpro (&raw_keybuf); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10204 |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
10205 Qextended_command_history = intern ("extended-command-history"); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
10206 Fset (Qextended_command_history, Qnil); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
10207 staticpro (&Qextended_command_history); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
10208 |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
10209 kbd_buffer_gcpro = Fmake_vector (make_number (2 * KBD_BUFFER_SIZE), Qnil); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
10210 staticpro (&kbd_buffer_gcpro); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
10211 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
10212 accent_key_syms = Qnil; |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
10213 staticpro (&accent_key_syms); |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
10214 |
518 | 10215 func_key_syms = Qnil; |
10216 staticpro (&func_key_syms); | |
10217 | |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10218 #ifdef WINDOWSNT |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10219 mouse_wheel_syms = Qnil; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10220 staticpro (&mouse_wheel_syms); |
21888
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
10221 |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
10222 drag_n_drop_syms = Qnil; |
6ce89105f98f
(Qdrag_n_drop, drag_n_drop_syms, lispy_drag_n_drop_names): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
21778
diff
changeset
|
10223 staticpro (&drag_n_drop_syms); |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10224 #endif |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10225 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
10226 unread_switch_frame = Qnil; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
10227 staticpro (&unread_switch_frame); |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
10228 |
16229
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
10229 internal_last_event_frame = Qnil; |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
10230 staticpro (&internal_last_event_frame); |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
10231 |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
10232 read_key_sequence_cmd = Qnil; |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
10233 staticpro (&read_key_sequence_cmd); |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
10234 |
23975
b0040d620df9
In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents:
23935
diff
changeset
|
10235 menu_bar_one_keymap_changed_items = Qnil; |
b0040d620df9
In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents:
23935
diff
changeset
|
10236 staticpro (&menu_bar_one_keymap_changed_items); |
b0040d620df9
In each active map, for each menu bar item, use only the first submap.
Richard M. Stallman <rms@gnu.org>
parents:
23935
diff
changeset
|
10237 |
12150
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
10238 defsubr (&Sevent_convert_list); |
518 | 10239 defsubr (&Sread_key_sequence); |
21024 | 10240 defsubr (&Sread_key_sequence_vector); |
518 | 10241 defsubr (&Srecursive_edit); |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
10242 #ifdef HAVE_MOUSE |
518 | 10243 defsubr (&Strack_mouse); |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
10244 #endif |
518 | 10245 defsubr (&Sinput_pending_p); |
10246 defsubr (&Scommand_execute); | |
10247 defsubr (&Srecent_keys); | |
10248 defsubr (&Sthis_command_keys); | |
21024 | 10249 defsubr (&Sthis_command_keys_vector); |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
10250 defsubr (&Sthis_single_command_keys); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10251 defsubr (&Sthis_single_command_raw_keys); |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
10252 defsubr (&Sreset_this_command_lengths); |
23439
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
10253 defsubr (&Sclear_this_command_keys); |
518 | 10254 defsubr (&Ssuspend_emacs); |
10255 defsubr (&Sabort_recursive_edit); | |
10256 defsubr (&Sexit_recursive_edit); | |
10257 defsubr (&Srecursion_depth); | |
10258 defsubr (&Stop_level); | |
10259 defsubr (&Sdiscard_input); | |
10260 defsubr (&Sopen_dribble_file); | |
10261 defsubr (&Sset_input_mode); | |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10262 defsubr (&Scurrent_input_mode); |
518 | 10263 defsubr (&Sexecute_extended_command); |
10264 | |
10265 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
|
10266 "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
|
10267 |
8039
7cc73292df36
(syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents:
7999
diff
changeset
|
10268 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
|
10269 "Last input event that was part of a command."); |
518 | 10270 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
10271 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
|
10272 "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
|
10273 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
|
10274 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
|
10275 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
|
10276 |
518 | 10277 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
|
10278 "Last input event."); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10279 |
8039
7cc73292df36
(syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents:
7999
diff
changeset
|
10280 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
|
10281 "Last input event."); |
518 | 10282 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
10283 DEFVAR_LISP ("unread-command-events", &Vunread_command_events, |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10284 "List of events to be read as the command input.\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10285 These events are processed first, before actual keyboard input."); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10286 Vunread_command_events = Qnil; |
518 | 10287 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10288 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
|
10289 "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
|
10290 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10291 DEFVAR_LISP ("unread-post-input-method-events", &Vunread_post_input_method_events, |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10292 "List of events to be processed as input by input methods.\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10293 These events are processed after `unread-command-events', but\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10294 before actual keyboard input."); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10295 Vunread_post_input_method_events = Qnil; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10296 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10297 DEFVAR_LISP ("unread-input-method-events", &Vunread_input_method_events, |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10298 "List of events to be processed as input by input methods.\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10299 These events are processed after `unread-command-events', but\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10300 before actual keyboard input."); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10301 Vunread_input_method_events = Qnil; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10302 |
518 | 10303 DEFVAR_LISP ("meta-prefix-char", &meta_prefix_char, |
23857 | 10304 "Meta-prefix character code.\n\ |
10305 Meta-foo as command input 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
|
10306 XSETINT (meta_prefix_char, 033); |
518 | 10307 |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
10308 DEFVAR_KBOARD ("last-command", Vlast_command, |
23857 | 10309 "The last command executed.\n\ |
10310 Normally a symbol with a function definition, but can be whatever was found\n\ | |
10311 in the keymap, or whatever the variable `this-command' was set to by that\n\ | |
10312 command.\n\ | |
10060
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
10313 \n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
10314 The value `mode-exit' is special; it means that the previous command\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
10315 read an event that told it to exit, and it did so and unread that event.\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
10316 In other words, the present command is the event that made the previous\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
10317 command exit.\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
10318 \n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
10319 The value `kill-region' is special; it means that the previous command\n\ |
145bf101cccc
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
9977
diff
changeset
|
10320 was a kill command."); |
518 | 10321 |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
10322 DEFVAR_KBOARD ("real-last-command", Vreal_last_command, |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
10323 "Same as `last-command', but never altered by Lisp code."); |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
10324 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10325 DEFVAR_LISP ("this-command", &Vthis_command, |
518 | 10326 "The command now being executed.\n\ |
10327 The command can set this variable; whatever is put here\n\ | |
10328 will be in `last-command' during the following command."); | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10329 Vthis_command = Qnil; |
518 | 10330 |
10331 DEFVAR_INT ("auto-save-interval", &auto_save_interval, | |
25973
d4478190ca18
(auto-save-interval): Fix doc string.
Gerd Moellmann <gerd@gnu.org>
parents:
25768
diff
changeset
|
10332 "*Number of input events between auto-saves.\n\ |
518 | 10333 Zero means disable autosaving due to number of characters typed."); |
10334 auto_save_interval = 300; | |
10335 | |
10336 DEFVAR_LISP ("auto-save-timeout", &Vauto_save_timeout, | |
10337 "*Number of seconds idle time before auto-save.\n\ | |
687
e2b747dd6a6e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
682
diff
changeset
|
10338 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
|
10339 After auto-saving due to this many seconds of idle time,\n\ |
701 | 10340 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
|
10341 XSETFASTINT (Vauto_save_timeout, 30); |
518 | 10342 |
27766
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
10343 DEFVAR_LISP ("echo-keystrokes", &Vecho_keystrokes, |
27769
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
10344 "*Nonzero means echo unfinished commands after this many seconds of pause.\n\ |
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
10345 The value may be integer or floating point."); |
27766
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
10346 Vecho_keystrokes = make_number (1); |
518 | 10347 |
10348 DEFVAR_INT ("polling-period", &polling_period, | |
10349 "*Interval between polling for input during Lisp execution.\n\ | |
10350 The reason for polling is to make C-g work to stop a running program.\n\ | |
10351 Polling is needed only when using X windows and SIGIO does not work.\n\ | |
10352 Polling is automatically disabled in all other cases."); | |
10353 polling_period = 2; | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
10354 |
3993
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
10355 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
|
10356 "*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
|
10357 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
|
10358 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
|
10359 by position only."); |
3994
df443e5f391e
Fix initialization of Vdouble_click_time in syms_of_keyboard.
Jim Blandy <jimb@redhat.com>
parents:
3993
diff
changeset
|
10360 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
|
10361 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
10362 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
|
10363 "*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
|
10364 inhibit_local_menu_bar_menus = 0; |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
10365 |
518 | 10366 DEFVAR_INT ("num-input-keys", &num_input_keys, |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
10367 "Number of complete key sequences read as input so far.\n\ |
16610 | 10368 This includes key sequences read from keyboard macros.\n\ |
10369 The number is effectively the number of interactive command invocations."); | |
518 | 10370 num_input_keys = 0; |
10371 | |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
10372 DEFVAR_INT ("num-nonmacro-input-events", &num_nonmacro_input_events, |
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
10373 "Number of input events read from the keyboard so far.\n\ |
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
10374 This does not include events generated by keyboard macros."); |
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
10375 num_nonmacro_input_events = 0; |
17870
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
10376 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
10377 DEFVAR_LISP ("last-event-frame", &Vlast_event_frame, |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
10378 "The frame in which the most recently read event occurred.\n\ |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
10379 If the last event came from a keyboard macro, this is set to `macro'."); |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
10380 Vlast_event_frame = Qnil; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
10381 |
17870
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
10382 /* This variable is set up in sysdep.c. */ |
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
10383 DEFVAR_LISP ("tty-erase-char", &Vtty_erase_char, |
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
10384 "The ERASE character as set by the user with stty."); |
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
10385 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
10386 DEFVAR_LISP ("help-char", &Vhelp_char, |
518 | 10387 "Character to recognize as meaning Help.\n\ |
10388 When it is read, do `(eval help-form)', and display result if it's a string.\n\ | |
10389 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
|
10390 XSETINT (Vhelp_char, Ctl ('H')); |
518 | 10391 |
12144 | 10392 DEFVAR_LISP ("help-event-list", &Vhelp_event_list, |
10393 "List of input events to recognize as meaning Help.\n\ | |
10394 These work just like the value of `help-char' (see that)."); | |
10395 Vhelp_event_list = Qnil; | |
10396 | |
518 | 10397 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
|
10398 "Form to execute when character `help-char' is read.\n\ |
518 | 10399 If the form returns a string, that string is displayed.\n\ |
10400 If `help-form' is nil, the help char is not recognized."); | |
10401 Vhelp_form = Qnil; | |
10402 | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
10403 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
|
10404 "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
|
10405 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
|
10406 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
|
10407 Vprefix_help_command = Qnil; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
10408 |
518 | 10409 DEFVAR_LISP ("top-level", &Vtop_level, |
10410 "Form to evaluate when Emacs starts up.\n\ | |
10411 Useful to set before you dump a modified Emacs."); | |
10412 Vtop_level = Qnil; | |
10413 | |
10414 DEFVAR_LISP ("keyboard-translate-table", &Vkeyboard_translate_table, | |
13246
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
10415 "Translate table for keyboard input, or nil.\n\ |
518 | 10416 Each character is looked up in this string and the contents used instead.\n\ |
13246
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
10417 The value may be a string, a vector, or a char-table.\n\ |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
10418 If it is a string or vector of length N,\n\ |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
10419 character codes N and up are untranslated.\n\ |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
10420 In a vector or a char-table, an element which is nil means \"no translation\"."); |
518 | 10421 Vkeyboard_translate_table = Qnil; |
10422 | |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
10423 DEFVAR_BOOL ("cannot-suspend", &cannot_suspend, |
23857 | 10424 "Non-nil means to always spawn a subshell instead of suspending.\n\ |
10425 \(Even if the operating system has support for stopping a process.\)"); | |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
10426 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
|
10427 |
518 | 10428 DEFVAR_BOOL ("menu-prompting", &menu_prompting, |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
10429 "Non-nil means prompt with menus when appropriate.\n\ |
518 | 10430 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
|
10431 for elements that have prompt strings.\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
10432 The menu is displayed on the screen\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
10433 if X menus were enabled at configuration\n\ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
10434 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
|
10435 Otherwise, menu prompting uses the echo area."); |
518 | 10436 menu_prompting = 1; |
10437 | |
10438 DEFVAR_LISP ("menu-prompt-more-char", &menu_prompt_more_char, | |
10439 "Character to see next line of menu prompt.\n\ | |
10440 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
|
10441 XSETINT (menu_prompt_more_char, ' '); |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
10442 |
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
10443 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
|
10444 "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
|
10445 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
|
10446 character it reads. For example, after evaluating the expression\n\ |
10602
05a3cfc7a5ba
(syms_of_keyboard): Fix missing backslashes.
Karl Heuer <kwzh@gnu.org>
parents:
10579
diff
changeset
|
10447 (setq extra-keyboard-modifiers ?\\C-x)\n\ |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10448 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
|
10449 \n\ |
10602
05a3cfc7a5ba
(syms_of_keyboard): Fix missing backslashes.
Karl Heuer <kwzh@gnu.org>
parents:
10579
diff
changeset
|
10450 Note that the character ?\\C-@, equivalent to the integer zero, does\n\ |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10451 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
|
10452 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
|
10453 cancels any modification."); |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
10454 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
|
10455 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10456 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
|
10457 "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
|
10458 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
|
10459 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
|
10460 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
|
10461 Vdeactivate_mark = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10462 |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
10463 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
|
10464 "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
|
10465 Vcommand_hook_internal = Qnil; |
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
10466 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10467 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
|
10468 "Normal hook run before each command is executed.\n\ |
23759
eac4b475c2ea
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23459
diff
changeset
|
10469 If an unhandled error happens in running this hook,\n\ |
eac4b475c2ea
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23459
diff
changeset
|
10470 the hook value is set to nil, since otherwise the error\n\ |
eac4b475c2ea
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23459
diff
changeset
|
10471 might happen repeatedly and make Emacs nonfunctional."); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10472 Vpre_command_hook = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10473 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10474 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
|
10475 "Normal hook run after each command is executed.\n\ |
23759
eac4b475c2ea
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23459
diff
changeset
|
10476 If an unhandled error happens in running this hook,\n\ |
eac4b475c2ea
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23459
diff
changeset
|
10477 the hook value is set to nil, since otherwise the error\n\ |
eac4b475c2ea
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
23459
diff
changeset
|
10478 might happen repeatedly and make Emacs nonfunctional."); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10479 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
|
10480 |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10481 DEFVAR_LISP ("post-command-idle-hook", &Vpost_command_idle_hook, |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10482 "Normal hook run after each command is executed, if idle.\n\ |
15045
9b779a05115a
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
14997
diff
changeset
|
10483 Errors running the hook are caught and ignored.\n\ |
9b779a05115a
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
14997
diff
changeset
|
10484 This feature is obsolete; use idle timers instead. See `etc/NEWS'."); |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10485 Vpost_command_idle_hook = Qnil; |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10486 |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10487 DEFVAR_INT ("post-command-idle-delay", &post_command_idle_delay, |
14592 | 10488 "Delay time before running `post-command-idle-hook'.\n\ |
12919
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10489 This is measured in microseconds."); |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10490 post_command_idle_delay = 100000; |
cb9fe3733db5
(Qpost_command_idle_hook, Vpost_command_idle_hook): New vars.
Richard M. Stallman <rms@gnu.org>
parents:
12800
diff
changeset
|
10491 |
16834
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
10492 #if 0 |
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
10493 DEFVAR_LISP ("echo-area-clear-hook", ..., |
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
10494 "Normal hook run when clearing the echo area."); |
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
10495 #endif |
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
10496 Qecho_area_clear_hook = intern ("echo-area-clear-hook"); |
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
10497 XSYMBOL (Qecho_area_clear_hook)->value = Qnil; |
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
10498 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
10499 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
|
10500 "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
|
10501 Vlucid_menu_bar_dirty_flag = Qnil; |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
10502 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
10503 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
|
10504 "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
|
10505 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
|
10506 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
|
10507 |
12264 | 10508 DEFVAR_KBOARD ("overriding-terminal-local-map", |
10509 Voverriding_terminal_local_map, | |
18118
66c0e1ba8da4
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18110
diff
changeset
|
10510 "Per-terminal keymap that overrides all other local keymaps.\n\ |
12264 | 10511 If this variable is non-nil, it is used as a keymap instead of the\n\ |
18118
66c0e1ba8da4
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18110
diff
changeset
|
10512 buffer's local map, and the minor mode keymaps and text property keymaps.\n\ |
66c0e1ba8da4
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18110
diff
changeset
|
10513 This variable is intended to let commands such as `universal-argumemnt'\n\ |
66c0e1ba8da4
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
18110
diff
changeset
|
10514 set up a different keymap for reading the next command."); |
12264 | 10515 |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
10516 DEFVAR_LISP ("overriding-local-map", &Voverriding_local_map, |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
10517 "Keymap that overrides all other local keymaps.\n\ |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
10518 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
|
10519 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
|
10520 Voverriding_local_map = Qnil; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
10521 |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
10522 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
|
10523 "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
|
10524 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
|
10525 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
|
10526 Voverriding_local_map_menu_flag = Qnil; |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
10527 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10528 DEFVAR_LISP ("special-event-map", &Vspecial_event_map, |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10529 "Keymap defining bindings for special events to execute at low level."); |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10530 Vspecial_event_map = Fcons (intern ("keymap"), Qnil); |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10531 |
9881
02cd4dde69e1
(tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents:
9864
diff
changeset
|
10532 DEFVAR_LISP ("track-mouse", &do_mouse_tracking, |
11832
7c2d57ac784f
(syms_of_keyboard): Always define track-mouse.
Karl Heuer <kwzh@gnu.org>
parents:
11777
diff
changeset
|
10533 "*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
|
10534 |
11543
317e5825008b
(Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents:
11540
diff
changeset
|
10535 DEFVAR_KBOARD ("system-key-alist", Vsystem_key_alist, |
6096
443b78042b86
(Vsystem_key_alist): Renamed from Vvendor_key_alist.
Richard M. Stallman <rms@gnu.org>
parents:
6053
diff
changeset
|
10536 "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
|
10537 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
|
10538 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
|
10539 and SYMBOL is its name."); |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
10540 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
10541 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
|
10542 "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
|
10543 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
|
10544 Vdeferred_action_list = Qnil; |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
10545 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
10546 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
|
10547 "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
|
10548 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
|
10549 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
|
10550 Vdeferred_action_function = Qnil; |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10551 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10552 DEFVAR_LISP ("suggest-key-bindings", &Vsuggest_key_bindings, |
22335
124e852c4cdf
(syms_of_keyboard): Doc fix for suggest-key-bindings.
Karl Heuer <kwzh@gnu.org>
parents:
22279
diff
changeset
|
10553 "*Non-nil means show the equivalent key-binding when M-x command has one.\n\ |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10554 The value can be a length of time to show the message for.\n\ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10555 If the value is non-nil and not a number, we wait 2 seconds."); |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10556 Vsuggest_key_bindings = Qt; |
13329
3bd6e6e466f7
(command_loop_1): No direct display if Column Number mode.
Richard M. Stallman <rms@gnu.org>
parents:
13324
diff
changeset
|
10557 |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
10558 DEFVAR_LISP ("timer-list", &Vtimer_list, |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10559 "List of active absolute time timers in order of increasing time"); |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
10560 Vtimer_list = Qnil; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10561 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10562 DEFVAR_LISP ("timer-idle-list", &Vtimer_idle_list, |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10563 "List of active idle-time timers in order of increasing time"); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10564 Vtimer_idle_list = Qnil; |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10565 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10566 DEFVAR_LISP ("input-method-function", &Vinput_method_function, |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10567 "If non-nil, the function that implements the current input method.\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10568 It's called with one argument, a printing character that was just read.\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10569 \(That means a character with code 040...0176.)\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10570 Typically this function uses `read-event' to read additional events.\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10571 When it does so, it should first bind `input-method-function' to nil\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10572 so it will not be called recursively.\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10573 \n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10574 The function should return a list of zero or more events\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10575 to be used as input. If it wants to put back some events\n\ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10576 to be reconsidered, separately, by the input method,\n\ |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10577 it can add them to the beginning of `unread-command-events'.\n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10578 \n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10579 The input method function can find in `input-method-previous-method'\n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10580 the previous echo area message.\n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10581 \n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10582 The input method function should refer to the variables\n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10583 `input-method-use-echo-area' and `input-method-exit-on-first-char'\n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10584 for guidance on what to do."); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10585 Vinput_method_function = Qnil; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10586 |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10587 DEFVAR_LISP ("input-method-previous-message", |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10588 &Vinput_method_previous_message, |
23090
04a848dbb2ed
(input-method-previous-message): Doc fix.
Andreas Schwab <schwab@suse.de>
parents:
23065
diff
changeset
|
10589 "When `input-method-function' is called, hold the previous echo area message.\n\ |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10590 This variable exists because `read-event' clears the echo area\n\ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10591 before running the input method. It is nil if there was no message."); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10592 Vinput_method_previous_message = Qnil; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10593 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10594 DEFVAR_LISP ("show-help-function", &Vshow_help_function, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10595 "If non-nil, the function that implements the display of help.\n\ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10596 It's called with one argument, the help string to display."); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10597 Vshow_help_function = Qnil; |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10598 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10599 DEFVAR_LISP ("disable-point-adjustment", &Vdisable_point_adjustment, |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10600 "If non-nil, suppress point adjustment after executing a command.\n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10601 \n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10602 After a command is executed, if point is moved into a region that has\n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10603 special properties (e.g. composition, display), we adjust point to\n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10604 the boundary of the region. But, several special commands sets this\n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10605 variable to non-nil, then we suppress the point adjustment.\n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10606 \n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10607 This variable is set to nil before reading a command, and is checked\n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10608 just after executing the command"); |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10609 Vdisable_point_adjustment = Qnil; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10610 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10611 DEFVAR_LISP ("global-disable-point-adjustment", |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10612 &Vglobal_disable_point_adjustment, |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10613 "*If non-nil, always suppress point adjustment.\n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10614 \n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10615 The default value is nil, in which case, point adjustment are\n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10616 suppressed only after special commands that set\n\ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10617 `disable-point-adjustment' (which see) to non-nil."); |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
10618 Vglobal_disable_point_adjustment = Qnil; |
518 | 10619 } |
10620 | |
21514 | 10621 void |
518 | 10622 keys_of_keyboard () |
10623 { | |
10624 initial_define_key (global_map, Ctl ('Z'), "suspend-emacs"); | |
10625 initial_define_key (control_x_map, Ctl ('Z'), "suspend-emacs"); | |
10626 initial_define_key (meta_map, Ctl ('C'), "exit-recursive-edit"); | |
10627 initial_define_key (global_map, Ctl (']'), "abort-recursive-edit"); | |
10628 initial_define_key (meta_map, 'x', "execute-extended-command"); | |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10629 |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10630 initial_define_lispy_key (Vspecial_event_map, "delete-frame", |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10631 "handle-delete-frame"); |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10632 initial_define_lispy_key (Vspecial_event_map, "iconify-frame", |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10633 "ignore-event"); |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10634 initial_define_lispy_key (Vspecial_event_map, "make-frame-visible", |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
10635 "ignore-event"); |
518 | 10636 } |