Mercurial > emacs
annotate src/keyboard.c @ 76044:bedbe56c20fc
(widget-default-create): Undo 2007-02-04 change.
(editable-field): Document need to put some text before the %v
escape in :format string.
author | Kim F. Storm <storm@cua.dk> |
---|---|
date | Thu, 22 Feb 2007 00:32:51 +0000 |
parents | c686b42fabf5 |
children | eb5c346ae042 b8d9a391daf3 f83d17e1ace6 |
rev | line source |
---|---|
518 | 1 /* Keyboard and mouse input; editor command loop. |
64770
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64614
diff
changeset
|
2 Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, |
a0d1312ede66
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64614
diff
changeset
|
3 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, |
75348 | 4 2005, 2006, 2007 Free Software Foundation, Inc. |
518 | 5 |
6 This file is part of GNU Emacs. | |
7 | |
8 GNU Emacs is free software; you can redistribute it and/or modify | |
9 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
|
10 the Free Software Foundation; either version 2, or (at your option) |
518 | 11 any later version. |
12 | |
13 GNU Emacs is distributed in the hope that it will be useful, | |
14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 GNU General Public License for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
19 along with GNU Emacs; see the file COPYING. If not, write to | |
64084 | 20 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
21 Boston, MA 02110-1301, USA. */ | |
518 | 22 |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25973
diff
changeset
|
23 #include <config.h> |
518 | 24 #include <signal.h> |
25 #include <stdio.h> | |
26 #include "termchar.h" | |
27 #include "termopts.h" | |
28 #include "lisp.h" | |
29 #include "termhooks.h" | |
30 #include "macros.h" | |
31096
c32ed4f23f34
Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents:
31013
diff
changeset
|
31 #include "keyboard.h" |
765 | 32 #include "frame.h" |
518 | 33 #include "window.h" |
34 #include "commands.h" | |
35 #include "buffer.h" | |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
36 #include "charset.h" |
518 | 37 #include "disptab.h" |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
38 #include "dispextern.h" |
21024 | 39 #include "syntax.h" |
2061 | 40 #include "intervals.h" |
39692
e479fa559f2e
(map_prompt): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39684
diff
changeset
|
41 #include "keymap.h" |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
42 #include "blockinput.h" |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
43 #include "puresize.h" |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
44 #include "systime.h" |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
45 #include "atimer.h" |
518 | 46 #include <setjmp.h> |
47 #include <errno.h> | |
48 | |
58818
f8cddae7d959
* gtkutil.c: Include signal.h and syssignal.h.
Jan Djärv <jan.h.d@swipnet.se>
parents:
58634
diff
changeset
|
49 #ifdef HAVE_GTK_AND_PTHREAD |
f8cddae7d959
* gtkutil.c: Include signal.h and syssignal.h.
Jan Djärv <jan.h.d@swipnet.se>
parents:
58634
diff
changeset
|
50 #include <pthread.h> |
f8cddae7d959
* gtkutil.c: Include signal.h and syssignal.h.
Jan Djärv <jan.h.d@swipnet.se>
parents:
58634
diff
changeset
|
51 #endif |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
52 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
53 #include "msdos.h" |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
54 #include <time.h> |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
55 #else /* not MSDOS */ |
562 | 56 #ifndef VMS |
57 #include <sys/ioctl.h> | |
58 #endif | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
59 #endif /* not MSDOS */ |
562 | 60 |
61 #include "syssignal.h" | |
1046
d4b1e5db2b2a
* keyboard.c: Include "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1008
diff
changeset
|
62 #include "systty.h" |
518 | 63 |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
64 #include <sys/types.h> |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
65 #ifdef HAVE_UNISTD_H |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
66 #include <unistd.h> |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
67 #endif |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
68 |
60027
8f9cab9fa533
If HAVE_FCNTL_H include fcntl.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
59580
diff
changeset
|
69 #ifdef HAVE_FCNTL_H |
8f9cab9fa533
If HAVE_FCNTL_H include fcntl.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
59580
diff
changeset
|
70 #include <fcntl.h> |
8f9cab9fa533
If HAVE_FCNTL_H include fcntl.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
59580
diff
changeset
|
71 #endif |
8f9cab9fa533
If HAVE_FCNTL_H include fcntl.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
59580
diff
changeset
|
72 |
7727
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
73 /* 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
|
74 #ifdef HAVE_X_WINDOWS |
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
75 #include "xterm.h" |
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
76 #endif |
741ba17eeb20
[HAVE_X_WINDOWS]: Include xterm.h.
Richard M. Stallman <rms@gnu.org>
parents:
7650
diff
changeset
|
77 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
78 #ifdef HAVE_NTGUI |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
79 #include "w32term.h" |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
80 #endif /* HAVE_NTGUI */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
81 |
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents:
44561
diff
changeset
|
82 #ifdef MAC_OS |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
32476
diff
changeset
|
83 #include "macterm.h" |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
32476
diff
changeset
|
84 #endif |
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
32476
diff
changeset
|
85 |
31096
c32ed4f23f34
Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents:
31013
diff
changeset
|
86 #ifndef USE_CRT_DLL |
518 | 87 extern int errno; |
31096
c32ed4f23f34
Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents:
31013
diff
changeset
|
88 #endif |
518 | 89 |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
90 /* 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
|
91 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
92 /* Non-zero if interrupt input is blocked right now. */ |
75407
205d5c1af245
(interrupt_input_blocked): Declare volatile.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
75348
diff
changeset
|
93 volatile 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
|
94 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
95 /* 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
|
96 during the current critical section. */ |
2481
a7a0f89c1f64
* keyboard.c (interrupt_input_blocked, interrupt_input_pending):
Jim Blandy <jimb@redhat.com>
parents:
2439
diff
changeset
|
97 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
|
98 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
99 |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
100 /* File descriptor to use for input. */ |
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
101 extern int input_fd; |
518 | 102 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
103 #ifdef HAVE_WINDOW_SYSTEM |
518 | 104 /* Make all keyboard buffers much bigger when using X windows. */ |
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents:
44561
diff
changeset
|
105 #ifdef MAC_OS8 |
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents:
44561
diff
changeset
|
106 /* But not too big (local data > 32K error) if on Mac OS Classic. */ |
25525
79574d91e925
[macintosh]: Set KBD_BUFFER_SIZE to a smaller value
Richard M. Stallman <rms@gnu.org>
parents:
25374
diff
changeset
|
107 #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
|
108 #else |
518 | 109 #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
|
110 #endif |
518 | 111 #else /* No X-windows, character input */ |
38456
bd16bae990a7
(KBD_BUFFER_SIZE) [!HAVE_WINDOW_SYSTEM]: Increase
Gerd Moellmann <gerd@gnu.org>
parents:
38195
diff
changeset
|
112 #define KBD_BUFFER_SIZE 4096 |
518 | 113 #endif /* No X-windows */ |
114 | |
38602 | 115 #define abs(x) ((x) >= 0 ? (x) : -(x)) |
116 | |
518 | 117 /* Following definition copied from eval.c */ |
118 | |
119 struct backtrace | |
120 { | |
121 struct backtrace *next; | |
122 Lisp_Object *function; | |
123 Lisp_Object *args; /* Points to vector of args. */ | |
124 int nargs; /* length of vector. If nargs is UNEVALLED, | |
125 args points to slot holding list of | |
126 unevalled args */ | |
127 char evalargs; | |
55721
b0b446f1087b
(struct backtrace): Add debug_on_exit member.
Kim F. Storm <storm@cua.dk>
parents:
55659
diff
changeset
|
128 /* Nonzero means call value of debugger when done with this operation. */ |
b0b446f1087b
(struct backtrace): Add debug_on_exit member.
Kim F. Storm <storm@cua.dk>
parents:
55659
diff
changeset
|
129 char debug_on_exit; |
518 | 130 }; |
131 | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
132 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
133 KBOARD *initial_kboard; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
134 KBOARD *current_kboard; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
135 KBOARD *all_kboards; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
136 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
|
137 #else |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
138 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
|
139 #endif |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
140 |
518 | 141 /* Non-nil disable property on a command means |
56624
05bc08d74392
Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56609
diff
changeset
|
142 do not execute it; call disabled-command-function's value instead. */ |
05bc08d74392
Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56609
diff
changeset
|
143 Lisp_Object Qdisabled, Qdisabled_command_function; |
518 | 144 |
145 #define NUM_RECENT_KEYS (100) | |
146 int recent_keys_index; /* Index for storing next element into recent_keys */ | |
147 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
|
148 Lisp_Object recent_keys; /* A vector, holding the last 100 keystrokes */ |
518 | 149 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
150 /* 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
|
151 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
|
152 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
|
153 actually mean something. |
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
154 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
|
155 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
|
156 int this_command_key_count; |
518 | 157 |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
158 /* 1 after calling Freset_this_command_lengths. |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
159 Usually it is 0. */ |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
160 int this_command_key_count_reset; |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
161 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
162 /* 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
|
163 by read_key_sequence. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
164 Lisp_Object raw_keybuf; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
165 int raw_keybuf_count; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
166 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
167 #define GROW_RAW_KEYBUF \ |
41824
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
168 if (raw_keybuf_count == XVECTOR (raw_keybuf)->size) \ |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
169 { \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
170 int newsize = 2 * XVECTOR (raw_keybuf)->size; \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
171 Lisp_Object new; \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
172 new = Fmake_vector (make_number (newsize), Qnil); \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
173 bcopy (XVECTOR (raw_keybuf)->contents, XVECTOR (new)->contents, \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
174 raw_keybuf_count * sizeof (Lisp_Object)); \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
175 raw_keybuf = new; \ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
176 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
177 |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
178 /* Number of elements of this_command_keys |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
179 that precede this key sequence. */ |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
180 int this_single_command_key_start; |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
181 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
182 /* 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
|
183 before this command was read. */ |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
184 static int before_command_key_count; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
185 static int before_command_echo_length; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
186 |
518 | 187 extern int minbuf_level; |
188 | |
20496
b2536e1685e9
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
20493
diff
changeset
|
189 extern int message_enable_multibyte; |
b2536e1685e9
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
20493
diff
changeset
|
190 |
518 | 191 extern struct backtrace *backtrace_list; |
192 | |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
193 /* 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
|
194 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
|
195 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
196 Lisp_Object Vshow_help_function; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
197 |
38751
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
198 /* If a string, the message displayed before displaying a help-echo |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
199 in the echo area. */ |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
200 |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
201 Lisp_Object Vpre_help_message; |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
202 |
518 | 203 /* Nonzero means do menu prompting. */ |
38751
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
204 |
518 | 205 static int menu_prompting; |
206 | |
207 /* Character to see next line of menu prompt. */ | |
38751
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
208 |
518 | 209 static Lisp_Object menu_prompt_more_char; |
210 | |
211 /* For longjmp to where kbd input is being done. */ | |
38751
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
212 |
518 | 213 static jmp_buf getcjmp; |
214 | |
215 /* True while doing kbd input. */ | |
216 int waiting_for_input; | |
217 | |
218 /* 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
|
219 |
37189
90b4f51bd28b
(echoing, echo_message_buffer): Make externally
Gerd Moellmann <gerd@gnu.org>
parents:
36826
diff
changeset
|
220 int echoing; |
518 | 221 |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
222 /* 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
|
223 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
|
224 |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
225 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
|
226 |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
227 /* 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
|
228 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
|
229 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
|
230 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
|
231 |
39452
68c925e471a4
(echo_kboard): Make externally visible.
Gerd Moellmann <gerd@gnu.org>
parents:
39436
diff
changeset
|
232 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
|
233 |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
234 /* 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
|
235 cancel_echoing. */ |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
236 |
37189
90b4f51bd28b
(echoing, echo_message_buffer): Make externally
Gerd Moellmann <gerd@gnu.org>
parents:
36826
diff
changeset
|
237 Lisp_Object echo_message_buffer; |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
238 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
239 /* 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
|
240 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
|
241 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
242 /* Nonzero means C-g should cause immediate error-signal. */ |
518 | 243 int immediate_quit; |
244 | |
71947
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
245 /* The user's hook function for outputting an error message. */ |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
246 Lisp_Object Vcommand_error_function; |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
247 |
17870
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
248 /* The user's ERASE setting. */ |
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
249 Lisp_Object Vtty_erase_char; |
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
250 |
518 | 251 /* 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
|
252 Lisp_Object Vhelp_char; |
518 | 253 |
12144 | 254 /* List of other event types to recognize as meaning "help". */ |
255 Lisp_Object Vhelp_event_list; | |
256 | |
518 | 257 /* Form to execute when help char is typed. */ |
258 Lisp_Object Vhelp_form; | |
259 | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
260 /* 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
|
261 Lisp_Object Vprefix_help_command; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
262 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
263 /* 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
|
264 Lisp_Object Vmenu_bar_final_items; |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
265 |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
266 /* 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
|
267 any M-x command that has one. |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
268 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
|
269 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
|
270 Lisp_Object Vsuggest_key_bindings; |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
271 |
33724
b04964da2e33
(Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents:
33445
diff
changeset
|
272 /* How long to display an echo-area message when the minibuffer is active. |
b04964da2e33
(Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents:
33445
diff
changeset
|
273 If the value is not a number, such messages don't time out. */ |
b04964da2e33
(Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents:
33445
diff
changeset
|
274 Lisp_Object Vminibuffer_message_timeout; |
b04964da2e33
(Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents:
33445
diff
changeset
|
275 |
518 | 276 /* Character that causes a quit. Normally C-g. |
277 | |
278 If we are running on an ordinary terminal, this must be an ordinary | |
279 ASCII char, since we want to make it our interrupt character. | |
280 | |
281 If we are not running on an ordinary terminal, it still needs to be | |
282 an ordinary ASCII char. This character needs to be recognized in | |
283 the input interrupt handler. At this point, the keystroke is | |
284 represented as a struct input_event, while the desired quit | |
285 character is specified as a lispy event. The mapping from struct | |
286 input_events to lispy events cannot run in an interrupt handler, | |
287 and the reverse mapping is difficult for anything but ASCII | |
288 keystrokes. | |
289 | |
290 FOR THESE ELABORATE AND UNSATISFYING REASONS, quit_char must be an | |
291 ASCII character. */ | |
292 int quit_char; | |
293 | |
294 extern Lisp_Object current_global_map; | |
295 extern int minibuf_level; | |
296 | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
297 /* 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
|
298 Lisp_Object Voverriding_local_map; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
299 |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
300 /* 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
|
301 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
|
302 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
303 /* Keymap that defines special misc events that should |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
304 be processed immediately at a low level. */ |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
305 Lisp_Object Vspecial_event_map; |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
306 |
518 | 307 /* Current depth in recursive edits. */ |
308 int command_loop_level; | |
309 | |
310 /* Total number of times command_loop has read a key sequence. */ | |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43496
diff
changeset
|
311 EMACS_INT num_input_keys; |
518 | 312 |
313 /* Last input character read as a command. */ | |
314 Lisp_Object last_command_char; | |
315 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
316 /* 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
|
317 reached by the mouse. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
318 Lisp_Object last_nonmenu_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
319 |
518 | 320 /* Last input character read for any purpose. */ |
321 Lisp_Object last_input_char; | |
322 | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
323 /* 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
|
324 Lisp_Object Vunread_command_events; |
518 | 325 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
326 /* 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
|
327 including input method processing. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
328 Lisp_Object Vunread_input_method_events; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
329 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
330 /* 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
|
331 but NOT including input method processing. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
332 Lisp_Object Vunread_post_input_method_events; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
333 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
334 /* If not -1, an event to be read as subsequent command input. */ |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43496
diff
changeset
|
335 EMACS_INT unread_command_char; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
336 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
337 /* 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
|
338 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
|
339 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
|
340 |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
341 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
|
342 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
|
343 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
|
344 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
|
345 |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
346 /* A mask of extra modifier bits to put into every keyboard char. */ |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43496
diff
changeset
|
347 EMACS_INT extra_keyboard_modifiers; |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
348 |
518 | 349 /* Char to use as prefix when a meta character is typed in. |
350 This is bound on entry to minibuffer in case ESC is changed there. */ | |
351 | |
352 Lisp_Object meta_prefix_char; | |
353 | |
354 /* Last size recorded for a current buffer which is not a minibuffer. */ | |
355 static int last_non_minibuf_size; | |
356 | |
687
e2b747dd6a6e
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
682
diff
changeset
|
357 /* Number of idle seconds before an auto-save and garbage collection. */ |
518 | 358 static Lisp_Object Vauto_save_timeout; |
359 | |
360 /* Total number of times read_char has returned. */ | |
17890 | 361 int num_input_events; |
518 | 362 |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
363 /* Total number of times read_char has returned, outside of macros. */ |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43496
diff
changeset
|
364 EMACS_INT num_nonmacro_input_events; |
1104
f3a7122a68e1
(num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
1097
diff
changeset
|
365 |
518 | 366 /* Auto-save automatically when this many characters have been typed |
367 since the last time. */ | |
368 | |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43496
diff
changeset
|
369 static EMACS_INT auto_save_interval; |
518 | 370 |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
371 /* Value of num_nonmacro_input_events as of last auto save. */ |
518 | 372 |
373 int last_auto_save; | |
374 | |
375 /* 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
|
376 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
|
377 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
|
378 Lisp_Object Vthis_command; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
379 |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
380 /* 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
|
381 Lisp_Object real_this_command; |
518 | 382 |
43154
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
383 /* If the lookup of the command returns a binding, the original |
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
384 command is stored in this-original-command. It is nil otherwise. */ |
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
385 Lisp_Object Vthis_original_command; |
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
386 |
67820
a9cbddeec059
(last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
67664
diff
changeset
|
387 /* The value of point when the last command was started. */ |
6178
ad3864a4e0bc
(command_loop_1): Set last_point_position to the value of point.
Karl Heuer <kwzh@gnu.org>
parents:
6159
diff
changeset
|
388 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
|
389 |
7345
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
390 /* 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
|
391 Lisp_Object last_point_position_buffer; |
c107ec7641ec
(last_point_position_buffer): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7307
diff
changeset
|
392 |
67820
a9cbddeec059
(last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
67664
diff
changeset
|
393 /* The window that was selected when the last command was started. */ |
a9cbddeec059
(last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
67664
diff
changeset
|
394 Lisp_Object last_point_position_window; |
a9cbddeec059
(last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
67664
diff
changeset
|
395 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
396 /* 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
|
397 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
|
398 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
|
399 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
|
400 generated by the next character. */ |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
401 Lisp_Object internal_last_event_frame; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
402 |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
403 /* 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
|
404 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
|
405 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
|
406 Lisp_Object Vlast_event_frame; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
407 |
708 | 408 /* The timestamp of the last input event we received from the X server. |
409 X Windows wants this for selection ownership. */ | |
518 | 410 unsigned long last_event_timestamp; |
411 | |
412 Lisp_Object Qself_insert_command; | |
413 Lisp_Object Qforward_char; | |
414 Lisp_Object Qbackward_char; | |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
415 Lisp_Object Qundefined; |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
416 Lisp_Object Qtimer_event_handler; |
518 | 417 |
418 /* read_key_sequence stores here the command definition of the | |
419 key sequence that it reads. */ | |
420 Lisp_Object read_key_sequence_cmd; | |
421 | |
27766
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
422 /* Echo unfinished commands after this many seconds of pause. */ |
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
423 Lisp_Object Vecho_keystrokes; |
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
424 |
518 | 425 /* Form to evaluate (if non-nil) when Emacs is started. */ |
426 Lisp_Object Vtop_level; | |
427 | |
48229
5d4678fa4feb
(command_loop_1): Apply Vtranslation_table_for_input
Dave Love <fx@gnu.org>
parents:
48146
diff
changeset
|
428 /* User-supplied table to translate input characters. */ |
518 | 429 Lisp_Object Vkeyboard_translate_table; |
430 | |
431 /* Keymap mapping ASCII function key sequences onto their preferred forms. */ | |
432 extern Lisp_Object Vfunction_key_map; | |
433 | |
12712
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
434 /* 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
|
435 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
|
436 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
|
437 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
438 /* 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
|
439 Lisp_Object Vinput_method_function; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
440 Lisp_Object Qinput_method_function; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
441 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
442 /* When we call Vinput_method_function, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
443 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
|
444 Lisp_Object Vinput_method_previous_message; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
445 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
446 /* 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
|
447 Lisp_Object Vdeactivate_mark; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
448 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
449 /* 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
|
450 |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
451 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
|
452 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
|
453 |
40733
2b78c1af4afa
(echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
454 Lisp_Object Qecho_area_clear_hook; |
16834
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
455 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
456 /* 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
|
457 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
|
458 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
|
459 Lisp_Object Qcommand_hook_internal, Vcommand_hook_internal; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
460 |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
461 /* 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
|
462 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
|
463 Lisp_Object Vdeferred_action_list; |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
464 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
465 /* 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
|
466 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
|
467 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
|
468 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
469 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
|
470 Lisp_Object Qinput_method_use_echo_area; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
471 |
518 | 472 /* File in which we write all commands we read. */ |
473 FILE *dribble; | |
474 | |
475 /* Nonzero if input is available. */ | |
476 int input_pending; | |
477 | |
2690
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
478 /* 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
|
479 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
|
480 |
518 | 481 int meta_key; |
482 | |
483 extern char *pending_malloc_warning; | |
484 | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
485 /* Circular buffer for pre-read keyboard input. */ |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
486 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
487 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
|
488 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
489 /* 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
|
490 If kbd_fetch_ptr == kbd_store_ptr, the buffer is empty. |
42707
8d5458375774
(read_key_sequence): Remove unused variable `extra_maps'.
Pavel Janík <Pavel@Janik.cz>
parents:
42499
diff
changeset
|
491 This may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
492 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
|
493 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
|
494 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
495 /* 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
|
496 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
|
497 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
|
498 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
|
499 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
500 /* 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
|
501 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
|
502 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
|
503 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
|
504 |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
505 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
|
506 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
|
507 at inopportune times. */ |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
508 |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
509 /* 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
|
510 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
|
511 Otherwise, mouse motion is ignored. */ |
34518
eedb5dec0918
(do_mouse_tracking): Make externally visible.
Gerd Moellmann <gerd@gnu.org>
parents:
34514
diff
changeset
|
512 Lisp_Object do_mouse_tracking; |
518 | 513 |
514 /* Symbols to head events. */ | |
515 Lisp_Object Qmouse_movement; | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
516 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
|
517 Lisp_Object Qswitch_frame; |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
518 Lisp_Object Qdelete_frame; |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
519 Lisp_Object Qiconify_frame; |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
520 Lisp_Object Qmake_frame_visible; |
44300
21286349d285
(Qselect_window): New symbol.
Pavel Janík <Pavel@Janik.cz>
parents:
44135
diff
changeset
|
521 Lisp_Object Qselect_window; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
522 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
|
523 |
61163
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
524 #ifdef HAVE_MOUSE |
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
525 Lisp_Object Qmouse_fixup_help_message; |
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
526 #endif |
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
527 |
518 | 528 /* Symbols to denote kinds of events. */ |
529 Lisp_Object Qfunction_key; | |
530 Lisp_Object Qmouse_click; | |
61499
f914c4fa9610
(Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61496
diff
changeset
|
531 #if defined (WINDOWSNT) || defined (MAC_OS) |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
532 Lisp_Object Qlanguage_change; |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
533 #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
|
534 Lisp_Object Qdrag_n_drop; |
43814
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
535 Lisp_Object Qsave_session; |
67455
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
536 #ifdef MAC_OS |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
537 Lisp_Object Qmac_apple_event; |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
538 #endif |
43814
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
539 |
518 | 540 /* Lisp_Object Qmouse_movement; - also an event header */ |
541 | |
542 /* Properties of event headers. */ | |
543 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
|
544 Lisp_Object Qevent_symbol_elements; |
518 | 545 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
546 /* menu item parts */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
547 Lisp_Object Qmenu_alias; |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
548 Lisp_Object Qmenu_enable; |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
549 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
|
550 Lisp_Object QCbutton, QCtoggle, QCradio; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
551 extern Lisp_Object Vdefine_key_rebound_commands; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
552 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
|
553 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
554 /* 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
|
555 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
|
556 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
|
557 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
|
558 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
|
559 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
|
560 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
561 /* 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
|
562 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
|
563 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
|
564 apply_modifiers. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
565 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
|
566 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
567 /* Symbols to use for parts of windows. */ |
518 | 568 Lisp_Object Qmode_line; |
732 | 569 Lisp_Object Qvertical_line; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
570 Lisp_Object Qvertical_scroll_bar; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
571 Lisp_Object Qmenu_bar; |
44534
733b2505ca59
(Qleft_margin, Qright_margin): Declare.
Gerd Moellmann <gerd@gnu.org>
parents:
44527
diff
changeset
|
572 extern Lisp_Object Qleft_margin, Qright_margin; |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
573 extern Lisp_Object Qleft_fringe, Qright_fringe; |
53330
2dfa97148836
(Qimage): Remove extern (now in lisp.h).
Kim F. Storm <storm@cua.dk>
parents:
53178
diff
changeset
|
574 extern Lisp_Object QCmap; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
575 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
576 Lisp_Object recursive_edit_unwind (), command_loop (); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
577 Lisp_Object Fthis_command_keys (); |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
578 Lisp_Object Qextended_command_history; |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
579 EMACS_TIME timer_check (); |
518 | 580 |
48229
5d4678fa4feb
(command_loop_1): Apply Vtranslation_table_for_input
Dave Love <fx@gnu.org>
parents:
48146
diff
changeset
|
581 extern Lisp_Object Vhistory_length, Vtranslation_table_for_input; |
21726
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
582 |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
583 extern char *x_get_keysym_name (); |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
584 |
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
|
585 static void record_menu_key (); |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
586 static int echo_length (); |
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
|
587 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
588 Lisp_Object Qpolling_period; |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
589 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
590 /* 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
|
591 Lisp_Object Vtimer_list; |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
592 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
593 /* 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
|
594 Lisp_Object Vtimer_idle_list; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
595 |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
596 /* 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
|
597 int timers_run; |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
598 |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
599 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
|
600 |
648 | 601 /* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt |
602 happens. */ | |
603 EMACS_TIME *input_available_clear_time; | |
518 | 604 |
605 /* Nonzero means use SIGIO interrupts; zero means use CBREAK mode. | |
606 Default is 1 if INTERRUPT_INPUT is defined. */ | |
607 int interrupt_input; | |
608 | |
609 /* Nonzero while interrupts are temporarily deferred during redisplay. */ | |
610 int interrupts_deferred; | |
611 | |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
612 /* Nonzero means use ^S/^Q for flow control. */ |
518 | 613 int flow_control; |
614 | |
615 /* Allow m- file to inhibit use of FIONREAD. */ | |
616 #ifdef BROKEN_FIONREAD | |
617 #undef FIONREAD | |
618 #endif | |
619 | |
620 /* We are unable to use interrupts if FIONREAD is not available, | |
621 so flush SIGIO so we won't try. */ | |
58634
95d38c47c806
* keyboard.c: Don't undef SIGIO
Steven Tamm <steventamm@mac.com>
parents:
58519
diff
changeset
|
622 #if !defined (FIONREAD) |
518 | 623 #ifdef SIGIO |
624 #undef SIGIO | |
625 #endif | |
626 #endif | |
627 | |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
628 /* 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
|
629 to detect C-g. It isn't actually used when doing interrupt input. */ |
46798 | 630 #if defined(HAVE_WINDOW_SYSTEM) && !defined(USE_ASYNC_EVENTS) |
518 | 631 #define POLL_FOR_INPUT |
632 #endif | |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
633 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
634 /* 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
|
635 has specific properties (e.g. composition, display), we adjust |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
636 point to the boundary of the region. But, if a command sets this |
44135 | 637 variable to non-nil, we suppress this point adjustment. This |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
638 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
|
639 |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
640 Lisp_Object Vdisable_point_adjustment; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
641 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
642 /* If non-nil, always disable point adjustment. */ |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
643 |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
644 Lisp_Object Vglobal_disable_point_adjustment; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
645 |
38195
7255d1f70b82
(read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents:
37742
diff
changeset
|
646 /* The time when Emacs started being idle. */ |
7255d1f70b82
(read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents:
37742
diff
changeset
|
647 |
7255d1f70b82
(read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents:
37742
diff
changeset
|
648 static EMACS_TIME timer_idleness_start_time; |
7255d1f70b82
(read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents:
37742
diff
changeset
|
649 |
46109
60d71404b887
(timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
46077
diff
changeset
|
650 /* After Emacs stops being idle, this saves the last value |
60d71404b887
(timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
46077
diff
changeset
|
651 of timer_idleness_start_time from when it was idle. */ |
60d71404b887
(timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
46077
diff
changeset
|
652 |
60d71404b887
(timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
46077
diff
changeset
|
653 static EMACS_TIME timer_last_idleness_start_time; |
60d71404b887
(timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
46077
diff
changeset
|
654 |
68792
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
655 /* If non-nil, events produced by disabled menu items and tool-bar |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
656 buttons are not ignored. Help functions bind this to allow help on |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
657 those items and buttons. */ |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
658 Lisp_Object Venable_disabled_menus_and_buttons; |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
659 |
518 | 660 |
661 /* Global variable declarations. */ | |
662 | |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
663 /* Flags for readable_events. */ |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
664 #define READABLE_EVENTS_DO_TIMERS_NOW (1 << 0) |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
665 #define READABLE_EVENTS_FILTER_EVENTS (1 << 1) |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
666 #define READABLE_EVENTS_IGNORE_SQUEEZABLES (1 << 2) |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
667 |
518 | 668 /* Function for init_keyboard to call with no args (if nonzero). */ |
669 void (*keyboard_init_hook) (); | |
670 | |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
671 static int read_avail_input P_ ((int)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
672 static void get_input_pending P_ ((int *, int)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
673 static int readable_events P_ ((int)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
674 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
|
675 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
|
676 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
|
677 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
|
678 Lisp_Object *)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
679 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
|
680 #ifdef HAVE_MOUSE |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
681 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
|
682 enum scroll_bar_part, |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
683 Lisp_Object, Lisp_Object, |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
684 unsigned long)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
685 #endif |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
686 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
|
687 Lisp_Object, char **, |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
688 Lisp_Object *, unsigned)); |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
689 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
|
690 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
|
691 static int parse_solitary_modifier (); |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
692 static void save_getcjmp P_ ((jmp_buf)); |
21514 | 693 static void save_getcjmp (); |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
694 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
|
695 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
|
696 static void clear_event P_ ((struct input_event *)); |
39338
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
697 static void any_kboard_state P_ ((void)); |
48508
2774b99c3ec2
(interrupt_signal): Provide forward declaration.
Dave Love <fx@gnu.org>
parents:
48349
diff
changeset
|
698 static SIGTYPE interrupt_signal P_ ((int signalnum)); |
57410
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
699 static void timer_start_idle P_ ((void)); |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
700 static void timer_stop_idle P_ ((void)); |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
701 static void timer_resume_idle P_ ((void)); |
74611
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
702 static SIGTYPE handle_user_signal P_ ((int)); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
703 static char *find_user_signal_name P_ ((int)); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
704 static int store_user_signal_events P_ ((void)); |
518 | 705 |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
706 /* 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
|
707 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
|
708 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
|
709 |
56173
8715315bd4ab
(command_loop_1): Handle values `only' and `identity' for Vtransient_mark_mode.
Richard M. Stallman <rms@gnu.org>
parents:
56093
diff
changeset
|
710 extern Lisp_Object Qidentity, Qonly; |
8715315bd4ab
(command_loop_1): Handle values `only' and `identity' for Vtransient_mark_mode.
Richard M. Stallman <rms@gnu.org>
parents:
56093
diff
changeset
|
711 |
518 | 712 /* Install the string STR as the beginning of the string of echoing, |
713 so that it serves as a prompt for the next character. | |
714 Also start echoing. */ | |
715 | |
21514 | 716 void |
518 | 717 echo_prompt (str) |
34544
24bcec64720c
(echo_prompt): Argument type changed to Lisp_Object.
Kenichi Handa <handa@m17n.org>
parents:
34518
diff
changeset
|
718 Lisp_Object str; |
24bcec64720c
(echo_prompt): Argument type changed to Lisp_Object.
Kenichi Handa <handa@m17n.org>
parents:
34518
diff
changeset
|
719 { |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
720 current_kboard->echo_string = str; |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
721 current_kboard->echo_after_prompt = SCHARS (str); |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
722 echo_now (); |
518 | 723 } |
724 | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
725 /* Add C to the echo string, if echoing is going on. |
518 | 726 C can be a character, which is printed prettily ("M-C-x" and all that |
727 jazz), or a symbol, whose name is printed. */ | |
728 | |
21514 | 729 void |
518 | 730 echo_char (c) |
731 Lisp_Object c; | |
732 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
733 if (current_kboard->immediate_echo) |
518 | 734 { |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
735 int size = KEY_DESCRIPTION_SIZE + 100; |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
736 char *buffer = (char *) alloca (size); |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
737 char *ptr = buffer; |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
738 Lisp_Object echo_string; |
518 | 739 |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
740 echo_string = current_kboard->echo_string; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
741 |
518 | 742 /* 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
|
743 c = EVENT_HEAD (c); |
518 | 744 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
745 if (INTEGERP (c)) |
518 | 746 { |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
747 ptr = push_key_description (XINT (c), ptr, 1); |
518 | 748 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
749 else if (SYMBOLP (c)) |
518 | 750 { |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
751 Lisp_Object name = SYMBOL_NAME (c); |
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
752 int nbytes = SBYTES (name); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
753 |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
754 if (size - (ptr - buffer) < nbytes) |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
755 { |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
756 int offset = ptr - buffer; |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
757 size = max (2 * size, size + nbytes); |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
758 buffer = (char *) alloca (size); |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
759 ptr = buffer + offset; |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
760 } |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
761 |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
762 ptr += copy_text (SDATA (name), ptr, nbytes, |
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
763 STRING_MULTIBYTE (name), 1); |
518 | 764 } |
765 | |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
766 if ((NILP (echo_string) || SCHARS (echo_string) == 0) |
12144 | 767 && help_char_p (c)) |
518 | 768 { |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
769 const char *text = " (Type ? for further options)"; |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
770 int len = strlen (text); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
771 |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
772 if (size - (ptr - buffer) < len) |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
773 { |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
774 int offset = ptr - buffer; |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
775 size += len; |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
776 buffer = (char *) alloca (size); |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
777 ptr = buffer + offset; |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
778 } |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
779 |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
780 bcopy (text, ptr, len); |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
781 ptr += len; |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
782 } |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
783 |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
784 /* Replace a dash from echo_dash with a space, otherwise |
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
785 add a space at the end as a separator between keys. */ |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
786 if (STRINGP (echo_string) |
50749
d4d06920c3ed
(echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents:
50557
diff
changeset
|
787 && SCHARS (echo_string) > 1) |
d4d06920c3ed
(echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents:
50557
diff
changeset
|
788 { |
d4d06920c3ed
(echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents:
50557
diff
changeset
|
789 Lisp_Object last_char, prev_char, idx; |
d4d06920c3ed
(echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents:
50557
diff
changeset
|
790 |
d4d06920c3ed
(echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents:
50557
diff
changeset
|
791 idx = make_number (SCHARS (echo_string) - 2); |
d4d06920c3ed
(echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents:
50557
diff
changeset
|
792 prev_char = Faref (echo_string, idx); |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
793 |
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
794 idx = make_number (SCHARS (echo_string) - 1); |
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
795 last_char = Faref (echo_string, idx); |
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
796 |
50749
d4d06920c3ed
(echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents:
50557
diff
changeset
|
797 /* We test PREV_CHAR to make sure this isn't the echoing |
d4d06920c3ed
(echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents:
50557
diff
changeset
|
798 of a minus-sign. */ |
d4d06920c3ed
(echo_char): Don't clear out a dash that follows a space.
Richard M. Stallman <rms@gnu.org>
parents:
50557
diff
changeset
|
799 if (XINT (last_char) == '-' && XINT (prev_char) != ' ') |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
800 Faset (echo_string, idx, make_number (' ')); |
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
801 else |
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
802 echo_string = concat2 (echo_string, build_string (" ")); |
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
803 } |
68262
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
804 else if (STRINGP (echo_string)) |
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
805 echo_string = concat2 (echo_string, build_string (" ")); |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
806 |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
807 current_kboard->echo_string |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
808 = concat2 (echo_string, make_string (buffer, ptr - buffer)); |
518 | 809 |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
810 echo_now (); |
518 | 811 } |
812 } | |
813 | |
814 /* Temporarily add a dash to the end of the echo string if it's not | |
815 empty, so that it serves as a mini-prompt for the very next character. */ | |
816 | |
21514 | 817 void |
518 | 818 echo_dash () |
819 { | |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
820 /* Do nothing if not echoing at all. */ |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
821 if (NILP (current_kboard->echo_string)) |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
822 return; |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
823 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
824 if (!current_kboard->immediate_echo |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
825 && SCHARS (current_kboard->echo_string) == 0) |
518 | 826 return; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
827 |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
828 /* 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
|
829 if (current_kboard->echo_after_prompt |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
830 == SCHARS (current_kboard->echo_string)) |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
831 return; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
832 |
56421
0ef3adf2dcd7
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
Miles Bader <miles@gnu.org>
parents:
56367
diff
changeset
|
833 /* Do nothing if we have already put a dash at the end. */ |
0ef3adf2dcd7
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
Miles Bader <miles@gnu.org>
parents:
56367
diff
changeset
|
834 if (SCHARS (current_kboard->echo_string) > 1) |
0ef3adf2dcd7
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
Miles Bader <miles@gnu.org>
parents:
56367
diff
changeset
|
835 { |
68262
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
836 Lisp_Object last_char, prev_char, idx; |
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
837 |
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
838 idx = make_number (SCHARS (current_kboard->echo_string) - 2); |
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
839 prev_char = Faref (current_kboard->echo_string, idx); |
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
840 |
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
841 idx = make_number (SCHARS (current_kboard->echo_string) - 1); |
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
842 last_char = Faref (current_kboard->echo_string, idx); |
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
843 |
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
844 if (XINT (last_char) == '-' && XINT (prev_char) != ' ') |
bd5ef7de54da
(echo_char): Don't omit the space between first two echoed chars.
Richard M. Stallman <rms@gnu.org>
parents:
67820
diff
changeset
|
845 return; |
56421
0ef3adf2dcd7
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
Miles Bader <miles@gnu.org>
parents:
56367
diff
changeset
|
846 } |
0ef3adf2dcd7
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-455
Miles Bader <miles@gnu.org>
parents:
56367
diff
changeset
|
847 |
518 | 848 /* Put a dash at the end of the buffer temporarily, |
849 but make it go away when the next character is added. */ | |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
850 current_kboard->echo_string = concat2 (current_kboard->echo_string, |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
851 build_string ("-")); |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
852 echo_now (); |
518 | 853 } |
854 | |
855 /* Display the current echo string, and begin echoing if not already | |
856 doing so. */ | |
857 | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
858 void |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
859 echo_now () |
518 | 860 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
861 if (!current_kboard->immediate_echo) |
518 | 862 { |
863 int i; | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
864 current_kboard->immediate_echo = 1; |
518 | 865 |
866 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
|
867 { |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
868 Lisp_Object c; |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
869 |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
870 /* Set before_command_echo_length to the value that would |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
871 have been saved before the start of this subcommand in |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
872 command_loop_1, if we had already been echoing then. */ |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
873 if (i == this_single_command_key_start) |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
874 before_command_echo_length = echo_length (); |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
875 |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
876 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
|
877 if (! (EVENT_HAS_PARAMETERS (c) |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
878 && 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
|
879 echo_char (c); |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
880 } |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
881 |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
882 /* Set before_command_echo_length to the value that would |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
883 have been saved before the start of this subcommand in |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
884 command_loop_1, if we had already been echoing then. */ |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
885 if (this_command_key_count == this_single_command_key_start) |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
886 before_command_echo_length = echo_length (); |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
887 |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
888 /* Put a dash at the end to invite the user to type more. */ |
518 | 889 echo_dash (); |
890 } | |
891 | |
892 echoing = 1; | |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
893 message3_nolog (current_kboard->echo_string, |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
894 SBYTES (current_kboard->echo_string), |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
895 STRING_MULTIBYTE (current_kboard->echo_string)); |
518 | 896 echoing = 0; |
897 | |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
898 /* 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
|
899 echo_message_buffer = echo_area_buffer[0]; |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
900 echo_kboard = current_kboard; |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
901 |
518 | 902 if (waiting_for_input && !NILP (Vquit_flag)) |
903 quit_throw_to_read_char (); | |
904 } | |
905 | |
906 /* Turn off echoing, for the start of a new command. */ | |
907 | |
21514 | 908 void |
518 | 909 cancel_echoing () |
910 { | |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
911 current_kboard->immediate_echo = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
912 current_kboard->echo_after_prompt = -1; |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
913 current_kboard->echo_string = Qnil; |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
914 ok_to_echo_at_next_pause = NULL; |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
915 echo_kboard = NULL; |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
916 echo_message_buffer = Qnil; |
518 | 917 } |
918 | |
919 /* Return the length of the current echo string. */ | |
920 | |
921 static int | |
922 echo_length () | |
923 { | |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
924 return (STRINGP (current_kboard->echo_string) |
43785
5f25ad91cf88
(echo_char): Make sure to add a separator between
Gerd Moellmann <gerd@gnu.org>
parents:
43750
diff
changeset
|
925 ? SCHARS (current_kboard->echo_string) |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
926 : 0); |
518 | 927 } |
928 | |
929 /* Truncate the current echo message to its first LEN chars. | |
930 This and echo_char get used by read_key_sequence when the user | |
765 | 931 switches frames while entering a key sequence. */ |
518 | 932 |
933 static void | |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
934 echo_truncate (nchars) |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
935 int nchars; |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
936 { |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
937 if (STRINGP (current_kboard->echo_string)) |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
938 current_kboard->echo_string |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
939 = Fsubstring (current_kboard->echo_string, |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
940 make_number (0), make_number (nchars)); |
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
941 truncate_echo_area (nchars); |
518 | 942 } |
943 | |
944 | |
945 /* Functions for manipulating this_command_keys. */ | |
946 static void | |
947 add_command_key (key) | |
948 Lisp_Object key; | |
949 { | |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
950 #if 0 /* Not needed after we made Freset_this_command_lengths |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
951 do the job immediately. */ |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
952 /* 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
|
953 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
|
954 if (before_command_restore_flag) |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
955 { |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
956 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
|
957 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
|
958 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
|
959 echo_truncate (before_command_echo_length_1); |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
960 before_command_restore_flag = 0; |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
961 } |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
962 #endif |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
963 |
38674
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
964 if (this_command_key_count >= ASIZE (this_command_keys)) |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
965 this_command_keys = larger_vector (this_command_keys, |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
966 2 * ASIZE (this_command_keys), |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
967 Qnil); |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
968 |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
969 AREF (this_command_keys, this_command_key_count) = key; |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
970 ++this_command_key_count; |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
971 } |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
972 |
518 | 973 |
974 Lisp_Object | |
975 recursive_edit_1 () | |
976 { | |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
977 int count = SPECPDL_INDEX (); |
518 | 978 Lisp_Object val; |
979 | |
980 if (command_loop_level > 0) | |
981 { | |
982 specbind (Qstandard_output, Qt); | |
983 specbind (Qstandard_input, Qt); | |
984 } | |
985 | |
27867
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
986 #ifdef HAVE_X_WINDOWS |
36255
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
987 /* The command loop has started an hourglass timer, so we have to |
27867
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
988 cancel it here, otherwise it will fire because the recursive edit |
43149
a50d91dfe5f8
(recursive_edit_1): Call cancel_hourglass unconditionally.
Pavel Janík <Pavel@Janik.cz>
parents:
43057
diff
changeset
|
989 can take some time. Do not check for display_hourglass_p here, |
a50d91dfe5f8
(recursive_edit_1): Call cancel_hourglass unconditionally.
Pavel Janík <Pavel@Janik.cz>
parents:
43057
diff
changeset
|
990 because it could already be nil. */ |
36255
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
991 cancel_hourglass (); |
27867
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
992 #endif |
aa784365f0a0
(recursive_edit_1): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27862
diff
changeset
|
993 |
36196
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
994 /* This function may have been called from a debugger called from |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
995 within redisplay, for instance by Edebugging a function called |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
996 from fontification-functions. We want to allow redisplay in |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
997 the debugging session. |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
998 |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
999 The recursive edit is left with a `(throw exit ...)'. The `exit' |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
1000 tag is not caught anywhere in redisplay, i.e. when we leave the |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
1001 recursive edit, the original redisplay leading to the recursive |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
1002 edit will be unwound. The outcome should therefore be safe. */ |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
1003 specbind (Qinhibit_redisplay, Qnil); |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
1004 redisplaying_p = 0; |
66fbfa369f3e
(recursive_edit_1): Bind `inhibit-redisplay' and
Gerd Moellmann <gerd@gnu.org>
parents:
35336
diff
changeset
|
1005 |
518 | 1006 val = command_loop (); |
1007 if (EQ (val, Qt)) | |
1008 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
|
1009 /* 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
|
1010 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
|
1011 if (STRINGP (val)) |
71981
802436ff7a47
(recursive_edit_1): Use xsignal1.
Kim F. Storm <storm@cua.dk>
parents:
71947
diff
changeset
|
1012 xsignal1 (Qerror, val); |
518 | 1013 |
1921
06ecd9e51ca0
* keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents:
1895
diff
changeset
|
1014 return unbind_to (count, Qnil); |
518 | 1015 } |
1016 | |
1017 /* 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
|
1018 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
1019 void |
518 | 1020 record_auto_save () |
1021 { | |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
1022 last_auto_save = num_nonmacro_input_events; |
518 | 1023 } |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
1024 |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
1025 /* 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
|
1026 |
21514 | 1027 void |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
1028 force_auto_save_soon () |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
1029 { |
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
1030 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
|
1031 |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
1032 record_asynch_buffer_change (); |
7224
a96533ce8122
(force_auto_save_soon): New function.
Richard M. Stallman <rms@gnu.org>
parents:
7168
diff
changeset
|
1033 } |
518 | 1034 |
1035 DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "", | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1036 doc: /* Invoke the editor command loop recursively. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1037 To get out of the recursive edit, a command can do `(throw 'exit nil)'; |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1038 that tells this function to return. |
62753
3cf2ae5f446d
(Frecursive_edit): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
62493
diff
changeset
|
1039 Alternatively, `(throw 'exit t)' makes this function signal an error. |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1040 This function is called by the editor initialization to begin editing. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1041 () |
518 | 1042 { |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
1043 int count = SPECPDL_INDEX (); |
39338
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1044 Lisp_Object buffer; |
518 | 1045 |
55659
4771569ccabb
(Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents:
55639
diff
changeset
|
1046 /* If we enter while input is blocked, don't lock up here. |
4771569ccabb
(Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents:
55639
diff
changeset
|
1047 This may happen through the debugger during redisplay. */ |
4771569ccabb
(Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents:
55639
diff
changeset
|
1048 if (INPUT_BLOCKED_P) |
4771569ccabb
(Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents:
55639
diff
changeset
|
1049 return Qnil; |
4771569ccabb
(Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents:
55639
diff
changeset
|
1050 |
518 | 1051 command_loop_level++; |
1052 update_mode_lines = 1; | |
1053 | |
39338
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1054 if (command_loop_level |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1055 && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer)) |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1056 buffer = Fcurrent_buffer (); |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1057 else |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1058 buffer = Qnil; |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1059 |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1060 /* If we leave recursive_edit_1 below with a `throw' for instance, |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1061 like it is done in the splash screen display, we have to |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1062 make sure that we restore single_kboard as command_loop_1 |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1063 would have done if it were left normally. */ |
518 | 1064 record_unwind_protect (recursive_edit_unwind, |
39338
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1065 Fcons (buffer, single_kboard ? Qt : Qnil)); |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1066 |
518 | 1067 recursive_edit_1 (); |
1068 return unbind_to (count, Qnil); | |
1069 } | |
1070 | |
1071 Lisp_Object | |
39338
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1072 recursive_edit_unwind (info) |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1073 Lisp_Object info; |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1074 { |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1075 if (BUFFERP (XCAR (info))) |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1076 Fset_buffer (XCAR (info)); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
1077 |
39338
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1078 if (NILP (XCDR (info))) |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1079 any_kboard_state (); |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1080 else |
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1081 single_kboard_state (); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
1082 |
518 | 1083 command_loop_level--; |
1084 update_mode_lines = 1; | |
1085 return Qnil; | |
1086 } | |
39338
96fc00b78011
(Frecursive_edit): Pass (BUFFER . SINGLE-KBOARD) to
Gerd Moellmann <gerd@gnu.org>
parents:
38792
diff
changeset
|
1087 |
518 | 1088 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1089 static void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1090 any_kboard_state () |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1091 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1092 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1093 #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
|
1094 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
|
1095 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
|
1096 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
|
1097 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
|
1098 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1099 current_kboard->kbd_queue |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1100 = nconc2 (Vunread_command_events, current_kboard->kbd_queue); |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1101 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
|
1102 } |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
1103 Vunread_command_events = Qnil; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1104 #endif |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1105 single_kboard = 0; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1106 #endif |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1107 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1108 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1109 /* 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
|
1110 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
|
1111 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1112 void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1113 single_kboard_state () |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1114 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1115 #ifdef MULTI_KBOARD |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1116 single_kboard = 1; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1117 #endif |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
1118 } |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1119 |
56454
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1120 /* If we're in single_kboard state for kboard KBOARD, |
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1121 get out of it. */ |
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1122 |
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1123 void |
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1124 not_single_kboard_state (kboard) |
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1125 KBOARD *kboard; |
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1126 { |
56461
04a216bfa931
(not_single_kboard_state): Do nothing unless MULTI_KBOARD is defined.
Juanma Barranquero <lekktu@gmail.com>
parents:
56454
diff
changeset
|
1127 #ifdef MULTI_KBOARD |
56454
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1128 if (kboard == current_kboard) |
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1129 single_kboard = 0; |
56461
04a216bfa931
(not_single_kboard_state): Do nothing unless MULTI_KBOARD is defined.
Juanma Barranquero <lekktu@gmail.com>
parents:
56454
diff
changeset
|
1130 #endif |
56454
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1131 } |
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
1132 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1133 /* 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
|
1134 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
|
1135 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
|
1136 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1137 struct kboard_stack |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1138 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1139 KBOARD *kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1140 struct kboard_stack *next; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1141 }; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1142 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1143 static struct kboard_stack *kboard_stack; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1144 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1145 void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1146 push_frame_kboard (f) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1147 FRAME_PTR f; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1148 { |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
1149 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1150 struct kboard_stack *p |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1151 = (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
|
1152 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1153 p->next = kboard_stack; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1154 p->kboard = current_kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1155 kboard_stack = p; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1156 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1157 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
|
1158 #endif |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1159 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1160 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1161 void |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1162 pop_frame_kboard () |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1163 { |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
1164 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1165 struct kboard_stack *p = kboard_stack; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1166 current_kboard = p->kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1167 kboard_stack = p->next; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1168 xfree (p); |
11366
1dbffccbd022
(push_frame_kboard, pop_frame_kboard): Do nothing if !MULTI_KBOARD.
Karl Heuer <kwzh@gnu.org>
parents:
11363
diff
changeset
|
1169 #endif |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1170 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1171 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1172 /* 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
|
1173 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
|
1174 |
518 | 1175 Lisp_Object |
1176 cmd_error (data) | |
1177 Lisp_Object data; | |
1178 { | |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1179 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
|
1180 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
|
1181 |
46412
7284594e6125
(cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass.
Richard M. Stallman <rms@gnu.org>
parents:
46370
diff
changeset
|
1182 #ifdef HAVE_X_WINDOWS |
7284594e6125
(cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass.
Richard M. Stallman <rms@gnu.org>
parents:
46370
diff
changeset
|
1183 if (display_hourglass_p) |
7284594e6125
(cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass.
Richard M. Stallman <rms@gnu.org>
parents:
46370
diff
changeset
|
1184 cancel_hourglass (); |
7284594e6125
(cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass.
Richard M. Stallman <rms@gnu.org>
parents:
46370
diff
changeset
|
1185 #endif |
7284594e6125
(cmd_error) [HAVE_X_WINDOWS]: Maybe call cancel_houglass.
Richard M. Stallman <rms@gnu.org>
parents:
46370
diff
changeset
|
1186 |
62024
4f7e1a56469e
(executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents:
61982
diff
changeset
|
1187 if (!NILP (executing_kbd_macro)) |
4f7e1a56469e
(executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents:
61982
diff
changeset
|
1188 { |
4f7e1a56469e
(executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents:
61982
diff
changeset
|
1189 if (executing_kbd_macro_iterations == 1) |
15969
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1190 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
|
1191 else |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1192 sprintf (macroerror, "After %d kbd macro iterations: ", |
62024
4f7e1a56469e
(executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents:
61982
diff
changeset
|
1193 executing_kbd_macro_iterations); |
15969
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1194 } |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1195 else |
a93195fe5297
(cmd_error): Add number of kbd macro iterations to the error message.
Richard M. Stallman <rms@gnu.org>
parents:
15946
diff
changeset
|
1196 *macroerror = 0; |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1197 |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1198 Vstandard_output = Qt; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1199 Vstandard_input = Qt; |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
1200 Vexecuting_kbd_macro = Qnil; |
62024
4f7e1a56469e
(executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents:
61982
diff
changeset
|
1201 executing_kbd_macro = Qnil; |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1202 current_kboard->Vprefix_arg = Qnil; |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1203 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
|
1204 cancel_echoing (); |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1205 |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1206 /* 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
|
1207 old_level = Vprint_level; |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1208 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
|
1209 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
|
1210 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
|
1211 cmd_error_internal (data, macroerror); |
10932
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1212 Vprint_level = old_level; |
df11ec79623a
(cmd_error): Bind Vprint_level and Vprint_length.
Karl Heuer <kwzh@gnu.org>
parents:
10930
diff
changeset
|
1213 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
|
1214 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1215 Vquit_flag = Qnil; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1216 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1217 Vinhibit_quit = Qnil; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1218 #ifdef MULTI_KBOARD |
56093
53ee24947683
(cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents:
56070
diff
changeset
|
1219 if (command_loop_level == 0 && minibuf_level == 0) |
53ee24947683
(cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents:
56070
diff
changeset
|
1220 any_kboard_state (); |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1221 #endif |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1222 |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1223 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
|
1224 } |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1225 |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1226 /* 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
|
1227 the error. |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1228 |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1229 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
|
1230 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
|
1231 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
|
1232 string. */ |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1233 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
1234 void |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1235 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
|
1236 Lisp_Object data; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1237 char *context; |
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
1238 { |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
1239 struct frame *sf = SELECTED_FRAME (); |
518 | 1240 |
46572
765f9cd60063
(cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents:
46535
diff
changeset
|
1241 /* The immediate context is not interesting for Quits, |
765f9cd60063
(cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents:
46535
diff
changeset
|
1242 since they are asyncronous. */ |
765f9cd60063
(cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents:
46535
diff
changeset
|
1243 if (EQ (XCAR (data), Qquit)) |
765f9cd60063
(cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents:
46535
diff
changeset
|
1244 Vsignaling_function = Qnil; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
1245 |
71947
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1246 Vquit_flag = Qnil; |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1247 Vinhibit_quit = Qt; |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1248 |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1249 /* Use user's specified output function if any. */ |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1250 if (!NILP (Vcommand_error_function)) |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1251 call3 (Vcommand_error_function, data, |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1252 build_string (context ? context : ""), |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1253 Vsignaling_function); |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1254 /* If the window system or terminal frame hasn't been initialized |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1255 yet, or we're not interactive, write the message to stderr and exit. */ |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1256 else if (!sf->glyphs_initialized_p |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1257 /* This is the case of the frame dumped with Emacs, when we're |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1258 running under a window system. */ |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1259 || (!NILP (Vwindow_system) |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1260 && !inhibit_window_system |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1261 && FRAME_TERMCAP_P (sf)) |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1262 || noninteractive) |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1263 { |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1264 print_error_message (data, Qexternal_debugging_output, |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1265 context, Vsignaling_function); |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1266 Fterpri (Qexternal_debugging_output); |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1267 Fkill_emacs (make_number (-1)); |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1268 } |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1269 else |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1270 { |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1271 clear_message (1, 0); |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1272 Fdiscard_input (); |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1273 message_log_maybe_newline (); |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1274 bitch_at_user (); |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1275 |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1276 print_error_message (data, Qt, context, Vsignaling_function); |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
1277 } |
46572
765f9cd60063
(cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents:
46535
diff
changeset
|
1278 |
765f9cd60063
(cmd_error_internal): Pass Vsignaling_function
Richard M. Stallman <rms@gnu.org>
parents:
46535
diff
changeset
|
1279 Vsignaling_function = Qnil; |
518 | 1280 } |
1281 | |
1282 Lisp_Object command_loop_1 (); | |
1283 Lisp_Object command_loop_2 (); | |
1284 Lisp_Object top_level_1 (); | |
1285 | |
1286 /* Entry to editor-command-loop. | |
1287 This level has the catches for exiting/returning to editor command loop. | |
1288 It returns nil to exit recursive edit, t to abort it. */ | |
1289 | |
1290 Lisp_Object | |
1291 command_loop () | |
1292 { | |
1293 if (command_loop_level > 0 || minibuf_level > 0) | |
1294 { | |
23459
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
1295 Lisp_Object val; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
1296 val = internal_catch (Qexit, command_loop_2, Qnil); |
62024
4f7e1a56469e
(executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents:
61982
diff
changeset
|
1297 executing_kbd_macro = Qnil; |
22551
10770ff8e88f
(command_loop): Reset executing_macro after
Richard M. Stallman <rms@gnu.org>
parents:
22542
diff
changeset
|
1298 return val; |
518 | 1299 } |
1300 else | |
1301 while (1) | |
1302 { | |
1303 internal_catch (Qtop_level, top_level_1, Qnil); | |
56093
53ee24947683
(cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents:
56070
diff
changeset
|
1304 /* Reset single_kboard in case top-level set it while |
53ee24947683
(cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents:
56070
diff
changeset
|
1305 evaluating an -f option, or we are stuck there for some |
53ee24947683
(cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents:
56070
diff
changeset
|
1306 other reason. */ |
53ee24947683
(cmd_error): Don't call any_kboard_state if inside a recursive edit level.
Richard M. Stallman <rms@gnu.org>
parents:
56070
diff
changeset
|
1307 any_kboard_state (); |
518 | 1308 internal_catch (Qtop_level, command_loop_2, Qnil); |
62024
4f7e1a56469e
(executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents:
61982
diff
changeset
|
1309 executing_kbd_macro = Qnil; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1310 |
518 | 1311 /* End of file in -batch run causes exit here. */ |
1312 if (noninteractive) | |
1313 Fkill_emacs (Qt); | |
1314 } | |
1315 } | |
1316 | |
1317 /* Here we catch errors in execution of commands within the | |
1318 editing loop, and reenter the editing loop. | |
1319 When there is an error, cmd_error runs and returns a non-nil | |
44135 | 1320 value to us. A value of nil means that command_loop_1 itself |
518 | 1321 returned due to end of file (or end of kbd macro). */ |
1322 | |
1323 Lisp_Object | |
1324 command_loop_2 () | |
1325 { | |
1326 register Lisp_Object val; | |
1327 | |
1328 do | |
1329 val = internal_condition_case (command_loop_1, Qerror, cmd_error); | |
1330 while (!NILP (val)); | |
1331 | |
1332 return Qnil; | |
1333 } | |
1334 | |
1335 Lisp_Object | |
1336 top_level_2 () | |
1337 { | |
1338 return Feval (Vtop_level); | |
1339 } | |
1340 | |
1341 Lisp_Object | |
1342 top_level_1 () | |
1343 { | |
1344 /* On entry to the outer level, run the startup file */ | |
1345 if (!NILP (Vtop_level)) | |
1346 internal_condition_case (top_level_2, Qerror, cmd_error); | |
1347 else if (!NILP (Vpurify_flag)) | |
1348 message ("Bare impure Emacs (standard Lisp code not loaded)"); | |
1349 else | |
1350 message ("Bare Emacs (standard Lisp code not loaded)"); | |
1351 return Qnil; | |
1352 } | |
1353 | |
1354 DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "", | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1355 doc: /* Exit all recursive editing levels. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1356 () |
518 | 1357 { |
28389
9ec5585e5e29
(Ftop_level): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27979
diff
changeset
|
1358 #ifdef HAVE_X_WINDOWS |
36255
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
1359 if (display_hourglass_p) |
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
1360 cancel_hourglass (); |
28389
9ec5585e5e29
(Ftop_level): Cancel busy-cursor.
Gerd Moellmann <gerd@gnu.org>
parents:
27979
diff
changeset
|
1361 #endif |
55659
4771569ccabb
(Frecursive_edit): Return immediately if input blocked.
Kim F. Storm <storm@cua.dk>
parents:
55639
diff
changeset
|
1362 |
60556
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
1363 /* Unblock input if we enter with input blocked. This may happen if |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
1364 redisplay traps e.g. during tool-bar update with input blocked. */ |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
1365 while (INPUT_BLOCKED_P) |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
1366 UNBLOCK_INPUT; |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
1367 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
1368 return Fthrow (Qtop_level, Qnil); |
518 | 1369 } |
1370 | |
1371 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "", | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1372 doc: /* Exit from the innermost recursive edit or minibuffer. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1373 () |
518 | 1374 { |
1375 if (command_loop_level > 0 || minibuf_level > 0) | |
1376 Fthrow (Qexit, Qnil); | |
1377 | |
1378 error ("No recursive edit is in progress"); | |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
1379 return Qnil; |
518 | 1380 } |
1381 | |
1382 DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0, 0, "", | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1383 doc: /* Abort the command that requested this recursive edit or minibuffer input. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
1384 () |
518 | 1385 { |
1386 if (command_loop_level > 0 || minibuf_level > 0) | |
1387 Fthrow (Qexit, Qt); | |
1388 | |
1389 error ("No recursive edit is in progress"); | |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
1390 return Qnil; |
518 | 1391 } |
1392 | |
72460
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1393 #ifdef HAVE_MOUSE |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1394 |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1395 /* Restore mouse tracking enablement. See Ftrack_mouse for the only use |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1396 of this function. */ |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1397 |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1398 static Lisp_Object |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1399 tracking_off (old_value) |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1400 Lisp_Object old_value; |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1401 { |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1402 do_mouse_tracking = old_value; |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1403 if (NILP (old_value)) |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1404 { |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1405 /* Redisplay may have been preempted because there was input |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1406 available, and it assumes it will be called again after the |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1407 input has been processed. If the only input available was |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1408 the sort that we have just disabled, then we need to call |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1409 redisplay. */ |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1410 if (!readable_events (READABLE_EVENTS_DO_TIMERS_NOW)) |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1411 { |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1412 redisplay_preserve_echo_area (6); |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1413 get_input_pending (&input_pending, |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1414 READABLE_EVENTS_DO_TIMERS_NOW); |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1415 } |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1416 } |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1417 return Qnil; |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1418 } |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1419 |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1420 DEFUN ("track-mouse", Ftrack_mouse, Strack_mouse, 0, UNEVALLED, 0, |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1421 doc: /* Evaluate BODY with mouse movement events enabled. |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1422 Within a `track-mouse' form, mouse motion generates input events that |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1423 you can read with `read-event'. |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1424 Normally, mouse motion is ignored. |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1425 usage: (track-mouse BODY ...) */) |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1426 (args) |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1427 Lisp_Object args; |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1428 { |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1429 int count = SPECPDL_INDEX (); |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1430 Lisp_Object val; |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1431 |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1432 record_unwind_protect (tracking_off, do_mouse_tracking); |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1433 |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1434 do_mouse_tracking = Qt; |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1435 |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1436 val = Fprogn (args); |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1437 return unbind_to (count, val); |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1438 } |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1439 |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1440 /* If mouse has moved on some frame, return one of those frames. |
74621
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1441 |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1442 Return 0 otherwise. |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1443 |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1444 If ignore_mouse_drag_p is non-zero, ignore (implicit) mouse movement |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1445 after resizing the tool-bar window. */ |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1446 |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1447 int ignore_mouse_drag_p; |
72460
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1448 |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1449 static FRAME_PTR |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1450 some_mouse_moved () |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1451 { |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1452 Lisp_Object tail, frame; |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1453 |
74621
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1454 if (ignore_mouse_drag_p) |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1455 { |
74837
506b356e8291
(some_mouse_moved): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents:
74754
diff
changeset
|
1456 /* ignore_mouse_drag_p = 0; */ |
74621
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1457 return 0; |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1458 } |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
1459 |
72460
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1460 FOR_EACH_FRAME (tail, frame) |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1461 { |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1462 if (XFRAME (frame)->mouse_moved) |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1463 return XFRAME (frame); |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1464 } |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1465 |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1466 return 0; |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1467 } |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1468 |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1469 #endif /* HAVE_MOUSE */ |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
1470 |
518 | 1471 /* This is the actual command reading loop, |
1472 sans error-handling encapsulation. */ | |
1473 | |
36745
a12182d34820
(command_loop_1): Set Vdeactivate_mark to nil
Gerd Moellmann <gerd@gnu.org>
parents:
36741
diff
changeset
|
1474 static int read_key_sequence P_ ((Lisp_Object *, int, Lisp_Object, |
a12182d34820
(command_loop_1): Set Vdeactivate_mark to nil
Gerd Moellmann <gerd@gnu.org>
parents:
36741
diff
changeset
|
1475 int, int, int)); |
a12182d34820
(command_loop_1): Set Vdeactivate_mark to nil
Gerd Moellmann <gerd@gnu.org>
parents:
36741
diff
changeset
|
1476 void safe_run_hooks P_ ((Lisp_Object)); |
49408
7e6cf4411cd4
(adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents:
49322
diff
changeset
|
1477 static void adjust_point_for_property P_ ((int, int)); |
518 | 1478 |
49942
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1479 /* Cancel hourglass from protect_unwind. |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1480 ARG is not used. */ |
49976
bd3e068b492a
* keyboard.c (cancel_hourglass_unwind): Surround with
Jan Djärv <jan.h.d@swipnet.se>
parents:
49942
diff
changeset
|
1481 #ifdef HAVE_X_WINDOWS |
49942
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1482 static Lisp_Object |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1483 cancel_hourglass_unwind (arg) |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1484 Lisp_Object arg; |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1485 { |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1486 cancel_hourglass (); |
56070
343ad07ce78b
(cancel_hourglass_unwind): Return a value.
Andreas Schwab <schwab@suse.de>
parents:
56023
diff
changeset
|
1487 return Qnil; |
49942
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1488 } |
49976
bd3e068b492a
* keyboard.c (cancel_hourglass_unwind): Surround with
Jan Djärv <jan.h.d@swipnet.se>
parents:
49942
diff
changeset
|
1489 #endif |
49942
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1490 |
518 | 1491 Lisp_Object |
1492 command_loop_1 () | |
1493 { | |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
1494 Lisp_Object cmd; |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
1495 int lose; |
518 | 1496 int nonundocount; |
1497 Lisp_Object keybuf[30]; | |
1498 int i; | |
1499 int no_direct; | |
69985
d5629ae481f1
(read_key_sequence): Explicitly avoid keybuf[-1].
Richard M. Stallman <rms@gnu.org>
parents:
69718
diff
changeset
|
1500 int prev_modiff = 0; |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
1501 struct buffer *prev_buffer = NULL; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1502 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1503 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
|
1504 #endif |
49010
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1505 int already_adjusted; |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1506 |
12227
24328f2358a1
(command_loop_1): Clear prefix arg (undo Feb 1 change).
Karl Heuer <kwzh@gnu.org>
parents:
12185
diff
changeset
|
1507 current_kboard->Vprefix_arg = Qnil; |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1508 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
|
1509 Vdeactivate_mark = Qnil; |
518 | 1510 waiting_for_input = 0; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
1511 cancel_echoing (); |
518 | 1512 |
1513 nonundocount = 0; | |
1514 this_command_key_count = 0; | |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
1515 this_command_key_count_reset = 0; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
1516 this_single_command_key_start = 0; |
518 | 1517 |
46343
fb71432c8a02
(command_loop_1): Invert check on Vmemory_full.
Kim F. Storm <storm@cua.dk>
parents:
46316
diff
changeset
|
1518 if (NILP (Vmemory_full)) |
46316
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1519 { |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1520 /* Make sure this hook runs after commands that get errors and |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1521 throw to top level. */ |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1522 /* Note that the value cell will never directly contain nil |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1523 if the symbol is a local variable. */ |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1524 if (!NILP (Vpost_command_hook) && !NILP (Vrun_hooks)) |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1525 safe_run_hooks (Qpost_command_hook); |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1526 |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1527 /* If displaying a message, resize the echo area window to fit |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1528 that message's size exactly. */ |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1529 if (!NILP (echo_area_buffer[0])) |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1530 resize_echo_area_exactly (); |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1531 |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1532 if (!NILP (Vdeferred_action_list)) |
60067
77fc0086f304
(command_loop_1): Always use safe_run_hooks to run Qdeferred_action_function.
Richard M. Stallman <rms@gnu.org>
parents:
60027
diff
changeset
|
1533 safe_run_hooks (Qdeferred_action_function); |
46316
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1534 } |
06bf5ed360fd
(cmd_error_internal): Handle Vsignaling_function here.
Richard M. Stallman <rms@gnu.org>
parents:
46293
diff
changeset
|
1535 |
6290
6ecf8ea4bd8d
(command_loop_1): On entry, set this_command
Richard M. Stallman <rms@gnu.org>
parents:
6208
diff
changeset
|
1536 /* 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
|
1537 current_kboard->Vlast_command = Vthis_command; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1538 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
|
1539 |
518 | 1540 while (1) |
1541 { | |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
1542 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
|
1543 Fkill_emacs (Qnil); |
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
1544 |
518 | 1545 /* Make sure the current window's buffer is selected. */ |
1546 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer) | |
1547 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer)); | |
1548 | |
1549 /* Display any malloc warning that just came out. Use while because | |
1550 displaying one warning can cause another. */ | |
1551 | |
1552 while (pending_malloc_warning) | |
1553 display_malloc_warning (); | |
1554 | |
1555 no_direct = 0; | |
1556 | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1557 Vdeactivate_mark = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1558 |
518 | 1559 /* If minibuffer on and echo area in use, |
33724
b04964da2e33
(Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents:
33445
diff
changeset
|
1560 wait a short time and redraw minibuffer. */ |
518 | 1561 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1562 if (minibuf_level |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
1563 && !NILP (echo_area_buffer[0]) |
73318
e876a1f62fec
* dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents:
72889
diff
changeset
|
1564 && EQ (minibuf_window, echo_area_window)) |
518 | 1565 { |
1097
d9efc1c88574
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents:
1083
diff
changeset
|
1566 /* 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
|
1567 rather than quitting back to the minibuffer. */ |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
1568 int count = SPECPDL_INDEX (); |
1097
d9efc1c88574
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents:
1083
diff
changeset
|
1569 specbind (Qinhibit_quit, Qt); |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
1570 |
73318
e876a1f62fec
* dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents:
72889
diff
changeset
|
1571 if (NUMBERP (Vminibuffer_message_timeout)) |
e876a1f62fec
* dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents:
72889
diff
changeset
|
1572 sit_for (Vminibuffer_message_timeout, 0, 2); |
e876a1f62fec
* dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents:
72889
diff
changeset
|
1573 else |
e876a1f62fec
* dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents:
72889
diff
changeset
|
1574 sit_for (Qt, 0, 2); |
71798
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
1575 |
14666
4edbb03c523b
(command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents:
14612
diff
changeset
|
1576 /* Clear the echo area. */ |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
1577 message2 (0, 0, 0); |
16834
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
1578 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
|
1579 |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
1580 unbind_to (count, Qnil); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
1581 |
14666
4edbb03c523b
(command_loop_1): Explicitly clear the echo area
Richard M. Stallman <rms@gnu.org>
parents:
14612
diff
changeset
|
1582 /* If a C-g came in before, treat it as input now. */ |
518 | 1583 if (!NILP (Vquit_flag)) |
1584 { | |
1585 Vquit_flag = Qnil; | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
1586 Vunread_command_events = Fcons (make_number (quit_char), Qnil); |
518 | 1587 } |
1588 } | |
1589 | |
1590 #ifdef C_ALLOCA | |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1591 alloca (0); /* Cause a garbage collection now */ |
518 | 1592 /* Since we can free the most stuff here. */ |
1593 #endif /* C_ALLOCA */ | |
1594 | |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1595 #if 0 |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1596 /* 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
|
1597 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
|
1598 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
|
1599 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
|
1600 if (FRAMEP (internal_last_event_frame) |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
1601 && !EQ (internal_last_event_frame, selected_frame)) |
63185
bd105bca3ee4
(command_loop_1): Adapt call to Fselect_frame.
Luc Teirlinck <teirllm@auburn.edu>
parents:
63129
diff
changeset
|
1602 Fselect_frame (internal_last_event_frame); |
518 | 1603 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1604 /* 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
|
1605 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
|
1606 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
|
1607 && !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
|
1608 call0 (Qrecompute_lucid_menubar); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
1609 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1610 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
|
1611 before_command_echo_length = echo_length (); |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
1612 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1613 Vthis_command = Qnil; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1614 real_this_command = Qnil; |
63129 | 1615 Vthis_original_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
|
1616 |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1617 /* 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
|
1618 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
|
1619 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
|
1620 |
16504
76d22a4f6959
(command_loop_1): Update selected buffer again after read_key_sequence.
Richard M. Stallman <rms@gnu.org>
parents:
16325
diff
changeset
|
1621 /* 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
|
1622 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
|
1623 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
|
1624 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
|
1625 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
|
1626 |
1590
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1627 ++num_input_keys; |
11cd7c23f538
* keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents:
1565
diff
changeset
|
1628 |
518 | 1629 /* Now we have read a key sequence of length I, |
1630 or else I is 0 and we found end of file. */ | |
1631 | |
1632 if (i == 0) /* End of file -- happens only in */ | |
1633 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
|
1634 /* -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
|
1635 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
|
1636 if (i == -1) |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1637 { |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1638 cancel_echoing (); |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1639 this_command_key_count = 0; |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
1640 this_command_key_count_reset = 0; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
1641 this_single_command_key_start = 0; |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1642 goto finalize; |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
1643 } |
518 | 1644 |
1645 last_command_char = keybuf[i - 1]; | |
1646 | |
2406
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1647 /* 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
|
1648 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
|
1649 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
|
1650 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
|
1651 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
|
1652 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
|
1653 { |
25374
f4c741d61d57
(command_loop_1): Set beg/end_unchanged per
Gerd Moellmann <gerd@gnu.org>
parents:
25352
diff
changeset
|
1654 struct buffer *b; |
11174
b400b109a398
(command_loop_1): If we ignore force_start, then also
Karl Heuer <kwzh@gnu.org>
parents:
11167
diff
changeset
|
1655 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
|
1656 b = XBUFFER (XWINDOW (selected_window)->buffer); |
f4c741d61d57
(command_loop_1): Set beg/end_unchanged per
Gerd Moellmann <gerd@gnu.org>
parents:
25352
diff
changeset
|
1657 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
|
1658 } |
2406
465732c007f4
(command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents:
2340
diff
changeset
|
1659 |
518 | 1660 cmd = read_key_sequence_cmd; |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
1661 if (!NILP (Vexecuting_kbd_macro)) |
518 | 1662 { |
1663 if (!NILP (Vquit_flag)) | |
1664 { | |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
1665 Vexecuting_kbd_macro = Qt; |
518 | 1666 QUIT; /* Make some noise. */ |
1667 /* Will return since macro now empty. */ | |
1668 } | |
1669 } | |
1670 | |
1671 /* 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
|
1672 cases identified below. */ |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1673 prev_buffer = current_buffer; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1674 prev_modiff = MODIFF; |
6204
ba6268a3dee9
(command_loop_1): Fix misplaced assignment of last_point_position.
Karl Heuer <kwzh@gnu.org>
parents:
6178
diff
changeset
|
1675 last_point_position = PT; |
67820
a9cbddeec059
(last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
67664
diff
changeset
|
1676 last_point_position_window = selected_window; |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
1677 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
|
1678 |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1679 /* 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
|
1680 has such a property that should be treated intangible |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1681 (e.g. composition, display). But, some commands will set |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1682 this variable differently. */ |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1683 Vdisable_point_adjustment = Qnil; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1684 |
37461
a5f0e09ecc67
(command_loop_1): Redo change of 2001-03-12.
Gerd Moellmann <gerd@gnu.org>
parents:
37400
diff
changeset
|
1685 /* Process filters and timers may have messed with deactivate-mark. |
a5f0e09ecc67
(command_loop_1): Redo change of 2001-03-12.
Gerd Moellmann <gerd@gnu.org>
parents:
37400
diff
changeset
|
1686 reset it before we execute the command. */ |
a5f0e09ecc67
(command_loop_1): Redo change of 2001-03-12.
Gerd Moellmann <gerd@gnu.org>
parents:
37400
diff
changeset
|
1687 Vdeactivate_mark = Qnil; |
a5f0e09ecc67
(command_loop_1): Redo change of 2001-03-12.
Gerd Moellmann <gerd@gnu.org>
parents:
37400
diff
changeset
|
1688 |
43154
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
1689 /* Remap command through active keymaps */ |
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
1690 Vthis_original_command = cmd; |
43496
d42084cd7d73
(command_loop_1): Use Fremap_command for command remapping;
Kim F. Storm <storm@cua.dk>
parents:
43440
diff
changeset
|
1691 if (SYMBOLP (cmd)) |
43154
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
1692 { |
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
1693 Lisp_Object cmd1; |
72889
25c755416160
* NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents:
72845
diff
changeset
|
1694 if (cmd1 = Fcommand_remapping (cmd, Qnil), !NILP (cmd1)) |
43154
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
1695 cmd = cmd1; |
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
1696 } |
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
1697 |
518 | 1698 /* Execute the command. */ |
1699 | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1700 Vthis_command = cmd; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1701 real_this_command = cmd; |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
1702 /* 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
|
1703 if the symbol is a local variable. */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
1704 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
|
1705 safe_run_hooks (Qpre_command_hook); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
1706 |
49010
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1707 already_adjusted = 0; |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1708 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1709 if (NILP (Vthis_command)) |
518 | 1710 { |
1711 /* nil means key is undefined. */ | |
58519
8e7e32dcc9e2
(command_loop_1): Print a message describing the key
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58247
diff
changeset
|
1712 Lisp_Object keys = Fvector (i, keybuf); |
8e7e32dcc9e2
(command_loop_1): Print a message describing the key
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58247
diff
changeset
|
1713 keys = Fkey_description (keys, Qnil); |
518 | 1714 bitch_at_user (); |
58519
8e7e32dcc9e2
(command_loop_1): Print a message describing the key
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
58247
diff
changeset
|
1715 message_with_string ("%s is undefined", keys, 0); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1716 current_kboard->defining_kbd_macro = Qnil; |
518 | 1717 update_mode_lines = 1; |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1718 current_kboard->Vprefix_arg = Qnil; |
518 | 1719 } |
1720 else | |
1721 { | |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1722 if (NILP (current_kboard->Vprefix_arg) && ! no_direct) |
518 | 1723 { |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1724 /* In case we jump to directly_done. */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1725 Vcurrent_prefix_arg = current_kboard->Vprefix_arg; |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1726 |
518 | 1727 /* Recognize some common commands in common situations and |
1728 do them directly. */ | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1729 if (EQ (Vthis_command, Qforward_char) && PT < ZV) |
518 | 1730 { |
13189
104d1e97803c
(command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents:
13108
diff
changeset
|
1731 struct Lisp_Char_Table *dp |
518 | 1732 = 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
|
1733 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
|
1734 SET_PT (PT + 1); |
49192
f9bae037b4c3
(command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents:
49010
diff
changeset
|
1735 if (! NILP (Vpost_command_hook)) |
f9bae037b4c3
(command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents:
49010
diff
changeset
|
1736 /* Put this before calling adjust_point_for_property |
f9bae037b4c3
(command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents:
49010
diff
changeset
|
1737 so it will only get called once in any case. */ |
f9bae037b4c3
(command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents:
49010
diff
changeset
|
1738 goto directly_done; |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
1739 if (current_buffer == prev_buffer |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
1740 && last_point_position != PT |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
1741 && NILP (Vdisable_point_adjustment) |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
1742 && NILP (Vglobal_disable_point_adjustment)) |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
1743 adjust_point_for_property (last_point_position, 0); |
49010
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1744 already_adjusted = 1; |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1745 if (PT == last_point_position + 1 |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1746 && (dp |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1747 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose)) |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1748 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1 |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1749 : (NILP (DISP_CHAR_VECTOR (dp, lose)) |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1750 && (lose >= 0x20 && lose < 0x7f))) |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1751 : (lose >= 0x20 && lose < 0x7f)) |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
1752 /* 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
|
1753 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
|
1754 && (WIDTH_BY_CHAR_HEAD (FETCH_BYTE (PT_BYTE)) == 1) |
518 | 1755 && (XFASTINT (XWINDOW (selected_window)->last_modified) |
1756 >= MODIFF) | |
16196
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1757 && (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
|
1758 >= OVERLAY_MODIFF) |
518 | 1759 && (XFASTINT (XWINDOW (selected_window)->last_point) |
7427 | 1760 == PT - 1) |
518 | 1761 && !windows_or_buffers_changed |
1762 && EQ (current_buffer->selective_display, Qnil) | |
1763 && !detect_input_pending () | |
15921
11f4f96a71d2
(command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents:
15716
diff
changeset
|
1764 && NILP (XWINDOW (selected_window)->column_number_displayed) |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
1765 && NILP (Vexecuting_kbd_macro)) |
26469
50d43db29617
(command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1766 direct_output_forward_char (1); |
518 | 1767 goto directly_done; |
1768 } | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1769 else if (EQ (Vthis_command, Qbackward_char) && PT > BEGV) |
518 | 1770 { |
13189
104d1e97803c
(command_loop_1): Access display tables as char-tables.
Richard M. Stallman <rms@gnu.org>
parents:
13108
diff
changeset
|
1771 struct Lisp_Char_Table *dp |
518 | 1772 = 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
|
1773 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
|
1774 lose = FETCH_CHAR (PT_BYTE); |
49192
f9bae037b4c3
(command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents:
49010
diff
changeset
|
1775 if (! NILP (Vpost_command_hook)) |
f9bae037b4c3
(command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents:
49010
diff
changeset
|
1776 goto directly_done; |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
1777 if (current_buffer == prev_buffer |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
1778 && last_point_position != PT |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
1779 && NILP (Vdisable_point_adjustment) |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
1780 && NILP (Vglobal_disable_point_adjustment)) |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
1781 adjust_point_for_property (last_point_position, 0); |
49010
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1782 already_adjusted = 1; |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1783 if (PT == last_point_position - 1 |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1784 && (dp |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1785 ? (VECTORP (DISP_CHAR_VECTOR (dp, lose)) |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1786 ? XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1 |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1787 : (NILP (DISP_CHAR_VECTOR (dp, lose)) |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1788 && (lose >= 0x20 && lose < 0x7f))) |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1789 : (lose >= 0x20 && lose < 0x7f)) |
518 | 1790 && (XFASTINT (XWINDOW (selected_window)->last_modified) |
1791 >= MODIFF) | |
16196
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1792 && (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
|
1793 >= OVERLAY_MODIFF) |
518 | 1794 && (XFASTINT (XWINDOW (selected_window)->last_point) |
7427 | 1795 == PT + 1) |
518 | 1796 && !windows_or_buffers_changed |
1797 && EQ (current_buffer->selective_display, Qnil) | |
1798 && !detect_input_pending () | |
15921
11f4f96a71d2
(command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents:
15716
diff
changeset
|
1799 && NILP (XWINDOW (selected_window)->column_number_displayed) |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
1800 && NILP (Vexecuting_kbd_macro)) |
26469
50d43db29617
(command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1801 direct_output_forward_char (-1); |
518 | 1802 goto directly_done; |
1803 } | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1804 else if (EQ (Vthis_command, Qself_insert_command) |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
1805 /* Try this optimization only on char keystrokes. */ |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
1806 && NATNUMP (last_command_char) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
1807 && CHAR_VALID_P (XFASTINT (last_command_char), 0)) |
518 | 1808 { |
49192
f9bae037b4c3
(command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents:
49010
diff
changeset
|
1809 unsigned int c |
f9bae037b4c3
(command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents:
49010
diff
changeset
|
1810 = translate_char (Vtranslation_table_for_input, |
f9bae037b4c3
(command_loop_1): Don't redisplay directly if there's a post-command-hook.
Richard M. Stallman <rms@gnu.org>
parents:
49010
diff
changeset
|
1811 XFASTINT (last_command_char), 0, 0, 0); |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1812 int value; |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
1813 if (NILP (Vexecuting_kbd_macro) |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1814 && !EQ (minibuf_window, selected_window)) |
518 | 1815 { |
1816 if (!nonundocount || nonundocount >= 20) | |
1817 { | |
1818 Fundo_boundary (); | |
1819 nonundocount = 0; | |
1820 } | |
1821 nonundocount++; | |
1822 } | |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
1823 |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1824 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
|
1825 < MODIFF) |
16196
cb91edbbe173
(command_loop_1): Test last_overlay_modified
Richard M. Stallman <rms@gnu.org>
parents:
16181
diff
changeset
|
1826 || (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
|
1827 < OVERLAY_MODIFF) |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1828 || (XFASTINT (XWINDOW (selected_window)->last_point) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1829 != PT) |
10309
fe2243b3186b
Use SAVE_MODIFF and BUF_SAVE_MODIFF
Richard M. Stallman <rms@gnu.org>
parents:
10275
diff
changeset
|
1830 || MODIFF <= SAVE_MODIFF |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1831 || windows_or_buffers_changed |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1832 || !EQ (current_buffer->selective_display, Qnil) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1833 || detect_input_pending () |
15921
11f4f96a71d2
(command_loop_1): Check column_number_displayed
Richard M. Stallman <rms@gnu.org>
parents:
15716
diff
changeset
|
1834 || !NILP (XWINDOW (selected_window)->column_number_displayed) |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
1835 || !NILP (Vexecuting_kbd_macro)); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
1836 |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1837 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
|
1838 |
8089
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1839 if (value == 2) |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1840 nonundocount = 0; |
df2986993482
(command_loop_1): Don't clear nonundocount
Richard M. Stallman <rms@gnu.org>
parents:
8076
diff
changeset
|
1841 |
49193
1dd9faae71ac
Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents:
49192
diff
changeset
|
1842 if (! NILP (Vpost_command_hook)) |
1dd9faae71ac
Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents:
49192
diff
changeset
|
1843 /* Put this before calling adjust_point_for_property |
1dd9faae71ac
Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents:
49192
diff
changeset
|
1844 so it will only get called once in any case. */ |
1dd9faae71ac
Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents:
49192
diff
changeset
|
1845 goto directly_done; |
1dd9faae71ac
Finish previous change.
Richard M. Stallman <rms@gnu.org>
parents:
49192
diff
changeset
|
1846 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1847 /* 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
|
1848 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
|
1849 because FONT-LOCK installs one. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1850 if (!lose && !value) |
26469
50d43db29617
(command_loop_1): Remove no_redisplay.
Gerd Moellmann <gerd@gnu.org>
parents:
26404
diff
changeset
|
1851 direct_output_for_insert (c); |
518 | 1852 goto directly_done; |
1853 } | |
1854 } | |
1855 | |
1856 /* Here for a command that isn't executed directly */ | |
1857 | |
49942
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1858 { |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
1859 #ifdef HAVE_X_WINDOWS |
49942
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1860 int scount = SPECPDL_INDEX (); |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1861 |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1862 if (display_hourglass_p |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
1863 && NILP (Vexecuting_kbd_macro)) |
49942
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1864 { |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1865 record_unwind_protect (cancel_hourglass_unwind, Qnil); |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1866 start_hourglass (); |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1867 } |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1868 #endif |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1869 |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1870 nonundocount = 0; |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1871 if (NILP (current_kboard->Vprefix_arg)) |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1872 Fundo_boundary (); |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1873 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
|
1874 |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
1875 #ifdef HAVE_X_WINDOWS |
43057
9472d3bc920c
(command_loop_1) [HAVE_X_WINDOWS]: Call cancel_hourglass unconditionally.
Pavel Janík <Pavel@Janik.cz>
parents:
43024
diff
changeset
|
1876 /* Do not check display_hourglass_p here, because |
9472d3bc920c
(command_loop_1) [HAVE_X_WINDOWS]: Call cancel_hourglass unconditionally.
Pavel Janík <Pavel@Janik.cz>
parents:
43024
diff
changeset
|
1877 Fcommand_execute could change it, but we should cancel |
44561
b79166cba466
(command_loop_1): Don't call start_hourglass
Richard M. Stallman <rms@gnu.org>
parents:
44534
diff
changeset
|
1878 hourglass cursor anyway. |
b79166cba466
(command_loop_1): Don't call start_hourglass
Richard M. Stallman <rms@gnu.org>
parents:
44534
diff
changeset
|
1879 But don't cancel the hourglass within a macro |
b79166cba466
(command_loop_1): Don't call start_hourglass
Richard M. Stallman <rms@gnu.org>
parents:
44534
diff
changeset
|
1880 just because a command in the macro finishes. */ |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
1881 if (NILP (Vexecuting_kbd_macro)) |
49942
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1882 unbind_to (scount, Qnil); |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1883 #endif |
4c1f6a49e9a3
* keyboard.c (cancel_hourglass_unwind): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
49819
diff
changeset
|
1884 } |
518 | 1885 } |
547 | 1886 directly_done: ; |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
1887 current_kboard->Vlast_prefix_arg = Vcurrent_prefix_arg; |
518 | 1888 |
20783
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1889 /* 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
|
1890 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
|
1891 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
|
1892 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
|
1893 |
25657
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1894 /* 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
|
1895 that message's size exactly. */ |
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1896 if (!NILP (echo_area_buffer[0])) |
38629
61636b8db232
(command_loop_1): Fix spelling of
Gerd Moellmann <gerd@gnu.org>
parents:
38602
diff
changeset
|
1897 resize_echo_area_exactly (); |
25657
2e9b26a83bfa
(command_loop_1): Resize mini-window to the
Gerd Moellmann <gerd@gnu.org>
parents:
25546
diff
changeset
|
1898 |
20783
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1899 if (!NILP (Vdeferred_action_list)) |
bfc5d6ebba37
(command_loop_1): Run post-command-hook before,
Richard M. Stallman <rms@gnu.org>
parents:
20702
diff
changeset
|
1900 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
|
1901 |
518 | 1902 /* 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
|
1903 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
|
1904 (that would be dumb), so don't set Vlast_command, |
518 | 1905 2) we want to leave echoing on so that the prefix will be |
1906 echoed as part of this key sequence, so don't call | |
1907 cancel_echoing, and | |
1908 3) we want to leave this_command_key_count non-zero, so that | |
1909 read_char will realize that it is re-reading a character, and | |
12264 | 1910 not echo it a second time. |
1911 | |
1912 If the command didn't actually create a prefix arg, | |
1913 but is merely a frame event that is transparent to prefix args, | |
1914 then the above doesn't apply. */ | |
1915 if (NILP (current_kboard->Vprefix_arg) || CONSP (last_command_char)) | |
518 | 1916 { |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1917 current_kboard->Vlast_command = Vthis_command; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
1918 current_kboard->Vreal_last_command = real_this_command; |
518 | 1919 cancel_echoing (); |
1920 this_command_key_count = 0; | |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
1921 this_command_key_count_reset = 0; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
1922 this_single_command_key_start = 0; |
518 | 1923 } |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1924 |
6208
db4139d43f8a
(command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents:
6204
diff
changeset
|
1925 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
|
1926 { |
57999
3166194a373f
(command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents:
57950
diff
changeset
|
1927 /* Setting transient-mark-mode to `only' is a way of |
3166194a373f
(command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents:
57950
diff
changeset
|
1928 turning it on for just one command. */ |
3166194a373f
(command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents:
57950
diff
changeset
|
1929 |
3166194a373f
(command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents:
57950
diff
changeset
|
1930 if (EQ (Vtransient_mark_mode, Qidentity)) |
3166194a373f
(command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents:
57950
diff
changeset
|
1931 Vtransient_mark_mode = Qnil; |
3166194a373f
(command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents:
57950
diff
changeset
|
1932 if (EQ (Vtransient_mark_mode, Qonly)) |
3166194a373f
(command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents:
57950
diff
changeset
|
1933 Vtransient_mark_mode = Qidentity; |
3166194a373f
(command_loop_1): Change Vtransient_mark_mode
Richard M. Stallman <rms@gnu.org>
parents:
57950
diff
changeset
|
1934 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1935 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
|
1936 { |
44523
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
1937 /* We could also call `deactivate'mark'. */ |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
1938 if (EQ (Vtransient_mark_mode, Qlambda)) |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
1939 Vtransient_mark_mode = Qnil; |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
1940 else |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
1941 { |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
1942 current_buffer->mark_active = Qnil; |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
1943 call1 (Vrun_hooks, intern ("deactivate-mark-hook")); |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
1944 } |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1945 } |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
1946 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
|
1947 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
|
1948 } |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1949 |
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1950 finalize: |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1951 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1952 if (current_buffer == prev_buffer |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1953 && last_point_position != PT |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1954 && NILP (Vdisable_point_adjustment) |
49010
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1955 && NILP (Vglobal_disable_point_adjustment) |
ce422542bd8d
(command_loop_1): Call adjust_point_for_property
Richard M. Stallman <rms@gnu.org>
parents:
48508
diff
changeset
|
1956 && !already_adjusted) |
49408
7e6cf4411cd4
(adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents:
49322
diff
changeset
|
1957 adjust_point_for_property (last_point_position, MODIFF != prev_modiff); |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1958 |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1959 /* Install chars successfully executed in kbd macro. */ |
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1960 |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1961 if (!NILP (current_kboard->defining_kbd_macro) |
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
1962 && NILP (current_kboard->Vprefix_arg)) |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1963 finalize_kbd_macro_chars (); |
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1964 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
1965 #ifdef MULTI_KBOARD |
10827
4dfd3634b155
(unlock_display): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10820
diff
changeset
|
1966 if (!was_locked) |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
1967 any_kboard_state (); |
10626
616345f74278
(cmd_error): Clear prefix arg here.
Karl Heuer <kwzh@gnu.org>
parents:
10602
diff
changeset
|
1968 #endif |
518 | 1969 } |
1970 } | |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
1971 |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1972 extern Lisp_Object Qcomposition, Qdisplay; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1973 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1974 /* 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
|
1975 that should be treated intangible. For the moment, we check |
48131
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
1976 `composition', `display' and `invisible' properties. |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
1977 LAST_PT is the last position of point. */ |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1978 |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
1979 extern Lisp_Object Qafter_string, Qbefore_string; |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
1980 extern Lisp_Object get_pos_property P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
1981 |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1982 static void |
49408
7e6cf4411cd4
(adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents:
49322
diff
changeset
|
1983 adjust_point_for_property (last_pt, modified) |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1984 int last_pt; |
49408
7e6cf4411cd4
(adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents:
49322
diff
changeset
|
1985 int modified; |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1986 { |
48131
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
1987 int beg, end; |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
1988 Lisp_Object val, overlay, tmp; |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
1989 int check_composition = 1, check_display = 1, check_invisible = 1; |
50941
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
1990 int orig_pt = PT; |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
1991 |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
1992 /* FIXME: cycling is probably not necessary because these properties |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
1993 can't be usefully combined anyway. */ |
48131
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
1994 while (check_composition || check_display || check_invisible) |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1995 { |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1996 if (check_composition |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
1997 && PT > BEGV && PT < ZV |
48131
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
1998 && get_property_and_range (PT, Qcomposition, &val, &beg, &end, Qnil) |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
1999 && COMPOSITION_VALID_P (beg, end, val) |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2000 && beg < PT /* && end > PT <- It's always the case. */ |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2001 && (last_pt <= beg || last_pt >= end)) |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2002 { |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2003 xassert (end > PT); |
48131
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2004 SET_PT (PT < last_pt ? beg : end); |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2005 check_display = check_invisible = 1; |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
2006 } |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
2007 check_composition = 0; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
2008 if (check_display |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
2009 && PT > BEGV && PT < ZV |
48131
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2010 && !NILP (val = get_char_property_and_overlay |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2011 (make_number (PT), Qdisplay, Qnil, &overlay)) |
29816
6863a9ae42d6
(adjust_point_for_property): Check if display
Gerd Moellmann <gerd@gnu.org>
parents:
29729
diff
changeset
|
2012 && display_prop_intangible_p (val) |
48131
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2013 && (!OVERLAYP (overlay) |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2014 ? get_property_and_range (PT, Qdisplay, &val, &beg, &end, Qnil) |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2015 : (beg = OVERLAY_POSITION (OVERLAY_START (overlay)), |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2016 end = OVERLAY_POSITION (OVERLAY_END (overlay)))) |
62421
68eb1c8b3f80
(adjust_point_for_property): Skip empty overlay string.
Kim F. Storm <storm@cua.dk>
parents:
62284
diff
changeset
|
2017 && (beg < PT /* && end > PT <- It's always the case. */ |
68eb1c8b3f80
(adjust_point_for_property): Skip empty overlay string.
Kim F. Storm <storm@cua.dk>
parents:
62284
diff
changeset
|
2018 || (beg <= PT && STRINGP (val) && SCHARS (val) == 0))) |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2019 { |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2020 xassert (end > PT); |
62421
68eb1c8b3f80
(adjust_point_for_property): Skip empty overlay string.
Kim F. Storm <storm@cua.dk>
parents:
62284
diff
changeset
|
2021 SET_PT (PT < last_pt |
68eb1c8b3f80
(adjust_point_for_property): Skip empty overlay string.
Kim F. Storm <storm@cua.dk>
parents:
62284
diff
changeset
|
2022 ? (STRINGP (val) && SCHARS (val) == 0 ? beg - 1 : beg) |
68eb1c8b3f80
(adjust_point_for_property): Skip empty overlay string.
Kim F. Storm <storm@cua.dk>
parents:
62284
diff
changeset
|
2023 : end); |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2024 check_composition = check_invisible = 1; |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
2025 } |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
2026 check_display = 0; |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2027 if (check_invisible && PT > BEGV && PT < ZV) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2028 { |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2029 int inv, ellipsis = 0; |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2030 beg = end = PT; |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2031 |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2032 /* Find boundaries `beg' and `end' of the invisible area, if any. */ |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2033 while (end < ZV |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2034 && !NILP (val = get_char_property_and_overlay |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2035 (make_number (end), Qinvisible, Qnil, &overlay)) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2036 && (inv = TEXT_PROP_MEANS_INVISIBLE (val))) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2037 { |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2038 ellipsis = ellipsis || inv > 1 |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2039 || (OVERLAYP (overlay) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2040 && (!NILP (Foverlay_get (overlay, Qafter_string)) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2041 || !NILP (Foverlay_get (overlay, Qbefore_string)))); |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2042 tmp = Fnext_single_char_property_change |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2043 (make_number (end), Qinvisible, Qnil, Qnil); |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2044 end = NATNUMP (tmp) ? XFASTINT (tmp) : ZV; |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2045 } |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2046 while (beg > BEGV |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2047 && !NILP (val = get_char_property_and_overlay |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2048 (make_number (beg - 1), Qinvisible, Qnil, &overlay)) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2049 && (inv = TEXT_PROP_MEANS_INVISIBLE (val))) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2050 { |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2051 ellipsis = ellipsis || inv > 1 |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2052 || (OVERLAYP (overlay) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2053 && (!NILP (Foverlay_get (overlay, Qafter_string)) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2054 || !NILP (Foverlay_get (overlay, Qbefore_string)))); |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2055 tmp = Fprevious_single_char_property_change |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2056 (make_number (beg), Qinvisible, Qnil, Qnil); |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2057 beg = NATNUMP (tmp) ? XFASTINT (tmp) : BEGV; |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2058 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2059 |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2060 /* Move away from the inside area. */ |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2061 if (beg < PT && end > PT) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2062 { |
50941
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2063 SET_PT ((orig_pt == PT && (last_pt < beg || last_pt > end)) |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2064 /* We haven't moved yet (so we don't need to fear |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2065 infinite-looping) and we were outside the range |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2066 before (so either end of the range still corresponds |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2067 to a move in the right direction): pretend we moved |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2068 less than we actually did, so that we still have |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2069 more freedom below in choosing which end of the range |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2070 to go to. */ |
50949
620ed035578e
(adjust_point_for_property): Be more careful about termination.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50944
diff
changeset
|
2071 ? (orig_pt = -1, PT < last_pt ? end : beg) |
50941
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2072 /* We either have moved already or the last point |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2073 was already in the range: we don't get to choose |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2074 which end of the range we have to go to. */ |
5490960951c1
(adjust_point_for_property): Try harder to move point
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50817
diff
changeset
|
2075 : (PT < last_pt ? beg : end)); |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2076 check_composition = check_display = 1; |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2077 } |
54181
6c578d781772
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-119
Miles Bader <miles@gnu.org>
parents:
54163
diff
changeset
|
2078 #if 0 /* This assertion isn't correct, because SET_PT may end up setting |
6c578d781772
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-119
Miles Bader <miles@gnu.org>
parents:
54163
diff
changeset
|
2079 the point to something other than its argument, due to |
6c578d781772
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-119
Miles Bader <miles@gnu.org>
parents:
54163
diff
changeset
|
2080 point-motion hooks, intangibility, etc. */ |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2081 xassert (PT == beg || PT == end); |
54181
6c578d781772
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-119
Miles Bader <miles@gnu.org>
parents:
54163
diff
changeset
|
2082 #endif |
6c578d781772
Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-119
Miles Bader <miles@gnu.org>
parents:
54163
diff
changeset
|
2083 |
49408
7e6cf4411cd4
(adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents:
49322
diff
changeset
|
2084 /* Pretend the area doesn't exist if the buffer is not |
7e6cf4411cd4
(adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents:
49322
diff
changeset
|
2085 modified. */ |
7e6cf4411cd4
(adjust_point_for_property): New second arg MODIFIED.
Kenichi Handa <handa@m17n.org>
parents:
49322
diff
changeset
|
2086 if (!modified && !ellipsis && beg < end) |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2087 { |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2088 if (last_pt == beg && PT == end && end < ZV) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2089 (check_composition = check_display = 1, SET_PT (end + 1)); |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2090 else if (last_pt == end && PT == beg && beg > BEGV) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2091 (check_composition = check_display = 1, SET_PT (beg - 1)); |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2092 else if (PT == ((PT < last_pt) ? beg : end)) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2093 /* We've already moved as far as we can. Trying to go |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2094 to the other end would mean moving backwards and thus |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2095 could lead to an infinite loop. */ |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2096 ; |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2097 else if (val = get_pos_property (make_number (PT), |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2098 Qinvisible, Qnil), |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2099 TEXT_PROP_MEANS_INVISIBLE (val) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2100 && (val = get_pos_property |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2101 (make_number (PT == beg ? end : beg), |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2102 Qinvisible, Qnil), |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2103 !TEXT_PROP_MEANS_INVISIBLE (val))) |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2104 (check_composition = check_display = 1, |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2105 SET_PT (PT == beg ? end : beg)); |
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
2106 } |
48131
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2107 } |
8da4ccdeb8e0
(adjust_point_for_property): Handle `display' prop on overlays.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48086
diff
changeset
|
2108 check_invisible = 0; |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
2109 } |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
2110 } |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
2111 |
11540
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2112 /* 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
|
2113 |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2114 static Lisp_Object |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2115 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
|
2116 Lisp_Object hook; |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2117 { |
72168
4c683d3ba427
(safe_run_hooks_1): Don't crash if Vrun_hooks is nil.
Richard M. Stallman <rms@gnu.org>
parents:
72131
diff
changeset
|
2118 if (NILP (Vrun_hooks)) |
4c683d3ba427
(safe_run_hooks_1): Don't crash if Vrun_hooks is nil.
Richard M. Stallman <rms@gnu.org>
parents:
72131
diff
changeset
|
2119 return Qnil; |
11540
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2120 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
|
2121 } |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2122 |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2123 /* 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
|
2124 |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2125 static Lisp_Object |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2126 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
|
2127 Lisp_Object data; |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2128 { |
50817
62632c0ed6ea
(safe_run_hooks_error): Display the error instead of silently ignoring it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50805
diff
changeset
|
2129 Lisp_Object args[3]; |
62632c0ed6ea
(safe_run_hooks_error): Display the error instead of silently ignoring it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50805
diff
changeset
|
2130 args[0] = build_string ("Error in %s: %s"); |
62632c0ed6ea
(safe_run_hooks_error): Display the error instead of silently ignoring it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50805
diff
changeset
|
2131 args[1] = Vinhibit_quit; |
62632c0ed6ea
(safe_run_hooks_error): Display the error instead of silently ignoring it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50805
diff
changeset
|
2132 args[2] = data; |
62632c0ed6ea
(safe_run_hooks_error): Display the error instead of silently ignoring it.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50805
diff
changeset
|
2133 Fmessage (3, args); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
2134 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
|
2135 } |
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2136 |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
2137 /* 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
|
2138 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
|
2139 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
|
2140 |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
2141 void |
7428
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
2142 safe_run_hooks (hook) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
2143 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
|
2144 { |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
2145 int count = SPECPDL_INDEX (); |
11540
b8b8a11a1aed
(safe_run_hooks_1, safe_run_hooks_error): New subroutines.
Richard M. Stallman <rms@gnu.org>
parents:
11484
diff
changeset
|
2146 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
|
2147 |
14219
22324381ef74
(safe_run_hooks): Use Qt, not Qerror, to avoid running the debugger.
Richard M. Stallman <rms@gnu.org>
parents:
14186
diff
changeset
|
2148 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
|
2149 |
e14086d8ba6f
(safe_run_hooks): New function, extracted from command_loop_1. Bind
Karl Heuer <kwzh@gnu.org>
parents:
7427
diff
changeset
|
2150 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
|
2151 } |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2152 |
518 | 2153 |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2154 /* 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
|
2155 variable that can be bound. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2156 |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43496
diff
changeset
|
2157 EMACS_INT polling_period; |
518 | 2158 |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3538
diff
changeset
|
2159 /* 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
|
2160 |
518 | 2161 int poll_suppress_count; |
2162 | |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2163 /* Asynchronous timer for polling. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2164 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2165 struct atimer *poll_timer; |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2166 |
8653
07cc798f5cab
(polling_for_input): Define var unconditionally.
Richard M. Stallman <rms@gnu.org>
parents:
8589
diff
changeset
|
2167 |
518 | 2168 #ifdef POLL_FOR_INPUT |
2169 | |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2170 /* 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
|
2171 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
|
2172 there. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2173 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2174 void |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2175 poll_for_input_1 () |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2176 { |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
2177 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
|
2178 && !waiting_for_input) |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2436
diff
changeset
|
2179 read_avail_input (0); |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2180 } |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2181 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2182 /* 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
|
2183 poll_timer. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2184 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2185 void |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2186 poll_for_input (timer) |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2187 struct atimer *timer; |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2188 { |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2189 if (poll_suppress_count == 0) |
61496
b06b2e541697
(poll_for_input) [SYNC_INPUT]: Don't call poll_for_input_1. Set
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61419
diff
changeset
|
2190 #ifdef SYNC_INPUT |
b06b2e541697
(poll_for_input) [SYNC_INPUT]: Don't call poll_for_input_1. Set
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61419
diff
changeset
|
2191 interrupt_input_pending = 1; |
b06b2e541697
(poll_for_input) [SYNC_INPUT]: Don't call poll_for_input_1. Set
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61419
diff
changeset
|
2192 #else |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2193 poll_for_input_1 (); |
61496
b06b2e541697
(poll_for_input) [SYNC_INPUT]: Don't call poll_for_input_1. Set
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61419
diff
changeset
|
2194 #endif |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2195 } |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2196 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2197 #endif /* POLL_FOR_INPUT */ |
518 | 2198 |
2199 /* Begin signals to poll for input, if they are appropriate. | |
2200 This function is called unconditionally from various places. */ | |
2201 | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
2202 void |
518 | 2203 start_polling () |
2204 { | |
2205 #ifdef POLL_FOR_INPUT | |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
2206 if (read_socket_hook && !interrupt_input) |
518 | 2207 { |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2208 /* 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
|
2209 been turned off in process.c. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2210 turn_on_atimers (1); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2211 |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2212 /* 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
|
2213 a different interval, start a new one. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2214 if (poll_timer == NULL |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2215 || EMACS_SECS (poll_timer->interval) != polling_period) |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2216 { |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2217 EMACS_TIME interval; |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2218 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2219 if (poll_timer) |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2220 cancel_atimer (poll_timer); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2221 |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2222 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
|
2223 poll_timer = start_atimer (ATIMER_CONTINUOUS, interval, |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2224 poll_for_input, NULL); |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2225 } |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2226 |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2227 /* 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
|
2228 if this becomes zero. */ |
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2229 --poll_suppress_count; |
518 | 2230 } |
2231 #endif | |
2232 } | |
2233 | |
8673
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2234 /* 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
|
2235 |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2236 int |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2237 input_polling_used () |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2238 { |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2239 #ifdef POLL_FOR_INPUT |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2240 return read_socket_hook && !interrupt_input; |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2241 #else |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2242 return 0; |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2243 #endif |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2244 } |
6d1d308ff12d
(input_polling_used): New function.
Richard M. Stallman <rms@gnu.org>
parents:
8653
diff
changeset
|
2245 |
518 | 2246 /* Turn off polling. */ |
2247 | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
2248 void |
518 | 2249 stop_polling () |
2250 { | |
2251 #ifdef POLL_FOR_INPUT | |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
2252 if (read_socket_hook && !interrupt_input) |
27431
92e0ea1917dd
(toplevel): Include systime.h and atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents:
27275
diff
changeset
|
2253 ++poll_suppress_count; |
518 | 2254 #endif |
2255 } | |
4475
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2256 |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2257 /* 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
|
2258 and start or stop polling accordingly. */ |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2259 |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2260 void |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2261 set_poll_suppress_count (count) |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2262 int count; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2263 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2264 #ifdef POLL_FOR_INPUT |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2265 if (count == 0 && poll_suppress_count != 0) |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2266 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2267 poll_suppress_count = 1; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2268 start_polling (); |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2269 } |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2270 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
|
2271 { |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2272 stop_polling (); |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2273 } |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2274 poll_suppress_count = count; |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2275 #endif |
e9389ba6e04c
(set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4471
diff
changeset
|
2276 } |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
2277 |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
2278 /* 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
|
2279 But don't decrease it. */ |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
2280 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
2281 void |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
2282 bind_polling_period (n) |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
2283 int n; |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
2284 { |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
2285 #ifdef POLL_FOR_INPUT |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
2286 int new = polling_period; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
2287 |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
2288 if (n > new) |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
2289 new = n; |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
2290 |
27668
be97ea826e95
(bind_polling_period): Stop all timers except
Gerd Moellmann <gerd@gnu.org>
parents:
27431
diff
changeset
|
2291 stop_other_atimers (poll_timer); |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
2292 stop_polling (); |
7502
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
2293 specbind (Qpolling_period, make_number (new)); |
30ce667c8026
(bind_polling_period): Never decrease polling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7500
diff
changeset
|
2294 /* 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
|
2295 start_polling (); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
2296 #endif |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
2297 } |
518 | 2298 |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
2299 /* Apply the control modifier to CHARACTER. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
2300 |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2301 int |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2302 make_ctrl_char (c) |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2303 int c; |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2304 { |
2954
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2305 /* Save the upper bits here. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2306 int upper = c & ~0177; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2307 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2308 c &= 0177; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2309 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2310 /* Everything in the columns containing the upper-case letters |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2311 denotes a control character. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2312 if (c >= 0100 && c < 0140) |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2313 { |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2314 int oc = c; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2315 c &= ~0140; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2316 /* Set the shift modifier for a control char |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2317 made from a shifted letter. But only for letters! */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2318 if (oc >= 'A' && oc <= 'Z') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2319 c |= shift_modifier; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2320 } |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2321 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2322 /* The lower-case letters denote control characters too. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2323 else if (c >= 'a' && c <= 'z') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2324 c &= ~0140; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2325 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2326 /* Include the bits for control and shift |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2327 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
|
2328 else if (c >= ' ') |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2329 c |= ctrl_modifier; |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2330 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2331 /* Replace the high bits. */ |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
2332 c |= (upper & ~ctrl_modifier); |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2333 |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2334 return c; |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2335 } |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2336 |
61419 | 2337 /* Display the help-echo property of the character after the mouse pointer. |
2338 Either show it in the echo area, or call show-help-function to display | |
2339 it by other means (maybe in a tooltip). | |
2340 | |
2341 If HELP is nil, that means clear the previous help echo. | |
2342 | |
2343 If HELP is a string, display that string. If HELP is a function, | |
2344 call it with OBJECT and POS as arguments; the function should | |
2345 return a help string or nil for none. For all other types of HELP, | |
2346 evaluate it to obtain a string. | |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2347 |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2348 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
|
2349 It is nil if not in a window. |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2350 |
30368
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
2351 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
|
2352 `help-echo' text property was found. |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
2353 |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
2354 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
|
2355 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
|
2356 |
7867dcfece5f
(show_help_echo, gen_help_event): Extend comments.
Gerd Moellmann <gerd@gnu.org>
parents:
30300
diff
changeset
|
2357 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
|
2358 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
|
2359 the mouse. |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2360 |
44135 | 2361 OK_TO_OVERWRITE_KEYSTROKE_ECHO non-zero means it's okay if the help |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2362 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
|
2363 area. |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2364 |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2365 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
|
2366 from X code running asynchronously. */ |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2367 |
30051
70d9d51a864c
(show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29816
diff
changeset
|
2368 void |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2369 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
|
2370 Lisp_Object help, window, object, pos; |
30142
5bfb859adb13
(show_help_echo): Accept additional parameter
Eli Zaretskii <eliz@gnu.org>
parents:
30051
diff
changeset
|
2371 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
|
2372 { |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2373 if (!NILP (help) && !STRINGP (help)) |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2374 { |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2375 if (FUNCTIONP (help)) |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2376 { |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2377 Lisp_Object args[4]; |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2378 args[0] = help; |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2379 args[1] = window; |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2380 args[2] = object; |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
2381 args[3] = pos; |
32174
13415f4f854a
(Frecursive_edit): Make sure redisplay can happen.
Gerd Moellmann <gerd@gnu.org>
parents:
32140
diff
changeset
|
2382 help = safe_call (4, args); |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2383 } |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2384 else |
32174
13415f4f854a
(Frecursive_edit): Make sure redisplay can happen.
Gerd Moellmann <gerd@gnu.org>
parents:
32140
diff
changeset
|
2385 help = safe_eval (help); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2386 |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2387 if (!STRINGP (help)) |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2388 return; |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2389 } |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2390 |
61163
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
2391 #ifdef HAVE_MOUSE |
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
2392 if (!noninteractive && STRINGP (help)) |
72460
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2393 { |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2394 /* The mouse-fixup-help-message Lisp function can call |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2395 mouse_position_hook, which resets the mouse_moved flags. |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2396 This causes trouble if we are trying to read a mouse motion |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2397 event (i.e., if we are inside a `track-mouse' form), so we |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2398 restore the mouse_moved flag. */ |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2399 FRAME_PTR f = NILP (do_mouse_tracking) ? NULL : some_mouse_moved (); |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2400 help = call1 (Qmouse_fixup_help_message, help); |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2401 if (f) |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2402 f->mouse_moved = 1; |
dd4d02e66de4
* keyboard.c (show_help_echo): Preserve mouse movement flag if
Chong Yidong <cyd@stupidchicken.com>
parents:
72445
diff
changeset
|
2403 } |
61163
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
2404 #endif |
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
2405 |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2406 if (STRINGP (help) || NILP (help)) |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2407 { |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2408 if (!NILP (Vshow_help_function)) |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2409 call1 (Vshow_help_function, help); |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2410 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
|
2411 !MINI_WINDOW_P (XWINDOW (selected_window)) |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2412 /* 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
|
2413 && (NILP (echo_message_buffer) |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2414 || ok_to_overwrite_keystroke_echo) |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2415 /* Don't overwrite a prompt. */ |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2416 && !cursor_in_echo_area) |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2417 { |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2418 if (STRINGP (help)) |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2419 { |
46285
3f111801efb4
Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46181
diff
changeset
|
2420 int count = SPECPDL_INDEX (); |
38751
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
2421 |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
2422 if (!help_echo_showing_p) |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
2423 Vpre_help_message = current_message (); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2424 |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2425 specbind (Qmessage_truncate_lines, Qt); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
2426 message3_nolog (help, SBYTES (help), |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
2427 STRING_MULTIBYTE (help)); |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2428 unbind_to (count, Qnil); |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2429 } |
38751
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
2430 else if (STRINGP (Vpre_help_message)) |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
2431 { |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
2432 message3_nolog (Vpre_help_message, |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
2433 SBYTES (Vpre_help_message), |
38751
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
2434 STRING_MULTIBYTE (Vpre_help_message)); |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
2435 Vpre_help_message = Qnil; |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
2436 } |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2437 else |
38751
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
2438 message (0); |
31877
517180d8eccd
(show_help_echo): Set help_echo_showing_p.
Gerd Moellmann <gerd@gnu.org>
parents:
31697
diff
changeset
|
2439 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2440 |
31877
517180d8eccd
(show_help_echo): Set help_echo_showing_p.
Gerd Moellmann <gerd@gnu.org>
parents:
31697
diff
changeset
|
2441 help_echo_showing_p = STRINGP (help); |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
2442 } |
30051
70d9d51a864c
(show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29816
diff
changeset
|
2443 } |
70d9d51a864c
(show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29816
diff
changeset
|
2444 |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2445 |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
2446 |
518 | 2447 /* Input of single characters from keyboard */ |
2448 | |
2449 Lisp_Object print_help (); | |
2450 static Lisp_Object kbd_buffer_get_event (); | |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2451 static void record_char (); |
518 | 2452 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2453 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2454 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
|
2455 #endif |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2456 |
47643
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2457 #define STOP_POLLING \ |
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2458 do { if (! polling_stopped_here) stop_polling (); \ |
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2459 polling_stopped_here = 1; } while (0) |
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2460 |
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2461 #define RESUME_POLLING \ |
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2462 do { if (polling_stopped_here) start_polling (); \ |
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2463 polling_stopped_here = 0; } while (0) |
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2464 |
518 | 2465 /* read a character from the keyboard; call the redisplay if needed */ |
2466 /* commandflag 0 means do not do auto-saving, but do do redisplay. | |
2467 -1 means do not do redisplay, but do do autosaving. | |
2468 1 means do both. */ | |
2469 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2470 /* 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
|
2471 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
|
2472 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2473 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
|
2474 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
|
2475 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
|
2476 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
|
2477 not reading a key sequence. |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2478 |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
2479 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
|
2480 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
|
2481 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
|
2482 |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2483 If END_TIME is non-null, it is a pointer to an EMACS_TIME |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2484 specifying the maximum time to wait until. If no input arrives by |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2485 that time, stop waiting and return nil. |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2486 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
2487 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
|
2488 |
518 | 2489 Lisp_Object |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2490 read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu, end_time) |
518 | 2491 int commandflag; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2492 int nmaps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2493 Lisp_Object *maps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2494 Lisp_Object prev_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2495 int *used_mouse_menu; |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2496 EMACS_TIME *end_time; |
518 | 2497 { |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
2498 volatile Lisp_Object c; |
72276
b3b5d904f956
* keyboard.c (read_char): Rebalance specpdl after receiving jump.
Chong Yidong <cyd@stupidchicken.com>
parents:
72168
diff
changeset
|
2499 int count, jmpcount; |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2500 jmp_buf local_getcjmp; |
518 | 2501 jmp_buf save_jump; |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
2502 volatile int key_already_recorded = 0; |
12476
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
2503 Lisp_Object tem, save; |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
2504 volatile Lisp_Object previous_echo_area_message; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
2505 volatile Lisp_Object also_record; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
2506 volatile int reread; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
2507 struct gcpro gcpro1, gcpro2; |
47643
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2508 int polling_stopped_here = 0; |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2509 |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
2510 also_record = Qnil; |
518 | 2511 |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
2512 #if 0 /* This was commented out as part of fixing echo for C-u left. */ |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
2513 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
|
2514 before_command_echo_length = echo_length (); |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
2515 #endif |
18944
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2516 c = Qnil; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2517 previous_echo_area_message = Qnil; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2518 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2519 GCPRO2 (c, previous_echo_area_message); |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
2520 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2521 retry: |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
2522 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2523 reread = 0; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2524 if (CONSP (Vunread_post_input_method_events)) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2525 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2526 c = XCAR (Vunread_post_input_method_events); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2527 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
|
2528 = XCDR (Vunread_post_input_method_events); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2529 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2530 /* 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
|
2531 additional keys returned by Fx_popup_menu. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2532 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
|
2533 && (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
|
2534 && NILP (XCDR (c))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2535 c = XCAR (c); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2536 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2537 reread = 1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2538 goto reread_first; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2539 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2540 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2541 if (unread_command_char != -1) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2542 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2543 XSETINT (c, unread_command_char); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2544 unread_command_char = -1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2545 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2546 reread = 1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2547 goto reread_first; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2548 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2549 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
2550 if (CONSP (Vunread_command_events)) |
518 | 2551 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2552 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
|
2553 Vunread_command_events = XCDR (Vunread_command_events); |
518 | 2554 |
73463
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2555 reread = 1; |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2556 |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2557 /* Undo what sit-for did when it unread additional keys |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2558 inside universal-argument. */ |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2559 |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2560 if (CONSP (c) |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2561 && EQ (XCAR (c), Qt)) |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2562 { |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2563 reread = 0; |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2564 c = XCDR (c); |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2565 } |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
2566 |
13638
eae7f6d657be
(read_char): Handle unread events from popup menus.
Richard M. Stallman <rms@gnu.org>
parents:
13582
diff
changeset
|
2567 /* 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
|
2568 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
|
2569 if (CONSP (c) |
38674
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
2570 && EQ (XCDR (c), Qdisabled) |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
2571 && (SYMBOLP (XCAR (c)) || INTEGERP (XCAR (c)))) |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2572 c = XCAR (c); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2573 |
36238
ab4e575401d9
(read_char): When an event from unread-command-events
Gerd Moellmann <gerd@gnu.org>
parents:
36196
diff
changeset
|
2574 /* If the queued event is something that used the mouse, |
ab4e575401d9
(read_char): When an event from unread-command-events
Gerd Moellmann <gerd@gnu.org>
parents:
36196
diff
changeset
|
2575 set used_mouse_menu accordingly. */ |
ab4e575401d9
(read_char): When an event from unread-command-events
Gerd Moellmann <gerd@gnu.org>
parents:
36196
diff
changeset
|
2576 if (used_mouse_menu |
ab4e575401d9
(read_char): When an event from unread-command-events
Gerd Moellmann <gerd@gnu.org>
parents:
36196
diff
changeset
|
2577 && (EQ (c, Qtool_bar) || EQ (c, Qmenu_bar))) |
ab4e575401d9
(read_char): When an event from unread-command-events
Gerd Moellmann <gerd@gnu.org>
parents:
36196
diff
changeset
|
2578 *used_mouse_menu = 1; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2579 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2580 goto reread_for_input_method; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2581 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2582 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2583 if (CONSP (Vunread_input_method_events)) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2584 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2585 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
|
2586 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
|
2587 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2588 /* 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
|
2589 additional keys returned by Fx_popup_menu. */ |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2590 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
|
2591 && (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
|
2592 && NILP (XCDR (c))) |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2593 c = XCAR (c); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2594 reread = 1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
2595 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
|
2596 } |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
2597 |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
2598 this_command_key_count_reset = 0; |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
2599 |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
2600 if (!NILP (Vexecuting_kbd_macro)) |
518 | 2601 { |
1239
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
2602 /* 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
|
2603 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
|
2604 remain unchanged. |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
2605 |
52afa4976154
* keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents:
1140
diff
changeset
|
2606 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
|
2607 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
|
2608 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
|
2609 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
|
2610 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
|
2611 selected. */ |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2612 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
|
2613 |
2719
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
2614 /* 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
|
2615 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
|
2616 to force an early exit. */ |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
2617 if (EQ (Vexecuting_kbd_macro, Qt) |
62024
4f7e1a56469e
(executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents:
61982
diff
changeset
|
2618 || executing_kbd_macro_index >= XFASTINT (Flength (Vexecuting_kbd_macro))) |
518 | 2619 { |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2620 XSETINT (c, -1); |
47643
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2621 goto exit; |
518 | 2622 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2623 |
62024
4f7e1a56469e
(executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents:
61982
diff
changeset
|
2624 c = Faref (Vexecuting_kbd_macro, make_number (executing_kbd_macro_index)); |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
2625 if (STRINGP (Vexecuting_kbd_macro) |
60653
daacc07136fb
(read_char): Only do the 7-bit-meta -> 27-bit-meta
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60556
diff
changeset
|
2626 && (XINT (c) & 0x80) && (XUINT (c) <= 0xff)) |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
2627 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
|
2628 |
62024
4f7e1a56469e
(executing_kbd_macro_index): Rename from executing_macro_index.
Kim F. Storm <storm@cua.dk>
parents:
61982
diff
changeset
|
2629 executing_kbd_macro_index++; |
518 | 2630 |
2631 goto from_macro; | |
2632 } | |
2633 | |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2634 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
|
2635 { |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2636 c = unread_switch_frame; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2637 unread_switch_frame = Qnil; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2638 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2639 /* 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
|
2640 again, so we do not set `reread'. */ |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
2641 goto reread_first; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2642 } |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
2643 |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2644 /* if redisplay was requested */ |
18501
37f4c7aeb5a8
(read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents:
18405
diff
changeset
|
2645 if (commandflag >= 0) |
37f4c7aeb5a8
(read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents:
18405
diff
changeset
|
2646 { |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2647 /* 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
|
2648 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
|
2649 if (input_pending |
37f4c7aeb5a8
(read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents:
18405
diff
changeset
|
2650 || detect_input_pending_run_timers (0)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2651 swallow_events (0); /* may clear input_pending */ |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2652 |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2653 /* Redisplay if no pending input. */ |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2654 while (!input_pending) |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2655 { |
31877
517180d8eccd
(show_help_echo): Set help_echo_showing_p.
Gerd Moellmann <gerd@gnu.org>
parents:
31697
diff
changeset
|
2656 if (help_echo_showing_p && !EQ (selected_window, minibuf_window)) |
35336
002c02db42d3
Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents:
35255
diff
changeset
|
2657 redisplay_preserve_echo_area (5); |
31877
517180d8eccd
(show_help_echo): Set help_echo_showing_p.
Gerd Moellmann <gerd@gnu.org>
parents:
31697
diff
changeset
|
2658 else |
517180d8eccd
(show_help_echo): Set help_echo_showing_p.
Gerd Moellmann <gerd@gnu.org>
parents:
31697
diff
changeset
|
2659 redisplay (); |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2660 |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2661 if (!input_pending) |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2662 /* Normal case: no input arrived during redisplay. */ |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2663 break; |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2664 |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2665 /* Input arrived and pre-empted redisplay. |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2666 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
|
2667 swallow_events (0); |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
2668 /* 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
|
2669 } |
18501
37f4c7aeb5a8
(read_char): Add a call to swallow_events
Richard M. Stallman <rms@gnu.org>
parents:
18405
diff
changeset
|
2670 } |
518 | 2671 |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2672 /* Message turns off echoing unless more keystrokes turn it on again. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2673 |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2674 The code in 20.x for the condition was |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2675 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2676 1. echo_area_glyphs && *echo_area_glyphs |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2677 2. && echo_area_glyphs != current_kboard->echobuf |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2678 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
|
2679 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2680 (1) means there's a current message displayed |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2681 |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2682 (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
|
2683 kboard. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2684 |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2685 (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
|
2686 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
|
2687 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
|
2688 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
|
2689 current_kboard->echobuf with the appropriate current_kboard at |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2690 that time. |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2691 |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2692 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
|
2693 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
|
2694 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
|
2695 current one. */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2696 |
44135 | 2697 if (/* There currently is 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
|
2698 !NILP (echo_area_buffer[0]) |
28672
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2699 && (/* And it's either not from echoing. */ |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2700 !EQ (echo_area_buffer[0], echo_message_buffer) |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2701 /* Or it's an echo from a different kboard. */ |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2702 || echo_kboard != current_kboard |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2703 /* Or we explicitly allow overwriting whatever there is. */ |
4cb794d0027e
(echo_message_buffer): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
28507
diff
changeset
|
2704 || 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
|
2705 cancel_echoing (); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2706 else |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2707 echo_dash (); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2708 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2709 /* 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
|
2710 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
|
2711 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
|
2712 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
|
2713 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
|
2714 c = Qnil; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2715 if (nmaps > 0 && INTERACTIVE |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2716 && !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
|
2717 /* 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
|
2718 && NILP (Vunread_command_events) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2719 && unread_command_char < 0 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
2720 && !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
|
2721 { |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2722 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
|
2723 if (! NILP (c)) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2724 { |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2725 key_already_recorded = 1; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2726 goto non_reread_1; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2727 } |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2728 } |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2729 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2730 /* 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
|
2731 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
|
2732 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
|
2733 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
|
2734 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
|
2735 |
72276
b3b5d904f956
* keyboard.c (read_char): Rebalance specpdl after receiving jump.
Chong Yidong <cyd@stupidchicken.com>
parents:
72168
diff
changeset
|
2736 jmpcount = SPECPDL_INDEX (); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2737 if (_setjmp (local_getcjmp)) |
518 | 2738 { |
63548
3a486bf74d99
(read_char): Call restore_getcjmp after jump occurs.
Richard M. Stallman <rms@gnu.org>
parents:
63185
diff
changeset
|
2739 /* We must have saved the outer value of getcjmp here, |
3a486bf74d99
(read_char): Call restore_getcjmp after jump occurs.
Richard M. Stallman <rms@gnu.org>
parents:
63185
diff
changeset
|
2740 so restore it now. */ |
3a486bf74d99
(read_char): Call restore_getcjmp after jump occurs.
Richard M. Stallman <rms@gnu.org>
parents:
63185
diff
changeset
|
2741 restore_getcjmp (save_jump); |
72276
b3b5d904f956
* keyboard.c (read_char): Rebalance specpdl after receiving jump.
Chong Yidong <cyd@stupidchicken.com>
parents:
72168
diff
changeset
|
2742 unbind_to (jmpcount, Qnil); |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
2743 XSETINT (c, quit_char); |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
2744 internal_last_event_frame = selected_frame; |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2745 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
|
2746 /* 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
|
2747 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
|
2748 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
|
2749 Vquit_flag = Qnil; |
518 | 2750 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2751 #ifdef MULTI_KBOARD |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2752 { |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
2753 KBOARD *kb = FRAME_KBOARD (XFRAME (selected_frame)); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2754 if (kb != current_kboard) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2755 { |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2756 Lisp_Object link = kb->kbd_queue; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2757 /* 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
|
2758 if (single_kboard) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2759 abort (); |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2760 if (CONSP (link)) |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2761 { |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2762 while (CONSP (XCDR (link))) |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2763 link = XCDR (link); |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2764 if (!NILP (XCDR (link))) |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2765 abort (); |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2766 } |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2767 if (!CONSP (link)) |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2768 kb->kbd_queue = Fcons (c, Qnil); |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2769 else |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2770 XSETCDR (link, Fcons (c, Qnil)); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2771 kb->kbd_queue_has_data = 1; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2772 current_kboard = kb; |
18944
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2773 /* This is going to exit from read_char |
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2774 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
|
2775 UNGCPRO; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2776 longjmp (wrong_kboard_jmpbuf, 1); |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2777 } |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2778 } |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2779 #endif |
518 | 2780 goto non_reread; |
2781 } | |
2782 | |
72402
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
2783 /* Start idle timers if no time limit is supplied. We don't do it |
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
2784 if a time limit is supplied to avoid an infinite recursion in the |
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
2785 situation where an idle timer calls `sit-for'. */ |
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
2786 |
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
2787 if (!end_time) |
72391
b2e68179adaa
* keyboard.c (read_char): Don't reset idle timers if a time limit
Chong Yidong <cyd@stupidchicken.com>
parents:
72341
diff
changeset
|
2788 timer_start_idle (); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2789 |
518 | 2790 /* If in middle of key sequence and minibuffer not active, |
2791 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
|
2792 |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
2793 if (minibuf_level == 0 |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2794 && !end_time |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
2795 && !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
|
2796 && 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
|
2797 && ! noninteractive |
27769
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
2798 && (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
|
2799 && 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
|
2800 && (/* No message. */ |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2801 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
|
2802 /* Or empty message. */ |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
2803 || (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
|
2804 == 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
|
2805 /* 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
|
2806 || (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
|
2807 /* 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
|
2808 || (!echo_kboard && ok_to_echo_at_next_pause))) |
518 | 2809 { |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2810 /* After a mouse event, start echoing right away. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2811 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
|
2812 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
|
2813 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
|
2814 echo_now (); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2815 else |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2816 { |
71798
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
2817 Lisp_Object tem0; |
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
2818 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2819 save_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2820 restore_getcjmp (local_getcjmp); |
71798
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
2821 tem0 = sit_for (Vecho_keystrokes, 1, 1); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2822 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
|
2823 if (EQ (tem0, Qt) |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2824 && ! CONSP (Vunread_command_events)) |
14454
e5414c274414
(echo_now): Renamed from `echo'. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14453
diff
changeset
|
2825 echo_now (); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2826 } |
518 | 2827 } |
2828 | |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2829 /* Maybe auto save due to number of keystrokes. */ |
518 | 2830 |
2831 if (commandflag != 0 | |
2832 && auto_save_interval > 0 | |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
2833 && 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
|
2834 && !detect_input_pending_run_timers (0)) |
518 | 2835 { |
2836 Fdo_auto_save (Qnil, Qnil); | |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
2837 /* 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
|
2838 redisplay (); |
518 | 2839 } |
2840 | |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
2841 /* 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
|
2842 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
|
2843 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
|
2844 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
|
2845 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
2846 if (nmaps > 0 && INTERACTIVE |
11613
c4ef6460a9c9
(read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents:
11543
diff
changeset
|
2847 && !NILP (prev_event) |
c4ef6460a9c9
(read_char, read_char_x_menu_prompt): Exclude
Karl Heuer <kwzh@gnu.org>
parents:
11543
diff
changeset
|
2848 && 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
|
2849 && !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
|
2850 && !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
|
2851 /* 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
|
2852 && NILP (Vunread_command_events) |
7396
3774d6d8a5ee
(read_char): Don't text do_mouse_tracking;
Richard M. Stallman <rms@gnu.org>
parents:
7351
diff
changeset
|
2853 && 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
|
2854 { |
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
|
2855 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
|
2856 |
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
|
2857 /* Now that we have read an event, Emacs is not idle. */ |
72402
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
2858 if (!end_time) |
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
2859 timer_stop_idle (); |
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
|
2860 |
47643
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2861 goto exit; |
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
|
2862 } |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2863 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2864 /* 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
|
2865 |
3920
81d29cf5b232
* keyboard.c (read_char): Don't do idle autosaves if we're not
Jim Blandy <jimb@redhat.com>
parents:
3887
diff
changeset
|
2866 if (INTERACTIVE && NILP (c)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2867 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2868 int delay_level, buffer_size; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2869 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2870 /* 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
|
2871 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
|
2872 if (! MINI_WINDOW_P (XWINDOW (selected_window))) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2873 last_non_minibuf_size = Z - BEG; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2874 buffer_size = (last_non_minibuf_size >> 8) + 1; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2875 delay_level = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2876 while (buffer_size > 64) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2877 delay_level++, buffer_size -= buffer_size >> 2; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2878 if (delay_level < 4) delay_level = 4; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2879 /* 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
|
2880 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
|
2881 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2882 /* 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
|
2883 if (commandflag != 0 |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
2884 && 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
|
2885 && INTEGERP (Vauto_save_timeout) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2886 && XINT (Vauto_save_timeout) > 0) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2887 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2888 Lisp_Object tem0; |
71798
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
2889 int timeout = delay_level * XFASTINT (Vauto_save_timeout) / 4; |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2890 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2891 save_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2892 restore_getcjmp (local_getcjmp); |
71798
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
2893 tem0 = sit_for (make_number (timeout), 1, 1); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2894 restore_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2895 |
18231
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2896 if (EQ (tem0, Qt) |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2897 && ! CONSP (Vunread_command_events)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2898 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2899 Fdo_auto_save (Qnil, Qnil); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2900 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2901 /* 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
|
2902 available, garbage collect if there has been enough |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2903 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
|
2904 if (!detect_input_pending_run_timers (0) |
64614
482ea9d640ec
(read_char): Test gc_cons_threshold.
Richard M. Stallman <rms@gnu.org>
parents:
64270
diff
changeset
|
2905 && 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
|
2906 Fgarbage_collect (); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2907 |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
2908 redisplay (); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2909 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2910 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
2911 } |
518 | 2912 |
18231
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2913 /* 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
|
2914 or sentinel or filter. */ |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2915 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
|
2916 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2917 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
|
2918 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
|
2919 } |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
2920 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2921 /* 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
|
2922 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
2923 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
|
2924 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2925 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
|
2926 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2927 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
|
2928 abort (); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
2929 c = XCAR (current_kboard->kbd_queue); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2930 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
|
2931 = XCDR (current_kboard->kbd_queue); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2932 if (NILP (current_kboard->kbd_queue)) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2933 current_kboard->kbd_queue_has_data = 0; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
2934 input_pending = readable_events (0); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2935 if (EVENT_HAS_PARAMETERS (c) |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2936 && 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
|
2937 internal_last_event_frame = XCAR (XCDR (c)); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
2938 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
|
2939 } |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2940 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2941 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2942 #ifdef MULTI_KBOARD |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2943 /* 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
|
2944 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
|
2945 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
|
2946 |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2947 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
|
2948 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
|
2949 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
|
2950 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
|
2951 if (NILP (c) && !single_kboard) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2952 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2953 KBOARD *kb; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2954 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
|
2955 if (kb->kbd_queue_has_data) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2956 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2957 current_kboard = kb; |
18944
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2958 /* This is going to exit from read_char |
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
2959 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
|
2960 UNGCPRO; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2961 longjmp (wrong_kboard_jmpbuf, 1); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2962 } |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2963 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2964 #endif |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
2965 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2966 wrong_kboard: |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2967 |
47643
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
2968 STOP_POLLING; |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2969 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2970 /* 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
|
2971 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
|
2972 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
|
2973 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2974 if (NILP (c)) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2975 { |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2976 KBOARD *kb; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2977 |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2978 if (end_time) |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2979 { |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2980 EMACS_TIME now; |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2981 EMACS_GET_TIME (now); |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2982 if (EMACS_TIME_GE (now, *end_time)) |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2983 goto exit; |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2984 } |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2985 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
2986 /* 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
|
2987 save_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2988 restore_getcjmp (local_getcjmp); |
72402
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
2989 if (!end_time) |
72391
b2e68179adaa
* keyboard.c (read_char): Don't reset idle timers if a time limit
Chong Yidong <cyd@stupidchicken.com>
parents:
72341
diff
changeset
|
2990 timer_start_idle (); |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
2991 c = kbd_buffer_get_event (&kb, used_mouse_menu, end_time); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2992 restore_getcjmp (save_jump); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2993 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
2994 #ifdef MULTI_KBOARD |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
2995 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
|
2996 { |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2997 Lisp_Object link = kb->kbd_queue; |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2998 if (CONSP (link)) |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
2999 { |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
3000 while (CONSP (XCDR (link))) |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
3001 link = XCDR (link); |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
3002 if (!NILP (XCDR (link))) |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
3003 abort (); |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
3004 } |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
3005 if (!CONSP (link)) |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
3006 kb->kbd_queue = Fcons (c, Qnil); |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
3007 else |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
3008 XSETCDR (link, Fcons (c, Qnil)); |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3009 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
|
3010 c = Qnil; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3011 if (single_kboard) |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3012 goto wrong_kboard; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3013 current_kboard = kb; |
18944
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
3014 /* This is going to exit from read_char |
e7a1ad118598
(read_char): Delete spurious UNGCPRO.
Richard M. Stallman <rms@gnu.org>
parents:
18886
diff
changeset
|
3015 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
|
3016 UNGCPRO; |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3017 longjmp (wrong_kboard_jmpbuf, 1); |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3018 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
3019 #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
|
3020 } |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3021 |
518 | 3022 /* 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
|
3023 if (noninteractive && INTEGERP (c) && XINT (c) < 0) |
518 | 3024 Fkill_emacs (make_number (1)); |
3025 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
3026 if (INTEGERP (c)) |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3027 { |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3028 /* Add in any extra modifiers, where appropriate. */ |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3029 if ((extra_keyboard_modifiers & CHAR_CTL) |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3030 || ((extra_keyboard_modifiers & 0177) < ' ' |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3031 && (extra_keyboard_modifiers & 0177) != 0)) |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
3032 XSETINT (c, make_ctrl_char (XINT (c))); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3033 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3034 /* Transfer any other modifier bits directly from |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
3035 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
|
3036 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
|
3037 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
|
3038 } |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
3039 |
518 | 3040 non_reread: |
3041 | |
72402
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
3042 if (!end_time) |
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
3043 timer_stop_idle (); |
47643
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
3044 RESUME_POLLING; |
518 | 3045 |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3046 if (NILP (c)) |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3047 { |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3048 if (commandflag >= 0 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
3049 && !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
|
3050 redisplay (); |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3051 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3052 goto wrong_kboard; |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3053 } |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3054 |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3055 non_reread_1: |
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3056 |
8569
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
3057 /* Buffer switch events are only for internal wakeups |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
3058 so don't show them to the user. |
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
3059 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
|
3060 if (BUFFERP (c) || key_already_recorded) |
47643
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
3061 goto exit; |
8994
818bddaf3e03
(cmd_error_internal): New function, broken out of cmd_error.
Richard M. Stallman <rms@gnu.org>
parents:
8938
diff
changeset
|
3062 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
3063 /* Process special events within read_char |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
3064 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
|
3065 save = Vquit_flag; |
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
3066 Vquit_flag = Qnil; |
32988
c3435dc00ed7
* lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32752
diff
changeset
|
3067 tem = access_keymap (get_keymap (Vspecial_event_map, 0, 1), c, 0, 0, 1); |
12476
5518def44198
(read_char): Temporarily clear Vquit_flag
Richard M. Stallman <rms@gnu.org>
parents:
12469
diff
changeset
|
3068 Vquit_flag = save; |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
3069 |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
3070 if (!NILP (tem)) |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
3071 { |
14537
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
3072 int was_locked = single_kboard; |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
3073 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
3074 last_input_char = c; |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
3075 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
|
3076 |
72402
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
3077 if (CONSP (c) && EQ (XCAR (c), Qselect_window) && !end_time) |
44338
b6b565886e78
(read_char): If the event was Qselect_window,
Eli Zaretskii <eliz@gnu.org>
parents:
44300
diff
changeset
|
3078 /* We stopped being idle for this event; undo that. This |
b6b565886e78
(read_char): If the event was Qselect_window,
Eli Zaretskii <eliz@gnu.org>
parents:
44300
diff
changeset
|
3079 prevents automatic window selection (under |
44358 | 3080 mouse_autoselect_window from acting as a real input event, for |
44338
b6b565886e78
(read_char): If the event was Qselect_window,
Eli Zaretskii <eliz@gnu.org>
parents:
44300
diff
changeset
|
3081 example banishing the mouse under mouse-avoidance-mode. */ |
57410
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
3082 timer_resume_idle (); |
44338
b6b565886e78
(read_char): If the event was Qselect_window,
Eli Zaretskii <eliz@gnu.org>
parents:
44300
diff
changeset
|
3083 |
14537
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
3084 /* 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
|
3085 if (!was_locked) |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
3086 any_kboard_state (); |
60e0c134c055
(read_char, timer_check): Call any_kboard_state
Richard M. Stallman <rms@gnu.org>
parents:
14490
diff
changeset
|
3087 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
3088 goto retry; |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
3089 } |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
3090 |
518 | 3091 /* 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
|
3092 if (INTEGERP (c)) |
518 | 3093 { |
3094 /* 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
|
3095 if (XINT (c) == -1) |
47643
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
3096 goto exit; |
518 | 3097 |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
3098 if ((STRINGP (Vkeyboard_translate_table) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
3099 && SCHARS (Vkeyboard_translate_table) > (unsigned) XFASTINT (c)) |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
3100 || (VECTORP (Vkeyboard_translate_table) |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
3101 && 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
|
3102 || (CHAR_TABLE_P (Vkeyboard_translate_table) |
48146 | 3103 && CHAR_VALID_P (XINT (c), 0))) |
13246
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
3104 { |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
3105 Lisp_Object d; |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
3106 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
|
3107 /* 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
|
3108 if (!NILP (d)) |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
3109 c = d; |
47725e106652
(read_char): Let Vkeyboard_translate_table be char-table.
Richard M. Stallman <rms@gnu.org>
parents:
13191
diff
changeset
|
3110 } |
518 | 3111 } |
3112 | |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3113 /* 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
|
3114 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
|
3115 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
|
3116 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
|
3117 && CONSP (XCDR (c)) |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3118 && 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
|
3119 && CONSP (XCDR (EVENT_START (c)))) |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3120 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3121 Lisp_Object posn; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3122 |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
3123 posn = POSN_POSN (EVENT_START (c)); |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3124 /* Handle menu-bar events: |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3125 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
|
3126 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
|
3127 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3128 /* Change menu-bar to (menu-bar) as the event "position". */ |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
3129 POSN_SET_POSN (EVENT_START (c), Fcons (posn, Qnil)); |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3130 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3131 also_record = c; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3132 Vunread_command_events = Fcons (c, Vunread_command_events); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3133 c = posn; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3134 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3135 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3136 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3137 /* 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
|
3138 and the keyboard macro being defined, if any. */ |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3139 record_char (c); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3140 if (! NILP (also_record)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3141 record_char (also_record); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3142 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3143 /* Wipe the echo area. |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3144 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
|
3145 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
|
3146 if (INTEGERP (c) |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3147 && ! NILP (Vinput_method_function) |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3148 && (unsigned) XINT (c) >= ' ' |
29099
a72f4aba9f93
(read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents:
28871
diff
changeset
|
3149 && (unsigned) XINT (c) != 127 |
a72f4aba9f93
(read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents:
28871
diff
changeset
|
3150 && (unsigned) XINT (c) < 256) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
3151 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
3152 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
|
3153 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
|
3154 } |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3155 |
28871
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
3156 /* 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
|
3157 own stuff with the echo area. */ |
39436
9a94c8b3b450
(read_char): Don't clear a message for a switch-frame
Gerd Moellmann <gerd@gnu.org>
parents:
39338
diff
changeset
|
3158 if (!CONSP (c) |
9a94c8b3b450
(read_char): Don't clear a message for a switch-frame
Gerd Moellmann <gerd@gnu.org>
parents:
39338
diff
changeset
|
3159 || (!(EQ (Qhelp_echo, XCAR (c))) |
9a94c8b3b450
(read_char): Don't clear a message for a switch-frame
Gerd Moellmann <gerd@gnu.org>
parents:
39338
diff
changeset
|
3160 && !(EQ (Qswitch_frame, XCAR (c))))) |
28871
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
3161 { |
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
3162 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
|
3163 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
|
3164 clear_message (1, 0); |
519993861cdd
(read_char): Don't clear current message for help
Gerd Moellmann <gerd@gnu.org>
parents:
28679
diff
changeset
|
3165 } |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3166 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3167 reread_for_input_method: |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3168 from_macro: |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3169 /* 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
|
3170 if (INTEGERP (c) |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3171 && ! 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
|
3172 /* 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
|
3173 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
|
3174 && NILP (prev_event) |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3175 && (unsigned) XINT (c) >= ' ' |
29099
a72f4aba9f93
(read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents:
28871
diff
changeset
|
3176 && (unsigned) XINT (c) != 127 |
a72f4aba9f93
(read_char): Allow character codes 128..255 to be
Kenichi Handa <handa@m17n.org>
parents:
28871
diff
changeset
|
3177 && (unsigned) XINT (c) < 256) |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3178 { |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
3179 Lisp_Object keys; |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
3180 int key_count, key_count_reset; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3181 struct gcpro gcpro1; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
3182 int count = SPECPDL_INDEX (); |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3183 |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3184 /* Save the echo status. */ |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3185 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
|
3186 struct kboard *saved_ok_to_echo = ok_to_echo_at_next_pause; |
58967
33c30193127d
(read_char): Save and restore echo_string when
Kim F. Storm <storm@cua.dk>
parents:
58965
diff
changeset
|
3187 Lisp_Object saved_echo_string = current_kboard->echo_string; |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3188 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
|
3189 |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
3190 #if 0 |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3191 if (before_command_restore_flag) |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3192 { |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3193 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
|
3194 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
|
3195 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
|
3196 echo_truncate (before_command_echo_length_1); |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3197 before_command_restore_flag = 0; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3198 } |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
3199 #endif |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3200 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3201 /* Save the this_command_keys status. */ |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3202 key_count = this_command_key_count; |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
3203 key_count_reset = this_command_key_count_reset; |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3204 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3205 if (key_count > 0) |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3206 keys = Fcopy_sequence (this_command_keys); |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3207 else |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3208 keys = Qnil; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3209 GCPRO1 (keys); |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3210 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3211 /* Clear out this_command_keys. */ |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3212 this_command_key_count = 0; |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
3213 this_command_key_count_reset = 0; |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3214 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3215 /* 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
|
3216 if (!NILP (echo_area_buffer[0])) |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3217 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
|
3218 clear_message (1, 0); |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3219 echo_truncate (0); |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3220 |
23065
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
3221 /* 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
|
3222 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
|
3223 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
|
3224 { |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
3225 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
|
3226 } |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
3227 |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3228 /* Call the input method. */ |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3229 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
|
3230 |
26b311ef19c6
(read_char): If not reading a key sequence (MAPS is nil),
Richard M. Stallman <rms@gnu.org>
parents:
23047
diff
changeset
|
3231 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
|
3232 |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3233 /* Restore the saved echoing state |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3234 and this_command_keys state. */ |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3235 this_command_key_count = key_count; |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
3236 this_command_key_count_reset = key_count_reset; |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3237 if (key_count > 0) |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3238 this_command_keys = keys; |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3239 |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3240 cancel_echoing (); |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3241 ok_to_echo_at_next_pause = saved_ok_to_echo; |
58967
33c30193127d
(read_char): Save and restore echo_string when
Kim F. Storm <storm@cua.dk>
parents:
58965
diff
changeset
|
3242 current_kboard->echo_string = saved_echo_string; |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3243 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
|
3244 if (saved_immediate_echo) |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3245 echo_now (); |
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3246 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3247 UNGCPRO; |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
3248 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3249 /* The input method can return no events. */ |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3250 if (! CONSP (tem)) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3251 { |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3252 /* 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
|
3253 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
|
3254 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
|
3255 goto retry; |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3256 } |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3257 /* 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
|
3258 c = XCAR (tem); |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
3259 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
|
3260 = 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
|
3261 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3262 |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3263 reread_first: |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
3264 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
3265 /* 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
|
3266 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
|
3267 { |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
3268 /* (help-echo FRAME HELP WINDOW OBJECT POS). */ |
40736
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3269 Lisp_Object help, object, position, window, tem; |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3270 |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3271 tem = Fcdr (XCDR (c)); |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3272 help = Fcar (tem); |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3273 tem = Fcdr (tem); |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3274 window = Fcar (tem); |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3275 tem = Fcdr (tem); |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3276 object = Fcar (tem); |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3277 tem = Fcdr (tem); |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3278 position = Fcar (tem); |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
3279 |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
3280 show_help_echo (help, window, object, position, 0); |
38195
7255d1f70b82
(read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents:
37742
diff
changeset
|
3281 |
7255d1f70b82
(read_char) <non_reread>: Record the previous idle
Gerd Moellmann <gerd@gnu.org>
parents:
37742
diff
changeset
|
3282 /* We stopped being idle for this event; undo that. */ |
72402
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
3283 if (!end_time) |
949ddf473439
* keyboard.c (read_char): Don't change idle timer state at all if
Chong Yidong <cyd@stupidchicken.com>
parents:
72391
diff
changeset
|
3284 timer_resume_idle (); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
3285 goto retry; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
3286 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
3287 |
72845
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
3288 if ((! reread || this_command_key_count == 0 |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
3289 || this_command_key_count_reset) |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
3290 && !end_time) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3291 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3292 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3293 /* 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
|
3294 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
|
3295 && NILP (Fzerop (Vecho_keystrokes)) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3296 && ! (EVENT_HAS_PARAMETERS (c) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3297 && 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
|
3298 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3299 echo_char (c); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3300 if (! NILP (also_record)) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3301 echo_char (also_record); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3302 /* Once we reread a character, echoing can happen |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3303 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
|
3304 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
|
3305 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3306 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3307 /* 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
|
3308 add_command_key (c); |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3309 if (! NILP (also_record)) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3310 add_command_key (also_record); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3311 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
3312 |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3313 last_input_char = c; |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
3314 num_input_events++; |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3315 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3316 /* Process the help character specially if enabled */ |
12144 | 3317 if (!NILP (Vhelp_form) && help_char_p (c)) |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3318 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3319 Lisp_Object tem0; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
3320 count = SPECPDL_INDEX (); |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3321 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3322 record_unwind_protect (Fset_window_configuration, |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3323 Fcurrent_window_configuration (Qnil)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3324 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3325 tem0 = Feval (Vhelp_form); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3326 if (STRINGP (tem0)) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3327 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
|
3328 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3329 cancel_echoing (); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3330 do |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
3331 c = read_char (0, 0, 0, Qnil, 0, NULL); |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3332 while (BUFFERP (c)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3333 /* Remove the help from the frame */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3334 unbind_to (count, Qnil); |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3335 |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3336 redisplay (); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3337 if (EQ (c, make_number (040))) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3338 { |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3339 cancel_echoing (); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3340 do |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
3341 c = read_char (0, 0, 0, Qnil, 0, NULL); |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3342 while (BUFFERP (c)); |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3343 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3344 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3345 |
47643
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
3346 exit: |
e6806bc4402e
(STOP_POLLING, RESUME_POLLING): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
47392
diff
changeset
|
3347 RESUME_POLLING; |
18886
c24b5da01b1f
(Fcommand_execute): gcpro c.
Richard M. Stallman <rms@gnu.org>
parents:
18778
diff
changeset
|
3348 RETURN_UNGCPRO (c); |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3349 } |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3350 |
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
|
3351 /* 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
|
3352 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
|
3353 |
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
|
3354 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
|
3355 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
|
3356 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
|
3357 { |
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
|
3358 /* 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
|
3359 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
|
3360 |
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
|
3361 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
|
3362 |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
3363 #if 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
|
3364 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
|
3365 before_command_echo_length = echo_length (); |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
3366 #endif |
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
|
3367 |
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
|
3368 /* 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
|
3369 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
|
3370 && 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
|
3371 { |
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
|
3372 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
|
3373 |
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
|
3374 /* 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
|
3375 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
|
3376 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
|
3377 } |
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
|
3378 |
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
|
3379 /* 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
|
3380 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
|
3381 |
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
|
3382 /* 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
|
3383 last_input_char = c; |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
3384 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
|
3385 } |
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
|
3386 |
12144 | 3387 /* Return 1 if should recognize C as "the help character". */ |
3388 | |
3389 int | |
3390 help_char_p (c) | |
3391 Lisp_Object c; | |
3392 { | |
3393 Lisp_Object tail; | |
3394 | |
3395 if (EQ (c, Vhelp_char)) | |
3396 return 1; | |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
3397 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
|
3398 if (EQ (c, XCAR (tail))) |
12144 | 3399 return 1; |
3400 return 0; | |
3401 } | |
3402 | |
9689
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3403 /* Record the input event C in various ways. */ |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3404 |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3405 static void |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3406 record_char (c) |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3407 Lisp_Object c; |
fb713e1560d1
(record_char): New subroutine.
Richard M. Stallman <rms@gnu.org>
parents:
9668
diff
changeset
|
3408 { |
42337
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3409 int recorded = 0; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3410 |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3411 if (CONSP (c) && (EQ (XCAR (c), Qhelp_echo) || EQ (XCAR (c), Qmouse_movement))) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3412 { |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3413 /* To avoid filling recent_keys with help-echo and mouse-movement |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3414 events, we filter out repeated help-echo events, only store the |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3415 first and last in a series of mouse-movement events, and don't |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3416 store repeated help-echo events which are only separated by |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3417 mouse-movement events. */ |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3418 |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3419 Lisp_Object ev1, ev2, ev3; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3420 int ix1, ix2, ix3; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
3421 |
42337
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3422 if ((ix1 = recent_keys_index - 1) < 0) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3423 ix1 = NUM_RECENT_KEYS - 1; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3424 ev1 = AREF (recent_keys, ix1); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
3425 |
42337
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3426 if ((ix2 = ix1 - 1) < 0) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3427 ix2 = NUM_RECENT_KEYS - 1; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3428 ev2 = AREF (recent_keys, ix2); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
3429 |
42337
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3430 if ((ix3 = ix2 - 1) < 0) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3431 ix3 = NUM_RECENT_KEYS - 1; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3432 ev3 = AREF (recent_keys, ix3); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
3433 |
42337
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3434 if (EQ (XCAR (c), Qhelp_echo)) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3435 { |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3436 /* Don't record `help-echo' in recent_keys unless it shows some help |
42928
f03a11bcb718
(record_char): Fix a typo in a comment.
Eli Zaretskii <eliz@gnu.org>
parents:
42707
diff
changeset
|
3437 message, and a different help than the previously recorded |
42337
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3438 event. */ |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3439 Lisp_Object help, last_help; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3440 |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3441 help = Fcar_safe (Fcdr_safe (XCDR (c))); |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3442 if (!STRINGP (help)) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3443 recorded = 1; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3444 else if (CONSP (ev1) && EQ (XCAR (ev1), Qhelp_echo) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3445 && (last_help = Fcar_safe (Fcdr_safe (XCDR (ev1))), EQ (last_help, help))) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3446 recorded = 1; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3447 else if (CONSP (ev1) && EQ (XCAR (ev1), Qmouse_movement) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3448 && CONSP (ev2) && EQ (XCAR (ev2), Qhelp_echo) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3449 && (last_help = Fcar_safe (Fcdr_safe (XCDR (ev2))), EQ (last_help, help))) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3450 recorded = -1; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3451 else if (CONSP (ev1) && EQ (XCAR (ev1), Qmouse_movement) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3452 && CONSP (ev2) && EQ (XCAR (ev2), Qmouse_movement) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3453 && CONSP (ev3) && EQ (XCAR (ev3), Qhelp_echo) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3454 && (last_help = Fcar_safe (Fcdr_safe (XCDR (ev3))), EQ (last_help, help))) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3455 recorded = -2; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3456 } |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3457 else if (EQ (XCAR (c), Qmouse_movement)) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3458 { |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3459 /* Only record one pair of `mouse-movement' on a window in recent_keys. |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3460 So additional mouse movement events replace the last element. */ |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3461 Lisp_Object last_window, window; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3462 |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3463 window = Fcar_safe (Fcar_safe (XCDR (c))); |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3464 if (CONSP (ev1) && EQ (XCAR (ev1), Qmouse_movement) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3465 && (last_window = Fcar_safe (Fcar_safe (XCDR (ev1))), EQ (last_window, window)) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3466 && CONSP (ev2) && EQ (XCAR (ev2), Qmouse_movement) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3467 && (last_window = Fcar_safe (Fcar_safe (XCDR (ev2))), EQ (last_window, window))) |
34217
9e2f85266e61
(record_char): Don't record identical help-echo
Gerd Moellmann <gerd@gnu.org>
parents:
34174
diff
changeset
|
3468 { |
42337
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3469 ASET (recent_keys, ix1, c); |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3470 recorded = 1; |
34217
9e2f85266e61
(record_char): Don't record identical help-echo
Gerd Moellmann <gerd@gnu.org>
parents:
34174
diff
changeset
|
3471 } |
9e2f85266e61
(record_char): Don't record identical help-echo
Gerd Moellmann <gerd@gnu.org>
parents:
34174
diff
changeset
|
3472 } |
9e2f85266e61
(record_char): Don't record identical help-echo
Gerd Moellmann <gerd@gnu.org>
parents:
34174
diff
changeset
|
3473 } |
9e2f85266e61
(record_char): Don't record identical help-echo
Gerd Moellmann <gerd@gnu.org>
parents:
34174
diff
changeset
|
3474 else |
42337
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3475 store_kbd_macro_char (c); |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3476 |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3477 if (!recorded) |
34164
cfbe6873d494
(record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents:
33908
diff
changeset
|
3478 { |
cfbe6873d494
(record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents:
33908
diff
changeset
|
3479 total_keys++; |
cfbe6873d494
(record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents:
33908
diff
changeset
|
3480 ASET (recent_keys, recent_keys_index, c); |
cfbe6873d494
(record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents:
33908
diff
changeset
|
3481 if (++recent_keys_index >= NUM_RECENT_KEYS) |
cfbe6873d494
(record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents:
33908
diff
changeset
|
3482 recent_keys_index = 0; |
cfbe6873d494
(record_char): Record `help-echo' input events
Gerd Moellmann <gerd@gnu.org>
parents:
33908
diff
changeset
|
3483 } |
42337
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3484 else if (recorded < 0) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3485 { |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3486 /* We need to remove one or two events from recent_keys. |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3487 To do this, we simply put nil at those events and move the |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3488 recent_keys_index backwards over those events. Usually, |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3489 users will never see those nil events, as they will be |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3490 overwritten by the command keys entered to see recent_keys |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3491 (e.g. C-h l). */ |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3492 |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3493 while (recorded++ < 0 && total_keys > 0) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3494 { |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3495 if (total_keys < NUM_RECENT_KEYS) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3496 total_keys--; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3497 if (--recent_keys_index < 0) |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3498 recent_keys_index = NUM_RECENT_KEYS - 1; |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3499 ASET (recent_keys, recent_keys_index, Qnil); |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3500 } |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3501 } |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3502 |
aed4f1043eb8
(record_char): Ignore duplicate help-echo events only
Kim F. Storm <storm@cua.dk>
parents:
42121
diff
changeset
|
3503 num_nonmacro_input_events++; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
3504 |
518 | 3505 /* Write c to the dribble file. If c is a lispy event, write |
3506 the event's symbol to the dribble file, in <brackets>. Bleaugh. | |
3507 If you, dear reader, have a better idea, you've got the source. :-) */ | |
3508 if (dribble) | |
3509 { | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
3510 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
|
3511 { |
3a9e9d3df590
(read_char): Don't show buffer-events to the user.
Richard M. Stallman <rms@gnu.org>
parents:
8502
diff
changeset
|
3512 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
|
3513 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
|
3514 else |
12087
3bbf71f1cf30
(cmd_error): Use NULL, not 0, as arg to cmd_error_internal.
Karl Heuer <kwzh@gnu.org>
parents:
12007
diff
changeset
|
3515 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
|
3516 } |
518 | 3517 else |
3518 { | |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3519 Lisp_Object dribblee; |
518 | 3520 |
3521 /* 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
|
3522 dribblee = EVENT_HEAD (c); |
518 | 3523 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
3524 if (SYMBOLP (dribblee)) |
518 | 3525 { |
3526 putc ('<', dribble); | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
3527 fwrite (SDATA (SYMBOL_NAME (dribblee)), sizeof (char), |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
3528 SBYTES (SYMBOL_NAME (dribblee)), |
518 | 3529 dribble); |
3530 putc ('>', dribble); | |
3531 } | |
3532 } | |
3533 | |
3534 fflush (dribble); | |
3535 } | |
3536 } | |
3537 | |
3538 Lisp_Object | |
3539 print_help (object) | |
3540 Lisp_Object object; | |
3541 { | |
9864
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
3542 struct buffer *old = current_buffer; |
518 | 3543 Fprinc (object, Qnil); |
9864
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
3544 set_buffer_internal (XBUFFER (Vstandard_output)); |
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
3545 call0 (intern ("help-mode")); |
0299d64cdd07
(print_help): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9840
diff
changeset
|
3546 set_buffer_internal (old); |
518 | 3547 return Qnil; |
3548 } | |
3549 | |
3550 /* Copy out or in the info on where C-g should throw to. | |
3551 This is used when running Lisp code from within get_char, | |
3552 in case get_char is called recursively. | |
3553 See read_process_output. */ | |
3554 | |
21514 | 3555 static void |
518 | 3556 save_getcjmp (temp) |
3557 jmp_buf temp; | |
3558 { | |
3559 bcopy (getcjmp, temp, sizeof getcjmp); | |
3560 } | |
3561 | |
21514 | 3562 static void |
518 | 3563 restore_getcjmp (temp) |
3564 jmp_buf temp; | |
3565 { | |
3566 bcopy (temp, getcjmp, sizeof getcjmp); | |
3567 } | |
3568 | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3569 /* 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
|
3570 kbd_buffer_store_event places events in kbd_buffer, and |
13324 | 3571 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
|
3572 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3573 /* 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
|
3574 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
|
3575 static int |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
3576 readable_events (flags) |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
3577 int flags; |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
3578 { |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
3579 if (flags & READABLE_EVENTS_DO_TIMERS_NOW) |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
3580 timer_check (1); |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
3581 |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
3582 /* If the buffer contains only FOCUS_IN_EVENT events, and |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
3583 READABLE_EVENTS_FILTER_EVENTS is set, report it as empty. */ |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3584 if (kbd_fetch_ptr != kbd_store_ptr) |
45751
7318ee0c9772
(readable_events): Ignore any number of
Richard M. Stallman <rms@gnu.org>
parents:
45419
diff
changeset
|
3585 { |
62284
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3586 if (flags & (READABLE_EVENTS_FILTER_EVENTS |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3587 #ifdef USE_TOOLKIT_SCROLL_BARS |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3588 | READABLE_EVENTS_IGNORE_SQUEEZABLES |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3589 #endif |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3590 )) |
46077
afcc2cec9ba0
(readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45881
diff
changeset
|
3591 { |
afcc2cec9ba0
(readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45881
diff
changeset
|
3592 struct input_event *event; |
afcc2cec9ba0
(readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45881
diff
changeset
|
3593 |
afcc2cec9ba0
(readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45881
diff
changeset
|
3594 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE) |
afcc2cec9ba0
(readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45881
diff
changeset
|
3595 ? kbd_fetch_ptr |
afcc2cec9ba0
(readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45881
diff
changeset
|
3596 : kbd_buffer); |
afcc2cec9ba0
(readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45881
diff
changeset
|
3597 |
62284
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3598 do |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3599 { |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3600 if (!( |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3601 #ifdef USE_TOOLKIT_SCROLL_BARS |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3602 (flags & READABLE_EVENTS_FILTER_EVENTS) && |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3603 #endif |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3604 event->kind == FOCUS_IN_EVENT) |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3605 #ifdef USE_TOOLKIT_SCROLL_BARS |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3606 && !((flags & READABLE_EVENTS_IGNORE_SQUEEZABLES) |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3607 && event->kind == SCROLL_BAR_CLICK_EVENT |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3608 && event->part == scroll_bar_handle |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3609 && event->modifiers == 0) |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3610 #endif |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3611 ) |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3612 return 1; |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3613 event++; |
46077
afcc2cec9ba0
(readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45881
diff
changeset
|
3614 if (event == kbd_buffer + KBD_BUFFER_SIZE) |
afcc2cec9ba0
(readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45881
diff
changeset
|
3615 event = kbd_buffer; |
62284
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3616 } |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3617 while (event != kbd_store_ptr); |
46077
afcc2cec9ba0
(readable_filtered_events): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
45881
diff
changeset
|
3618 } |
62284
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3619 else |
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
3620 return 1; |
45751
7318ee0c9772
(readable_events): Ignore any number of
Richard M. Stallman <rms@gnu.org>
parents:
45419
diff
changeset
|
3621 } |
7318ee0c9772
(readable_events): Ignore any number of
Richard M. Stallman <rms@gnu.org>
parents:
45419
diff
changeset
|
3622 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3623 #ifdef HAVE_MOUSE |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
3624 if (!(flags & READABLE_EVENTS_IGNORE_SQUEEZABLES) |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
3625 && !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
|
3626 return 1; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3627 #endif |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3628 if (single_kboard) |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3629 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3630 if (current_kboard->kbd_queue_has_data) |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3631 return 1; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3632 } |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3633 else |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3634 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3635 KBOARD *kb; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3636 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
|
3637 if (kb->kbd_queue_has_data) |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3638 return 1; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3639 } |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3640 return 0; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3641 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3642 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3643 /* 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
|
3644 int stop_character; |
518 | 3645 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3646 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3647 static KBOARD * |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3648 event_to_kboard (event) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3649 struct input_event *event; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3650 { |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3651 Lisp_Object frame; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3652 frame = event->frame_or_window; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3653 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
|
3654 frame = XCAR (frame); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3655 else if (WINDOWP (frame)) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3656 frame = WINDOW_FRAME (XWINDOW (frame)); |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3657 |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3658 /* 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
|
3659 For now, just ignore the problem. |
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
3660 Also ignore dead frames here. */ |
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
3661 if (!FRAMEP (frame) || !FRAME_LIVE_P (XFRAME (frame))) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3662 return 0; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3663 else |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3664 return FRAME_KBOARD (XFRAME (frame)); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3665 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3666 #endif |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3667 |
58965
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
3668 |
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
3669 Lisp_Object Vthrow_on_input; |
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
3670 |
518 | 3671 /* Store an event obtained at interrupt level into kbd_buffer, fifo */ |
3672 | |
3673 void | |
3674 kbd_buffer_store_event (event) | |
3675 register struct input_event *event; | |
3676 { | |
54163
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3677 kbd_buffer_store_event_hold (event, 0); |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3678 } |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3679 |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3680 /* Store EVENT obtained at interrupt level into kbd_buffer, fifo. |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3681 |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3682 If HOLD_QUIT is 0, just stuff EVENT into the fifo. |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3683 Else, if HOLD_QUIT.kind != NO_EVENT, discard EVENT. |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3684 Else, if EVENT is a quit event, store the quit event |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3685 in HOLD_QUIT, and return (thus ignoring further events). |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3686 |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3687 This is used in read_avail_input to postpone the processing |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3688 of the quit event until all subsequent input events have been |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3689 parsed (and discarded). |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3690 */ |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3691 |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3692 void |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3693 kbd_buffer_store_event_hold (event, hold_quit) |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3694 register struct input_event *event; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3695 struct input_event *hold_quit; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3696 { |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3697 if (event->kind == NO_EVENT) |
518 | 3698 abort (); |
3699 | |
54163
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3700 if (hold_quit && hold_quit->kind != NO_EVENT) |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3701 return; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3702 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3703 if (event->kind == ASCII_KEYSTROKE_EVENT) |
518 | 3704 { |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
3705 register int c = event->code & 0377; |
518 | 3706 |
2950
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
3707 if (event->modifiers & ctrl_modifier) |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
3708 c = make_ctrl_char (c); |
6dee690ddac5
* keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2924
diff
changeset
|
3709 |
4282
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
3710 c |= (event->modifiers |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
3711 & (meta_modifier | alt_modifier |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
3712 | hyper_modifier | super_modifier)); |
af81ea5c816e
(kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents:
4255
diff
changeset
|
3713 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
3714 if (c == quit_char) |
518 | 3715 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3716 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3717 KBOARD *kb; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3718 struct input_event *sp; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3719 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
3720 if (single_kboard |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3721 && (kb = FRAME_KBOARD (XFRAME (event->frame_or_window)), |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3722 kb != current_kboard)) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3723 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3724 kb->kbd_queue |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3725 = Fcons (make_lispy_switch_frame (event->frame_or_window), |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3726 Fcons (make_number (c), Qnil)); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3727 kb->kbd_queue_has_data = 1; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3728 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
|
3729 { |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3730 if (sp == kbd_buffer + KBD_BUFFER_SIZE) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3731 sp = kbd_buffer; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3732 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
3733 if (event_to_kboard (sp) == kb) |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3734 { |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3735 sp->kind = NO_EVENT; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3736 sp->frame_or_window = Qnil; |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3737 sp->arg = Qnil; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3738 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3739 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3740 return; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3741 } |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
3742 #endif |
985
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
3743 |
54163
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3744 if (hold_quit) |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3745 { |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3746 bcopy (event, (char *) hold_quit, sizeof (*event)); |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3747 return; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3748 } |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3749 |
518 | 3750 /* 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
|
3751 input, set Vlast_event_frame properly. If this doesn't |
518 | 3752 get returned to Emacs as an event, the next event read |
765 | 3753 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
|
3754 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3755 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
|
3756 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
3757 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
|
3758 if (NILP (focus)) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3759 focus = event->frame_or_window; |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3760 internal_last_event_frame = focus; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
3761 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
|
3762 } |
985
952aa214a3d0
* keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents:
966
diff
changeset
|
3763 |
648 | 3764 last_event_timestamp = event->timestamp; |
41824
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
3765 interrupt_signal (0 /* dummy */); |
518 | 3766 return; |
3767 } | |
3768 | |
3769 if (c && c == stop_character) | |
3770 { | |
3771 sys_suspend (); | |
3772 return; | |
3773 } | |
3774 } | |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3775 /* Don't insert two BUFFER_SWITCH_EVENT's in a row. |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
3776 Just ignore the second one. */ |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3777 else if (event->kind == BUFFER_SWITCH_EVENT |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
3778 && kbd_fetch_ptr != kbd_store_ptr |
54163
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3779 && ((kbd_store_ptr == kbd_buffer |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3780 ? kbd_buffer + KBD_BUFFER_SIZE - 1 |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3781 : kbd_store_ptr - 1)->kind) == BUFFER_SWITCH_EVENT) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
3782 return; |
518 | 3783 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3784 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
|
3785 kbd_store_ptr = kbd_buffer; |
518 | 3786 |
3787 /* Don't let the very last slot in the buffer become full, | |
3788 since that would make the two pointers equal, | |
3789 and that is indistinguishable from an empty buffer. | |
3790 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
|
3791 if (kbd_fetch_ptr - 1 != kbd_store_ptr) |
518 | 3792 { |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3793 *kbd_store_ptr = *event; |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
3794 ++kbd_store_ptr; |
518 | 3795 } |
58965
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
3796 |
59052
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3797 /* If we're inside while-no-input, and this event qualifies |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3798 as input, set quit-flag to cause an interrupt. */ |
58965
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
3799 if (!NILP (Vthrow_on_input) |
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
3800 && event->kind != FOCUS_IN_EVENT |
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
3801 && event->kind != HELP_EVENT |
74748
8a37dd687f38
(kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents:
74621
diff
changeset
|
3802 && event->kind != DEICONIFY_EVENT) |
59052
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3803 { |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3804 Vquit_flag = Vthrow_on_input; |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3805 /* If we're inside a function that wants immediate quits, |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3806 do it now. */ |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3807 if (immediate_quit && NILP (Vinhibit_quit)) |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3808 { |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3809 immediate_quit = 0; |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3810 sigfree (); |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3811 QUIT; |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3812 } |
e108ef5b9044
(kbd_buffer_store_event_hold):
Richard M. Stallman <rms@gnu.org>
parents:
58986
diff
changeset
|
3813 } |
518 | 3814 } |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3815 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3816 |
57950
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3817 /* Put an input event back in the head of the event queue. */ |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3818 |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3819 void |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3820 kbd_buffer_unget_event (event) |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3821 register struct input_event *event; |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3822 { |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3823 if (kbd_fetch_ptr == kbd_buffer) |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3824 kbd_fetch_ptr = kbd_buffer + KBD_BUFFER_SIZE; |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3825 |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3826 /* Don't let the very last slot in the buffer become full, */ |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3827 if (kbd_fetch_ptr - 1 != kbd_store_ptr) |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3828 { |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3829 --kbd_fetch_ptr; |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3830 *kbd_fetch_ptr = *event; |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3831 } |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3832 } |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3833 |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
3834 |
31201 | 3835 /* 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
|
3836 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
|
3837 event. |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3838 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3839 HELP is the help form. |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3840 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3841 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
|
3842 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
|
3843 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
|
3844 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
|
3845 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3846 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
|
3847 |
54163
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3848 void |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3849 gen_help_event (help, frame, window, object, pos) |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
3850 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
|
3851 int pos; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3852 { |
54163
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3853 struct input_event event; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3854 |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3855 EVENT_INIT (event); |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3856 |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3857 event.kind = HELP_EVENT; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3858 event.frame_or_window = frame; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3859 event.arg = object; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3860 event.x = WINDOWP (window) ? window : frame; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3861 event.y = help; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3862 event.code = pos; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
3863 kbd_buffer_store_event (&event); |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3864 } |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3865 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3866 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3867 /* 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
|
3868 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3869 void |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3870 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
|
3871 Lisp_Object frame, help; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3872 { |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3873 struct input_event event; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3874 |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3875 event.kind = HELP_EVENT; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3876 event.frame_or_window = frame; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3877 event.arg = Qnil; |
44523
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
3878 event.x = Qnil; |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
3879 event.y = help; |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3880 event.code = 0; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3881 kbd_buffer_store_event (&event); |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3882 } |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
3883 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3884 |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3885 /* Discard any mouse events in the event buffer by setting them to |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3886 NO_EVENT. */ |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3887 void |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3888 discard_mouse_events () |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3889 { |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3890 struct input_event *sp; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3891 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
|
3892 { |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3893 if (sp == kbd_buffer + KBD_BUFFER_SIZE) |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3894 sp = kbd_buffer; |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3895 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3896 if (sp->kind == MOUSE_CLICK_EVENT |
51384
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
3897 || sp->kind == WHEEL_EVENT |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3898 #ifdef WINDOWSNT |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3899 || sp->kind == W32_SCROLL_BAR_CLICK_EVENT |
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3900 #endif |
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3901 || sp->kind == SCROLL_BAR_CLICK_EVENT) |
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3902 { |
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3903 sp->kind = NO_EVENT; |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3904 } |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3905 } |
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3906 } |
30709
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3907 |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3908 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3909 /* Return non-zero if there are any real events waiting in the event |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3910 buffer, not counting `NO_EVENT's. |
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3911 |
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3912 If DISCARD is non-zero, discard NO_EVENT events at the front of |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3913 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
|
3914 are no real input events. */ |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3915 |
30709
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3916 int |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3917 kbd_buffer_events_waiting (discard) |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3918 int discard; |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3919 { |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3920 struct input_event *sp; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
3921 |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3922 for (sp = kbd_fetch_ptr; |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3923 sp != kbd_store_ptr && sp->kind == NO_EVENT; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3924 ++sp) |
30709
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3925 { |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3926 if (sp == kbd_buffer + KBD_BUFFER_SIZE) |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3927 sp = kbd_buffer; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3928 } |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3929 |
30709
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3930 if (discard) |
71b0b4b5d334
(kbd_buffer_events_waiting): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
30681
diff
changeset
|
3931 kbd_fetch_ptr = sp; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3932 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3933 return sp != kbd_store_ptr && sp->kind != NO_EVENT; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3934 } |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3935 |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
3936 |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3937 /* Clear input event EVENT. */ |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3938 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3939 static INLINE void |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3940 clear_event (event) |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3941 struct input_event *event; |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3942 { |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
3943 event->kind = NO_EVENT; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3944 } |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3945 |
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
3946 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
3947 /* 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
|
3948 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
|
3949 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
|
3950 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
|
3951 We always read and discard one event. */ |
518 | 3952 |
3953 static Lisp_Object | |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
3954 kbd_buffer_get_event (kbp, used_mouse_menu, end_time) |
11445
5146afa8e131
(kbd_buffer_get_event): Don't use prototype.
Richard M. Stallman <rms@gnu.org>
parents:
11366
diff
changeset
|
3955 KBOARD **kbp; |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
3956 int *used_mouse_menu; |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
3957 EMACS_TIME *end_time; |
518 | 3958 { |
3959 register int c; | |
3960 Lisp_Object obj; | |
3961 | |
3962 if (noninteractive) | |
3963 { | |
3964 c = getchar (); | |
9272
0a0998c4d4b6
(command_loop_1, read_char, Ftrack_mouse, kbd_buffer_get_event,
Karl Heuer <kwzh@gnu.org>
parents:
9228
diff
changeset
|
3965 XSETINT (obj, c); |
11167
5ba84aee3999
(event_to_kboard): Ignore dead frames.
Karl Heuer <kwzh@gnu.org>
parents:
11165
diff
changeset
|
3966 *kbp = current_kboard; |
518 | 3967 return obj; |
3968 } | |
3969 | |
3970 /* Wait until there is input available. */ | |
3971 for (;;) | |
3972 { | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3973 if (kbd_fetch_ptr != kbd_store_ptr) |
518 | 3974 break; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3975 #ifdef HAVE_MOUSE |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
3976 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
|
3977 break; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3978 #endif |
518 | 3979 |
3980 /* If the quit flag is set, then read_char will return | |
3981 quit_char, so that counts as "available input." */ | |
3982 if (!NILP (Vquit_flag)) | |
3983 quit_throw_to_read_char (); | |
3984 | |
3985 /* One way or another, wait until input is available; then, if | |
3986 interrupt handlers have not read it, read it now. */ | |
3987 | |
3988 #ifdef OLDVMS | |
3989 wait_for_kbd_input (); | |
3990 #else | |
3991 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
3992 #ifdef SIGIO | |
3993 gobble_input (0); | |
3994 #endif /* SIGIO */ | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3995 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
|
3996 break; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
3997 #ifdef HAVE_MOUSE |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
3998 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
|
3999 break; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4000 #endif |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
4001 if (end_time) |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
4002 { |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
4003 EMACS_TIME duration; |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
4004 EMACS_GET_TIME (duration); |
72283
a434e864f122
(kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents:
72276
diff
changeset
|
4005 if (EMACS_TIME_GE (duration, *end_time)) |
a434e864f122
(kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents:
72276
diff
changeset
|
4006 return Qnil; /* finished waiting */ |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
4007 else |
72283
a434e864f122
(kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents:
72276
diff
changeset
|
4008 { |
a434e864f122
(kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents:
72276
diff
changeset
|
4009 EMACS_SUB_TIME (duration, *end_time, duration); |
a434e864f122
(kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents:
72276
diff
changeset
|
4010 wait_reading_process_output (EMACS_SECS (duration), |
a434e864f122
(kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents:
72276
diff
changeset
|
4011 EMACS_USECS (duration), |
a434e864f122
(kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents:
72276
diff
changeset
|
4012 -1, 1, Qnil, NULL, 0); |
a434e864f122
(kbd_buffer_get_event): Return Qnil when current time is exactly equal to
Eli Zaretskii <eliz@gnu.org>
parents:
72276
diff
changeset
|
4013 } |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
4014 } |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
4015 else |
56729
e6e0caa7ec87
Rename wait_reading_process_input to wait_reading_process_output.
Kim F. Storm <storm@cua.dk>
parents:
56717
diff
changeset
|
4016 wait_reading_process_output (0, 0, -1, 1, Qnil, NULL, 0); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4017 |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
4018 if (!interrupt_input && kbd_fetch_ptr == kbd_store_ptr) |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
4019 /* Pass 1 for EXPECT since we just waited to have input. */ |
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
4020 read_avail_input (1); |
518 | 4021 #endif /* not VMS */ |
4022 } | |
4023 | |
18231
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
4024 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
|
4025 { |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
4026 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
|
4027 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
|
4028 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
|
4029 *kbp = current_kboard; |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
4030 return first; |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
4031 } |
7f3969697013
(kbd_buffer_get_event): When wait_reading_process_input
Richard M. Stallman <rms@gnu.org>
parents:
18118
diff
changeset
|
4032 |
518 | 4033 /* At this point, we know that there is a readable event available |
4034 somewhere. If the event queue is empty, then there must be a | |
4035 mouse movement enabled and available. */ | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4036 if (kbd_fetch_ptr != kbd_store_ptr) |
518 | 4037 { |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4038 struct input_event *event; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4039 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4040 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
|
4041 ? kbd_fetch_ptr |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4042 : kbd_buffer); |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4043 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4044 last_event_timestamp = event->timestamp; |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
4045 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
4046 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
4047 *kbp = event_to_kboard (event); |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
4048 if (*kbp == 0) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
4049 *kbp = current_kboard; /* Better than returning null ptr? */ |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
4050 #else |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
4051 *kbp = &the_only_kboard; |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
4052 #endif |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4053 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4054 obj = Qnil; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4055 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
4056 /* 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
|
4057 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
|
4058 We return nil for them. */ |
57950
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
4059 if (event->kind == SELECTION_REQUEST_EVENT |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
4060 || 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
|
4061 { |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
4062 #ifdef HAVE_X11 |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
4063 struct input_event copy; |
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
4064 |
10635
c807d6c947de
(kbd_buffer_get_event, swallow_events): Remove selection_request event
Richard M. Stallman <rms@gnu.org>
parents:
10626
diff
changeset
|
4065 /* 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
|
4066 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
|
4067 and process it again. */ |
11350
2fc5320e4a99
(any_kboard_state): Renamed from unlock_kboard.
Richard M. Stallman <rms@gnu.org>
parents:
11285
diff
changeset
|
4068 copy = *event; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4069 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4070 input_pending = readable_events (0); |
57950
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
4071 x_handle_selection_event (©); |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
4072 #else |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
4073 /* 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
|
4074 a window system. */ |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
4075 abort (); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
4076 #endif |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
4077 } |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
4078 |
44890
01b93e5e53a7
Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents:
44561
diff
changeset
|
4079 #if defined (HAVE_X11) || defined (HAVE_NTGUI) || defined (MAC_OS) |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
4080 else if (event->kind == DELETE_WINDOW_EVENT) |
5133
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
4081 { |
9215
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
4082 /* Make an event (delete-frame (FRAME)). */ |
fa3883c219ea
(head_table): Set up Qdelete_frame.
Richard M. Stallman <rms@gnu.org>
parents:
9124
diff
changeset
|
4083 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
|
4084 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
|
4085 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
|
4086 } |
32752
923b8d6d8277
Initial check-in: changes for building Emacs under Mac OS.
Andrew Choi <akochoi@shaw.ca>
parents:
32476
diff
changeset
|
4087 #endif |
65109
2aed3dcccd0d
(kbd_buffer_get_event) [MAC_OS]: Make events for
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
64770
diff
changeset
|
4088 #if defined (HAVE_X11) || defined (HAVE_NTGUI) || defined (MAC_OS) |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
4089 else if (event->kind == ICONIFY_EVENT) |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
4090 { |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
4091 /* 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
|
4092 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
|
4093 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
|
4094 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
|
4095 } |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
4096 else if (event->kind == DEICONIFY_EVENT) |
9729
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
4097 { |
75b481d9773e
(kbd_buffer_get_event): Translate them to lispy events.
Karl Heuer <kwzh@gnu.org>
parents:
9689
diff
changeset
|
4098 /* 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
|
4099 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
|
4100 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
|
4101 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
|
4102 } |
16fe8285dc2a
(kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents:
5078
diff
changeset
|
4103 #endif |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
4104 else if (event->kind == BUFFER_SWITCH_EVENT) |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
4105 { |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
4106 /* 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
|
4107 XSETBUFFER (obj, current_buffer); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4108 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
|
4109 } |
49322 | 4110 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) || defined (MAC_OS) \ |
4111 || defined (USE_GTK) | |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
4112 else if (event->kind == MENU_BAR_ACTIVATE_EVENT) |
12659
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
4113 { |
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
4114 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4115 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
|
4116 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
|
4117 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
|
4118 } |
1243af8addb5
(kbd_buffer_get_event) [USE_X_TOOLKIT]:
Richard M. Stallman <rms@gnu.org>
parents:
12628
diff
changeset
|
4119 #endif |
61499
f914c4fa9610
(Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61496
diff
changeset
|
4120 #if defined (WINDOWSNT) || defined (MAC_OS) |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
4121 else if (event->kind == LANGUAGE_CHANGE_EVENT) |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4122 { |
61499
f914c4fa9610
(Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61496
diff
changeset
|
4123 #ifdef MAC_OS |
f914c4fa9610
(Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61496
diff
changeset
|
4124 /* Make an event (language-change (KEY_SCRIPT)). */ |
f914c4fa9610
(Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61496
diff
changeset
|
4125 obj = Fcons (make_number (event->code), Qnil); |
f914c4fa9610
(Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61496
diff
changeset
|
4126 #else |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4127 /* Make an event (language-change (FRAME CHARSET LCID)). */ |
55639
b5168ee835cb
(kbd_buffer_get_event): Don't use event->code and
Jason Rumney <jasonr@gnu.org>
parents:
55597
diff
changeset
|
4128 obj = Fcons (event->frame_or_window, Qnil); |
61499
f914c4fa9610
(Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61496
diff
changeset
|
4129 #endif |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4130 obj = Fcons (Qlanguage_change, Fcons (obj, Qnil)); |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4131 kbd_fetch_ptr = event + 1; |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4132 } |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4133 #endif |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
4134 else if (event->kind == SAVE_SESSION_EVENT) |
43814
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
4135 { |
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
4136 obj = Fcons (Qsave_session, Qnil); |
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
4137 kbd_fetch_ptr = event + 1; |
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
4138 } |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
4139 /* Just discard these, by returning nil. |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
4140 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
|
4141 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
|
4142 (They shouldn't otherwise be found in the buffer, |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
4143 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
|
4144 even without MULTI_KBOARD.) */ |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
4145 /* On Windows NT/9X, NO_EVENT is used to delete extraneous |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
4146 mouse events during a popup-menu call. */ |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
4147 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
|
4148 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
|
4149 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
|
4150 { |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
4151 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
|
4152 |
30212
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
4153 frame = event->frame_or_window; |
f45d26144129
(show_help_echo): Add parameters OBJECT and POS.
Gerd Moellmann <gerd@gnu.org>
parents:
30200
diff
changeset
|
4154 object = event->arg; |
44523
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
4155 position = make_number (event->code); |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
4156 window = event->x; |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
4157 help = event->y; |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
4158 clear_event (event); |
30936
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
4159 |
29fae12cc834
(kbd_buffer_get_event): Handle the case that the
Gerd Moellmann <gerd@gnu.org>
parents:
30749
diff
changeset
|
4160 kbd_fetch_ptr = event + 1; |
30300
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
4161 if (!WINDOWP (window)) |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
4162 window = Qnil; |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
4163 obj = Fcons (Qhelp_echo, |
8b24b6f17856
(show_help_echo): Add parameter WINDOW.
Gerd Moellmann <gerd@gnu.org>
parents:
30212
diff
changeset
|
4164 list5 (frame, help, window, object, position)); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
4165 } |
29513
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4166 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
|
4167 { |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4168 /* 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
|
4169 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
|
4170 switch-frame event if necessary. */ |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4171 Lisp_Object frame, focus; |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4172 |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4173 frame = event->frame_or_window; |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4174 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
|
4175 if (FRAMEP (focus)) |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4176 frame = focus; |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4177 |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4178 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
|
4179 && !EQ (frame, selected_frame)) |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4180 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
|
4181 internal_last_event_frame = frame; |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4182 kbd_fetch_ptr = event + 1; |
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4183 } |
3101
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
4184 else |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
4185 { |
29513
dfb72889ff52
(kbd_buffer_get_event): Handle FOCUS_IN_EVENT by
Gerd Moellmann <gerd@gnu.org>
parents:
29313
diff
changeset
|
4186 /* 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
|
4187 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
|
4188 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
|
4189 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
|
4190 |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4191 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
|
4192 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
|
4193 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
|
4194 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
|
4195 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
|
4196 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
4197 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
|
4198 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
|
4199 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
|
4200 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
4201 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
|
4202 && !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
|
4203 obj = make_lispy_switch_frame (frame); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
4204 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
|
4205 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
4206 /* 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
|
4207 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
|
4208 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
4209 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
|
4210 { |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
4211 obj = make_lispy_event (event); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4212 |
49322 | 4213 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) || defined(MAC_OS) \ |
4214 || defined (USE_GTK) | |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
4215 /* 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
|
4216 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
|
4217 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
|
4218 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
|
4219 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
|
4220 if (used_mouse_menu |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
4221 && !EQ (event->frame_or_window, event->arg) |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
4222 && (event->kind == MENU_BAR_EVENT |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
4223 || 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
|
4224 *used_mouse_menu = 1; |
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
4225 #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
|
4226 |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
4227 /* Wipe out this event, to catch bugs. */ |
31013
561b96d3bce3
(gen_help_event): Add parameter SIZE.
Gerd Moellmann <gerd@gnu.org>
parents:
30936
diff
changeset
|
4228 clear_event (event); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4229 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
|
4230 } |
9de5bf724302
(read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents:
3067
diff
changeset
|
4231 } |
518 | 4232 } |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
4233 #ifdef HAVE_MOUSE |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
4234 /* Try generating a mouse motion event. */ |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
4235 else if (!NILP (do_mouse_tracking) && some_mouse_moved ()) |
518 | 4236 { |
12571
c960e63751ec
(mouse_moved): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12476
diff
changeset
|
4237 FRAME_PTR f = some_mouse_moved (); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4238 Lisp_Object bar_window; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
4239 enum scroll_bar_part part; |
732 | 4240 Lisp_Object x, y; |
4241 unsigned long time; | |
518 | 4242 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
4243 *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
|
4244 /* 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
|
4245 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
|
4246 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
|
4247 x = Qnil; |
11127
53e4f014e31c
(kbd_buffer_get_event): Pass 0 for `insist' arg.
Richard M. Stallman <rms@gnu.org>
parents:
11026
diff
changeset
|
4248 (*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
|
4249 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4250 obj = Qnil; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
4251 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4252 /* 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
|
4253 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
|
4254 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
|
4255 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
|
4256 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4257 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
|
4258 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
4259 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
|
4260 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
|
4261 XSETFRAME (frame, f); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
4262 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
4263 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
|
4264 && !EQ (frame, selected_frame)) |
3929
d620db2bc420
* keyboard.c (kbd_buffer_get_event): Correctly generate
Jim Blandy <jimb@redhat.com>
parents:
3920
diff
changeset
|
4265 obj = make_lispy_switch_frame (frame); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
4266 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
|
4267 } |
8247
26dbb6234efd
(safe_run_hooks): Use local var to restore hook's value.
Richard M. Stallman <rms@gnu.org>
parents:
8238
diff
changeset
|
4268 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
4269 /* 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
|
4270 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
|
4271 if (!NILP (x) && NILP (obj)) |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
4272 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
|
4273 } |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
4274 #endif /* HAVE_MOUSE */ |
518 | 4275 else |
4276 /* We were promised by the above while loop that there was | |
4277 something for us to read! */ | |
4278 abort (); | |
4279 | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4280 input_pending = readable_events (0); |
518 | 4281 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
4282 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
|
4283 |
518 | 4284 return (obj); |
4285 } | |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
4286 |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
4287 /* 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
|
4288 then return, without reading any user-visible events. */ |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4289 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4290 void |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4291 swallow_events (do_display) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4292 int do_display; |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4293 { |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
4294 int old_timers_run; |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
4295 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4296 while (kbd_fetch_ptr != kbd_store_ptr) |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4297 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4298 struct input_event *event; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4299 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4300 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
|
4301 ? kbd_fetch_ptr |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4302 : kbd_buffer); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4303 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4304 last_event_timestamp = event->timestamp; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4305 |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4306 /* These two kinds of events get special handling |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4307 and don't actually appear to the command loop. */ |
57950
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
4308 if (event->kind == SELECTION_REQUEST_EVENT |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
4309 || event->kind == SELECTION_CLEAR_EVENT) |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4310 { |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4311 #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
|
4312 struct input_event copy; |
12712
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
4313 |
33dc35e15fd2
(kbd_buffer_get_event): Update input_pending after
Richard M. Stallman <rms@gnu.org>
parents:
12659
diff
changeset
|
4314 /* 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
|
4315 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
|
4316 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
|
4317 copy = *event; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
4318 kbd_fetch_ptr = event + 1; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4319 input_pending = readable_events (0); |
57950
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
4320 x_handle_selection_event (©); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4321 #else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4322 /* 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
|
4323 a window system. */ |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4324 abort (); |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4325 #endif |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4326 } |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4327 else |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4328 break; |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4329 } |
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4330 |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
4331 old_timers_run = timers_run; |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
4332 get_input_pending (&input_pending, READABLE_EVENTS_DO_TIMERS_NOW); |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
4333 |
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
4334 if (timers_run != old_timers_run && do_display) |
35336
002c02db42d3
Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents:
35255
diff
changeset
|
4335 redisplay_preserve_echo_area (7); |
3104
3c6fccdf8257
(swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents:
3101
diff
changeset
|
4336 } |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
4337 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4338 /* Record the start of when Emacs is idle, |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4339 for the sake of running idle-time timers. */ |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4340 |
57410
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4341 static void |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4342 timer_start_idle () |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4343 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4344 Lisp_Object timers; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4345 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4346 /* 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
|
4347 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
|
4348 return; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4349 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4350 EMACS_GET_TIME (timer_idleness_start_time); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4351 |
46109
60d71404b887
(timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
46077
diff
changeset
|
4352 timer_last_idleness_start_time = timer_idleness_start_time; |
60d71404b887
(timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
46077
diff
changeset
|
4353 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4354 /* 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
|
4355 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
|
4356 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4357 Lisp_Object timer; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4358 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4359 timer = XCAR (timers); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4360 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4361 if (!VECTORP (timer) || XVECTOR (timer)->size != 8) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4362 continue; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4363 XVECTOR (timer)->contents[0] = Qnil; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4364 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4365 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4366 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4367 /* 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
|
4368 |
57410
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4369 static void |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4370 timer_stop_idle () |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4371 { |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4372 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
|
4373 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4374 |
57410
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4375 /* Resume idle timer from last idle start time. */ |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4376 |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4377 static void |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4378 timer_resume_idle () |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4379 { |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4380 if (! EMACS_TIME_NEG_P (timer_idleness_start_time)) |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4381 return; |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4382 |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4383 timer_idleness_start_time = timer_last_idleness_start_time; |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4384 } |
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
4385 |
14904
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
4386 /* This is only for debugging. */ |
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
4387 struct input_event last_timer_event; |
5025ab10c28c
(last_timer_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
14773
diff
changeset
|
4388 |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4389 /* 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
|
4390 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
|
4391 timer list for the time being. |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4392 |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4393 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
|
4394 timer is triggering now, return zero seconds. |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4395 If no timer is active, return -1 seconds. |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4396 |
14997
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
4397 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
|
4398 |
51a773474d47
(read_char): Use detect_input_pending_run_timers
Richard M. Stallman <rms@gnu.org>
parents:
14904
diff
changeset
|
4399 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
|
4400 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
|
4401 Now we always run timers directly. */ |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4402 |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4403 EMACS_TIME |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4404 timer_check (do_it_now) |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4405 int do_it_now; |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4406 { |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4407 EMACS_TIME nexttime; |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4408 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
|
4409 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
|
4410 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
|
4411 |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4412 EMACS_SET_SECS (nexttime, -1); |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4413 EMACS_SET_USECS (nexttime, -1); |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4414 |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4415 /* 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
|
4416 timers = Vtimer_list; |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4417 /* 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
|
4418 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
|
4419 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
|
4420 else |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4421 idle_timers = Qnil; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4422 chosen_timer = Qnil; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4423 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
|
4424 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4425 if (CONSP (timers) || CONSP (idle_timers)) |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4426 { |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4427 EMACS_GET_TIME (now); |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4428 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
|
4429 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
|
4430 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4431 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4432 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
|
4433 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4434 Lisp_Object *vector; |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
4435 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
|
4436 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
|
4437 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
|
4438 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4439 /* 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
|
4440 if (!NILP (timers)) |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4441 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4442 timer = XCAR (timers); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4443 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
|
4444 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4445 timers = XCDR (timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4446 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4447 } |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4448 vector = XVECTOR (timer)->contents; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4449 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4450 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
|
4451 || !INTEGERP (vector[3]) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4452 || ! NILP (vector[0])) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4453 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4454 timers = XCDR (timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4455 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4456 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4457 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4458 if (!NILP (idle_timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4459 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4460 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
|
4461 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
|
4462 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4463 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
|
4464 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4465 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4466 vector = XVECTOR (timer)->contents; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4467 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4468 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
|
4469 || !INTEGERP (vector[3]) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4470 || ! NILP (vector[0])) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4471 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4472 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
|
4473 continue; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4474 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4475 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4476 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4477 /* 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
|
4478 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
|
4479 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
|
4480 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
|
4481 if (!NILP (timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4482 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4483 timer = XCAR (timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4484 vector = XVECTOR (timer)->contents; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4485 EMACS_SET_SECS (timer_time, |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4486 (XINT (vector[1]) << 16) | (XINT (vector[2]))); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
4487 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
|
4488 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
|
4489 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4490 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4491 /* 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
|
4492 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
|
4493 if (!NILP (idle_timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4494 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
4495 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
|
4496 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
|
4497 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
|
4498 (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
|
4499 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
|
4500 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
|
4501 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4502 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4503 /* 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
|
4504 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
|
4505 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
|
4506 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4507 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
|
4508 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4509 EMACS_TIME temp; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4510 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
|
4511 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
|
4512 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4513 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
|
4514 timers = XCDR (timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4515 difference = timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4516 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4517 else |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4518 { |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4519 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
|
4520 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
|
4521 difference = idle_timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4522 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4523 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4524 else if (! NILP (timers)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4525 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4526 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
|
4527 timers = XCDR (timers); |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4528 difference = timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4529 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4530 else |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4531 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4532 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
|
4533 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
|
4534 difference = idle_timer_difference; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4535 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4536 vector = XVECTOR (chosen_timer)->contents; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4537 |
28679
ab98f4a8d7e1
(timer_check): Fix typo in comment.
Gerd Moellmann <gerd@gnu.org>
parents:
28672
diff
changeset
|
4538 /* 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
|
4539 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
|
4540 || (EMACS_SECS (difference) == 0 |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4541 && EMACS_USECS (difference) == 0)) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4542 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4543 if (NILP (vector[0])) |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4544 { |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4545 int was_locked = single_kboard; |
46285
3f111801efb4
Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46181
diff
changeset
|
4546 int count = SPECPDL_INDEX (); |
36826
4eacbecdf0d8
(timer_check): Preserve the value of deactivate-mark.
Gerd Moellmann <gerd@gnu.org>
parents:
36808
diff
changeset
|
4547 Lisp_Object old_deactivate_mark = Vdeactivate_mark; |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4548 |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4549 /* 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
|
4550 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
|
4551 vector[0] = Qt; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4552 |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4553 specbind (Qinhibit_quit, Qt); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4554 |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4555 call1 (Qtimer_event_handler, chosen_timer); |
36826
4eacbecdf0d8
(timer_check): Preserve the value of deactivate-mark.
Gerd Moellmann <gerd@gnu.org>
parents:
36808
diff
changeset
|
4556 Vdeactivate_mark = old_deactivate_mark; |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4557 timers_run++; |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4558 unbind_to (count, Qnil); |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4559 |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4560 /* 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
|
4561 if (!was_locked) |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4562 any_kboard_state (); |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4563 |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4564 /* Since we have handled the event, |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
4565 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
|
4566 } |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4567 } |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4568 else |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4569 /* 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
|
4570 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
|
4571 { |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4572 UNGCPRO; |
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4573 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
|
4574 } |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4575 } |
14710
7eab2355ad9c
(timer_check): Walk down both timer lists in parallel.
Richard M. Stallman <rms@gnu.org>
parents:
14695
diff
changeset
|
4576 |
14453
58afa829c736
(make_lispy_event): Timer event is a list, not just cons.
Richard M. Stallman <rms@gnu.org>
parents:
14406
diff
changeset
|
4577 /* 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
|
4578 /* 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
|
4579 UNGCPRO; |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4580 return nexttime; |
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4581 } |
72445
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4582 |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4583 DEFUN ("current-idle-time", Fcurrent_idle_time, Scurrent_idle_time, 0, 0, 0, |
72540
0798c7030130
(in_sighandler): Remove variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
72515
diff
changeset
|
4584 doc: /* Return the current length of Emacs idleness. |
72445
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4585 The value is returned as a list of three integers. The first has the |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4586 most significant 16 bits of the seconds, while the second has the |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4587 least significant 16 bits. The third integer gives the microsecond |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4588 count. |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4589 |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4590 The microsecond count is zero on systems that do not provide |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4591 resolution finer than a second. */) |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4592 () |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4593 { |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4594 if (! EMACS_TIME_NEG_P (timer_idleness_start_time)) |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4595 { |
72515
ac466a3d6da6
(Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents:
72474
diff
changeset
|
4596 EMACS_TIME now, idleness_now; |
ac466a3d6da6
(Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents:
72474
diff
changeset
|
4597 |
ac466a3d6da6
(Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents:
72474
diff
changeset
|
4598 EMACS_GET_TIME (now); |
72445
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4599 EMACS_SUB_TIME (idleness_now, now, timer_idleness_start_time); |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4600 |
72515
ac466a3d6da6
(Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents:
72474
diff
changeset
|
4601 return list3 (make_number ((EMACS_SECS (idleness_now) >> 16) & 0xffff), |
ac466a3d6da6
(Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents:
72474
diff
changeset
|
4602 make_number ((EMACS_SECS (idleness_now) >> 0) & 0xffff), |
ac466a3d6da6
(Fcurrent_idle_time): Simplify.
Kim F. Storm <storm@cua.dk>
parents:
72474
diff
changeset
|
4603 make_number (EMACS_USECS (idleness_now))); |
72445
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4604 } |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4605 |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4606 return Qnil; |
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
4607 } |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
4608 |
518 | 4609 /* 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
|
4610 static Lisp_Object accent_key_syms; |
518 | 4611 static Lisp_Object func_key_syms; |
4612 static Lisp_Object mouse_syms; | |
51384
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
4613 static Lisp_Object 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
|
4614 static Lisp_Object drag_n_drop_syms; |
518 | 4615 |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4616 /* 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
|
4617 It parallels lispy_accent_keys. */ |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4618 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4619 static int lispy_accent_codes[] = |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4620 { |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4621 #ifdef XK_dead_circumflex |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4622 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
|
4623 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4624 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4625 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4626 #ifdef XK_dead_grave |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4627 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
|
4628 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4629 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4630 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4631 #ifdef XK_dead_tilde |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4632 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
|
4633 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4634 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4635 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4636 #ifdef XK_dead_diaeresis |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4637 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
|
4638 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4639 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4640 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4641 #ifdef XK_dead_macron |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4642 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
|
4643 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4644 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4645 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4646 #ifdef XK_dead_degree |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4647 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
|
4648 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4649 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4650 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4651 #ifdef XK_dead_acute |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4652 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
|
4653 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4654 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4655 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4656 #ifdef XK_dead_cedilla |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4657 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
|
4658 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4659 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4660 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4661 #ifdef XK_dead_breve |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4662 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
|
4663 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4664 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4665 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4666 #ifdef XK_dead_ogonek |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4667 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
|
4668 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4669 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4670 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4671 #ifdef XK_dead_caron |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4672 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
|
4673 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4674 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4675 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4676 #ifdef XK_dead_doubleacute |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4677 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
|
4678 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4679 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4680 #endif |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4681 #ifdef XK_dead_abovedot |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4682 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
|
4683 #else |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4684 0, |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
4685 #endif |
48086
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4686 #ifdef XK_dead_abovering |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4687 XK_dead_abovering, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4688 #else |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4689 0, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4690 #endif |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4691 #ifdef XK_dead_iota |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4692 XK_dead_iota, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4693 #else |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4694 0, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4695 #endif |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4696 #ifdef XK_dead_belowdot |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4697 XK_dead_belowdot, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4698 #else |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4699 0, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4700 #endif |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4701 #ifdef XK_dead_voiced_sound |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4702 XK_dead_voiced_sound, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4703 #else |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4704 0, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4705 #endif |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4706 #ifdef XK_dead_semivoiced_sound |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4707 XK_dead_semivoiced_sound, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4708 #else |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4709 0, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4710 #endif |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4711 #ifdef XK_dead_hook |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4712 XK_dead_hook, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4713 #else |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4714 0, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4715 #endif |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4716 #ifdef XK_dead_horn |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4717 XK_dead_horn, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4718 #else |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4719 0, |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4720 #endif |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4721 }; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4722 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4723 /* 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
|
4724 It parallels lispy_accent_codes. */ |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4725 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4726 static char *lispy_accent_keys[] = |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4727 { |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4728 "dead-circumflex", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4729 "dead-grave", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4730 "dead-tilde", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4731 "dead-diaeresis", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4732 "dead-macron", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4733 "dead-degree", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4734 "dead-acute", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4735 "dead-cedilla", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4736 "dead-breve", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4737 "dead-ogonek", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4738 "dead-caron", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4739 "dead-doubleacute", |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4740 "dead-abovedot", |
48086
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4741 "dead-abovering", |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4742 "dead-iota", |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4743 "dead-belowdot", |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4744 "dead-voiced-sound", |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4745 "dead-semivoiced-sound", |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4746 "dead-hook", |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4747 "dead-horn", |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4748 }; |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
4749 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4750 #ifdef HAVE_NTGUI |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4751 #define FUNCTION_KEY_OFFSET 0x0 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4752 |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4753 char *lispy_function_keys[] = |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4754 { |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4755 0, /* 0 */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4756 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4757 0, /* VK_LBUTTON 0x01 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4758 0, /* VK_RBUTTON 0x02 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4759 "cancel", /* VK_CANCEL 0x03 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4760 0, /* VK_MBUTTON 0x04 */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4761 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4762 0, 0, 0, /* 0x05 .. 0x07 */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4763 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4764 "backspace", /* VK_BACK 0x08 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4765 "tab", /* VK_TAB 0x09 */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4766 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4767 0, 0, /* 0x0A .. 0x0B */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4768 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4769 "clear", /* VK_CLEAR 0x0C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4770 "return", /* VK_RETURN 0x0D */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4771 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4772 0, 0, /* 0x0E .. 0x0F */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4773 |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4774 0, /* VK_SHIFT 0x10 */ |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4775 0, /* VK_CONTROL 0x11 */ |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4776 0, /* VK_MENU 0x12 */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4777 "pause", /* VK_PAUSE 0x13 */ |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4778 "capslock", /* VK_CAPITAL 0x14 */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4779 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4780 0, 0, 0, 0, 0, 0, /* 0x15 .. 0x1A */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4781 |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4782 "escape", /* VK_ESCAPE 0x1B */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4783 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4784 0, 0, 0, 0, /* 0x1C .. 0x1F */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4785 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4786 0, /* VK_SPACE 0x20 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4787 "prior", /* VK_PRIOR 0x21 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4788 "next", /* VK_NEXT 0x22 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4789 "end", /* VK_END 0x23 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4790 "home", /* VK_HOME 0x24 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4791 "left", /* VK_LEFT 0x25 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4792 "up", /* VK_UP 0x26 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4793 "right", /* VK_RIGHT 0x27 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4794 "down", /* VK_DOWN 0x28 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4795 "select", /* VK_SELECT 0x29 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4796 "print", /* VK_PRINT 0x2A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4797 "execute", /* VK_EXECUTE 0x2B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4798 "snapshot", /* VK_SNAPSHOT 0x2C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4799 "insert", /* VK_INSERT 0x2D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4800 "delete", /* VK_DELETE 0x2E */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4801 "help", /* VK_HELP 0x2F */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4802 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4803 /* VK_0 thru VK_9 are the same as ASCII '0' thru '9' (0x30 - 0x39) */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4804 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4805 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4806 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4807 0, 0, 0, 0, 0, 0, 0, /* 0x3A .. 0x40 */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4808 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4809 /* VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' (0x41 - 0x5A) */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4810 |
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4811 0, 0, 0, 0, 0, 0, 0, 0, 0, |
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4812 0, 0, 0, 0, 0, 0, 0, 0, 0, |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4813 0, 0, 0, 0, 0, 0, 0, 0, |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4814 |
14550
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4815 "lwindow", /* VK_LWIN 0x5B */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4816 "rwindow", /* VK_RWIN 0x5C */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4817 "apps", /* VK_APPS 0x5D */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4818 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4819 0, 0, /* 0x5E .. 0x5F */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4820 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4821 "kp-0", /* VK_NUMPAD0 0x60 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4822 "kp-1", /* VK_NUMPAD1 0x61 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4823 "kp-2", /* VK_NUMPAD2 0x62 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4824 "kp-3", /* VK_NUMPAD3 0x63 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4825 "kp-4", /* VK_NUMPAD4 0x64 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4826 "kp-5", /* VK_NUMPAD5 0x65 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4827 "kp-6", /* VK_NUMPAD6 0x66 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4828 "kp-7", /* VK_NUMPAD7 0x67 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4829 "kp-8", /* VK_NUMPAD8 0x68 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4830 "kp-9", /* VK_NUMPAD9 0x69 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4831 "kp-multiply", /* VK_MULTIPLY 0x6A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4832 "kp-add", /* VK_ADD 0x6B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4833 "kp-separator", /* VK_SEPARATOR 0x6C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4834 "kp-subtract", /* VK_SUBTRACT 0x6D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4835 "kp-decimal", /* VK_DECIMAL 0x6E */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4836 "kp-divide", /* VK_DIVIDE 0x6F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4837 "f1", /* VK_F1 0x70 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4838 "f2", /* VK_F2 0x71 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4839 "f3", /* VK_F3 0x72 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4840 "f4", /* VK_F4 0x73 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4841 "f5", /* VK_F5 0x74 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4842 "f6", /* VK_F6 0x75 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4843 "f7", /* VK_F7 0x76 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4844 "f8", /* VK_F8 0x77 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4845 "f9", /* VK_F9 0x78 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4846 "f10", /* VK_F10 0x79 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4847 "f11", /* VK_F11 0x7A */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4848 "f12", /* VK_F12 0x7B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4849 "f13", /* VK_F13 0x7C */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4850 "f14", /* VK_F14 0x7D */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4851 "f15", /* VK_F15 0x7E */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4852 "f16", /* VK_F16 0x7F */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4853 "f17", /* VK_F17 0x80 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4854 "f18", /* VK_F18 0x81 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4855 "f19", /* VK_F19 0x82 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4856 "f20", /* VK_F20 0x83 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4857 "f21", /* VK_F21 0x84 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4858 "f22", /* VK_F22 0x85 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4859 "f23", /* VK_F23 0x86 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4860 "f24", /* VK_F24 0x87 */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4861 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4862 0, 0, 0, 0, /* 0x88 .. 0x8B */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4863 0, 0, 0, 0, /* 0x8C .. 0x8F */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4864 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4865 "kp-numlock", /* VK_NUMLOCK 0x90 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4866 "scroll", /* VK_SCROLL 0x91 */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4867 |
14550
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4868 "kp-space", /* VK_NUMPAD_CLEAR 0x92 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4869 "kp-enter", /* VK_NUMPAD_ENTER 0x93 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4870 "kp-prior", /* VK_NUMPAD_PRIOR 0x94 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4871 "kp-next", /* VK_NUMPAD_NEXT 0x95 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4872 "kp-end", /* VK_NUMPAD_END 0x96 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4873 "kp-home", /* VK_NUMPAD_HOME 0x97 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4874 "kp-left", /* VK_NUMPAD_LEFT 0x98 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4875 "kp-up", /* VK_NUMPAD_UP 0x99 */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4876 "kp-right", /* VK_NUMPAD_RIGHT 0x9A */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4877 "kp-down", /* VK_NUMPAD_DOWN 0x9B */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4878 "kp-insert", /* VK_NUMPAD_INSERT 0x9C */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4879 "kp-delete", /* VK_NUMPAD_DELETE 0x9D */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4880 |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4881 0, 0, /* 0x9E .. 0x9F */ |
2c5fedd784b2
[HAVE_NTGUI] (lispy_function_keys): Add mappings
Richard M. Stallman <rms@gnu.org>
parents:
14537
diff
changeset
|
4882 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4883 /* |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4884 * 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
|
4885 * 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
|
4886 * 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
|
4887 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4888 /* 0xA0 .. 0xEF */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4889 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4890 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
|
4891 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
|
4892 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
|
4893 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
|
4894 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4895 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4896 /* 0xF0 .. 0xF5 */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4897 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4898 0, 0, 0, 0, 0, 0, |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4899 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4900 "attn", /* VK_ATTN 0xF6 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4901 "crsel", /* VK_CRSEL 0xF7 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4902 "exsel", /* VK_EXSEL 0xF8 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4903 "ereof", /* VK_EREOF 0xF9 */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4904 "play", /* VK_PLAY 0xFA */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4905 "zoom", /* VK_ZOOM 0xFB */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4906 "noname", /* VK_NONAME 0xFC */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4907 "pa1", /* VK_PA1 0xFD */ |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4908 "oem_clear", /* VK_OEM_CLEAR 0xFE */ |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
4909 0 /* 0xFF */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4910 }; |
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4911 |
17231
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4912 #else /* not HAVE_NTGUI */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
4913 |
48086
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4914 /* This should be dealt with in XTread_socket now, and that doesn't |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4915 depend on the client system having the Kana syms defined. See also |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4916 the XK_kana_A case below. */ |
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4917 #if 0 |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4918 #ifdef XK_kana_A |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4919 static char *lispy_kana_keys[] = |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4920 { |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4921 /* X Keysym value */ |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4922 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
|
4923 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
|
4924 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
|
4925 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
|
4926 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
|
4927 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
|
4928 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
|
4929 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
|
4930 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
|
4931 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x490 .. 0x49f */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
4932 0, "kana-fullstop", "kana-openingbracket", "kana-closingbracket", |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4933 "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
|
4934 "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
|
4935 "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
|
4936 "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
|
4937 "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
|
4938 "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
|
4939 "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
|
4940 "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
|
4941 "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
|
4942 "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
|
4943 "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
|
4944 "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
|
4945 "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
|
4946 "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
|
4947 "kana-WA", "kana-N", "voicedsound", "semivoicedsound", |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4948 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
|
4949 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
|
4950 }; |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4951 #endif /* XK_kana_A */ |
48086
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
4952 #endif /* 0 */ |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
4953 |
17231
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
4954 #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
|
4955 |
518 | 4956 /* You'll notice that this table is arranged to be conveniently |
4957 indexed by X Windows keysym values. */ | |
4958 static char *lispy_function_keys[] = | |
4959 { | |
4960 /* X Keysym value */ | |
4961 | |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4962 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
|
4963 "backspace", "tab", "linefeed", "clear", |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4964 0, "return", 0, 0, |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4965 0, 0, 0, "pause", /* 0xff10...1f */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4966 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
|
4967 0, 0, 0, 0, |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4968 0, "kanji", "muhenkan", "henkan", /* 0xff20...2f */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4969 "romaji", "hiragana", "katakana", "hiragana-katakana", |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4970 "zenkaku", "hankaku", "zenkaku-hankaku", "touroku", |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4971 "massyo", "kana-lock", "kana-shift", "eisu-shift", |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4972 "eisu-toggle", /* 0xff30...3f */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4973 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
|
4974 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
|
4975 |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4976 "home", "left", "up", "right", /* 0xff50 */ /* IsCursorKey */ |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4977 "down", "prior", "next", "end", |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4978 "begin", 0, 0, 0, 0, 0, 0, 0, |
518 | 4979 "select", /* 0xff60 */ /* IsMiscFunctionKey */ |
4980 "print", | |
4981 "execute", | |
4982 "insert", | |
4983 0, /* 0xff64 */ | |
4984 "undo", | |
4985 "redo", | |
4986 "menu", | |
4987 "find", | |
4988 "cancel", | |
4989 "help", | |
4990 "break", /* 0xff6b */ | |
4991 | |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4992 0, 0, 0, 0, |
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
4993 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
|
4994 0, 0, 0, 0, 0, 0, 0, "kp-numlock", /* 0xff78... */ |
518 | 4995 "kp-space", /* 0xff80 */ /* IsKeypadKey */ |
4996 0, 0, 0, 0, 0, 0, 0, 0, | |
4997 "kp-tab", /* 0xff89 */ | |
4998 0, 0, 0, | |
4999 "kp-enter", /* 0xff8d */ | |
5000 0, 0, 0, | |
5001 "kp-f1", /* 0xff91 */ | |
5002 "kp-f2", | |
5003 "kp-f3", | |
5004 "kp-f4", | |
7547
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5005 "kp-home", /* 0xff95 */ |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5006 "kp-left", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5007 "kp-up", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5008 "kp-right", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5009 "kp-down", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5010 "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
|
5011 "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
|
5012 "kp-end", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5013 "kp-begin", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5014 "kp-insert", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5015 "kp-delete", |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5016 0, /* 0xffa0 */ |
ca777847b11f
(lispy_function_keys): Add various kp- keys for X11R6.
Richard M. Stallman <rms@gnu.org>
parents:
7532
diff
changeset
|
5017 0, 0, 0, 0, 0, 0, 0, 0, 0, |
518 | 5018 "kp-multiply", /* 0xffaa */ |
5019 "kp-add", | |
5020 "kp-separator", | |
5021 "kp-subtract", | |
5022 "kp-decimal", | |
5023 "kp-divide", /* 0xffaf */ | |
5024 "kp-0", /* 0xffb0 */ | |
5025 "kp-1", "kp-2", "kp-3", "kp-4", "kp-5", "kp-6", "kp-7", "kp-8", "kp-9", | |
5026 0, /* 0xffba */ | |
5027 0, 0, | |
5028 "kp-equal", /* 0xffbd */ | |
5029 "f1", /* 0xffbe */ /* IsFunctionKey */ | |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5030 "f2", |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5031 "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
|
5032 "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
|
5033 "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
|
5034 "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
|
5035 "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
|
5036 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
|
5037 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
|
5038 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
|
5039 }; |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
5040 |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
5041 /* 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
|
5042 #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
|
5043 |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
5044 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
|
5045 { |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
5046 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
|
5047 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
|
5048 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
|
5049 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
|
5050 "iso-lefttab", /* 0xfe20 */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5051 "iso-move-line-up", "iso-move-line-down", |
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5052 "iso-partial-line-up", "iso-partial-line-down", |
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5053 "iso-partial-space-left", "iso-partial-space-right", |
17231
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
5054 "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
|
5055 "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
|
5056 "iso-release-both-margins", |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
5057 "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
|
5058 "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
|
5059 "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
|
5060 "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
|
5061 }; |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
5062 |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
5063 #endif /* not HAVE_NTGUI */ |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
5064 |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5065 Lisp_Object Vlispy_mouse_stem; |
518 | 5066 |
51384
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5067 static char *lispy_wheel_names[] = |
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5068 { |
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5069 "wheel-up", "wheel-down" |
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5070 }; |
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5071 |
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
|
5072 /* 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
|
5073 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
|
5074 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
|
5075 { |
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
|
5076 "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
|
5077 }; |
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
|
5078 |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
5079 /* Scroll bar parts. */ |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5080 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
|
5081 Lisp_Object Qup, Qdown, Qbottom, Qend_scroll; |
26788
5e97315b6f11
* keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26480
diff
changeset
|
5082 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
|
5083 |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
5084 /* 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
|
5085 Lisp_Object *scroll_bar_parts[] = { |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5086 &Qabove_handle, &Qhandle, &Qbelow_handle, |
26788
5e97315b6f11
* keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26480
diff
changeset
|
5087 &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
|
5088 }; |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
5089 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5090 /* 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
|
5091 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
|
5092 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5093 The elements have the form |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5094 (BUTTON-NUMBER MODIFIER-MASK . REST) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5095 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
|
5096 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5097 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
|
5098 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
|
5099 location to be included in drag events. */ |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5100 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5101 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
|
5102 |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5103 /* 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
|
5104 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
|
5105 |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5106 static int last_mouse_button; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5107 static int last_mouse_x; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5108 static int last_mouse_y; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5109 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
|
5110 |
38602 | 5111 /* The maximum time between clicks to make a double-click, or Qnil to |
5112 disable double-click detection, or Qt for no time limit. */ | |
5113 | |
3993
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
5114 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
|
5115 |
38602 | 5116 /* Maximum number of pixels the mouse may be moved between clicks |
5117 to make a double-click. */ | |
5118 | |
43713
f92c4d87863a
Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43496
diff
changeset
|
5119 EMACS_INT double_click_fuzz; |
38602 | 5120 |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5121 /* 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
|
5122 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5123 int double_click_count; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5124 |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5125 /* Return position of a mouse click or wheel event */ |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5126 |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5127 static Lisp_Object |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5128 make_lispy_position (f, x, y, time) |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5129 struct frame *f; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5130 Lisp_Object *x, *y; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5131 unsigned long time; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5132 { |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5133 Lisp_Object window; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5134 enum window_part part; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5135 Lisp_Object posn = Qnil; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5136 Lisp_Object extra_info = Qnil; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5137 int wx, wy; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5138 |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5139 /* Set `window' to the window under frame pixel coordinates (x,y) */ |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5140 if (f) |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5141 window = window_from_coordinates (f, XINT (*x), XINT (*y), |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5142 &part, &wx, &wy, 0); |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5143 else |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5144 window = Qnil; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5145 |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5146 if (WINDOWP (window)) |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5147 { |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5148 /* It's a click in window window at frame coordinates (x,y) */ |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5149 struct window *w = XWINDOW (window); |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5150 Lisp_Object string_info = Qnil; |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5151 int textpos = -1, rx = -1, ry = -1; |
53178
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
5152 int dx = -1, dy = -1; |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5153 int width = -1, height = -1; |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5154 Lisp_Object object = Qnil; |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5155 |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5156 /* Set event coordinates to window-relative coordinates |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5157 for constructing the Lisp event below. */ |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5158 XSETINT (*x, wx); |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5159 XSETINT (*y, wy); |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5160 |
66076
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
5161 if (part == ON_TEXT) |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
5162 { |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
5163 wx += WINDOW_LEFT_MARGIN_WIDTH (w); |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
5164 } |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
5165 else if (part == ON_MODE_LINE || part == ON_HEADER_LINE) |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5166 { |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5167 /* Mode line or header line. Look for a string under |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5168 the mouse that may have a `local-map' property. */ |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5169 Lisp_Object string; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5170 int charpos; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5171 |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5172 posn = part == ON_MODE_LINE ? Qmode_line : Qheader_line; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5173 rx = wx, ry = wy; |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5174 string = mode_line_string (w, part, &rx, &ry, &charpos, |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5175 &object, &dx, &dy, &width, &height); |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5176 if (STRINGP (string)) |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5177 string_info = Fcons (string, make_number (charpos)); |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5178 if (w == XWINDOW (selected_window)) |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5179 textpos = PT; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5180 else |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5181 textpos = XMARKER (w->pointm)->charpos; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5182 } |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5183 else if (part == ON_VERTICAL_BORDER) |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5184 { |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5185 posn = Qvertical_line; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5186 wx = -1; |
53178
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
5187 dx = 0; |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5188 width = 1; |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5189 } |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5190 else if (part == ON_LEFT_MARGIN || part == ON_RIGHT_MARGIN) |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5191 { |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5192 Lisp_Object string; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5193 int charpos; |
54087 | 5194 |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5195 posn = (part == ON_LEFT_MARGIN) ? Qleft_margin : Qright_margin; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5196 rx = wx, ry = wy; |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5197 string = marginal_area_string (w, part, &rx, &ry, &charpos, |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5198 &object, &dx, &dy, &width, &height); |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5199 if (STRINGP (string)) |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5200 string_info = Fcons (string, make_number (charpos)); |
66019
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5201 if (part == ON_LEFT_MARGIN) |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5202 wx = 0; |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5203 else |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5204 wx = window_box_right_offset (w, TEXT_AREA) - 1; |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5205 } |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5206 else if (part == ON_LEFT_FRINGE) |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5207 { |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5208 posn = Qleft_fringe; |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5209 rx = 0; |
53178
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
5210 dx = wx; |
66019
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5211 wx = (WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w) |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5212 ? 0 |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5213 : window_box_width (w, LEFT_MARGIN_AREA)); |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5214 dx -= wx; |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5215 } |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5216 else if (part == ON_RIGHT_FRINGE) |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5217 { |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5218 posn = Qright_fringe; |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5219 rx = 0; |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5220 dx = wx; |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5221 wx = (window_box_width (w, LEFT_MARGIN_AREA) |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5222 + window_box_width (w, TEXT_AREA) |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5223 + (WINDOW_HAS_FRINGES_OUTSIDE_MARGINS (w) |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5224 ? window_box_width (w, RIGHT_MARGIN_AREA) |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5225 : 0)); |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5226 dx -= wx; |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5227 } |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5228 else |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5229 { |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5230 /* Note: We have no special posn for part == ON_SCROLL_BAR. */ |
26e41053c306
(make_lispy_position): Fix buffer calculations for
Kim F. Storm <storm@cua.dk>
parents:
66001
diff
changeset
|
5231 wx = max (WINDOW_LEFT_MARGIN_WIDTH (w), wx); |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5232 } |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5233 |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5234 if (textpos < 0) |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5235 { |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5236 Lisp_Object string2, object2 = Qnil; |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5237 struct display_pos p; |
53178
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
5238 int dx2, dy2; |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5239 int width2, height2; |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5240 string2 = buffer_posn_from_coords (w, &wx, &wy, &p, |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5241 &object2, &dx2, &dy2, |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5242 &width2, &height2); |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5243 textpos = CHARPOS (p.pos); |
53178
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
5244 if (rx < 0) rx = wx; |
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
5245 if (ry < 0) ry = wy; |
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
5246 if (dx < 0) dx = dx2; |
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
5247 if (dy < 0) dy = dy2; |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5248 if (width < 0) width = width2; |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5249 if (height < 0) height = height2; |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5250 |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5251 if (NILP (posn)) |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5252 { |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5253 posn = make_number (textpos); |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5254 if (STRINGP (string2)) |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5255 string_info = Fcons (string2, |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5256 make_number (CHARPOS (p.string_pos))); |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5257 } |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5258 if (NILP (object)) |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5259 object = object2; |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5260 } |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5261 |
53330
2dfa97148836
(Qimage): Remove extern (now in lisp.h).
Kim F. Storm <storm@cua.dk>
parents:
53178
diff
changeset
|
5262 #ifdef HAVE_WINDOW_SYSTEM |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5263 if (IMAGEP (object)) |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5264 { |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5265 Lisp_Object image_map, hotspot; |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5266 if ((image_map = Fplist_get (XCDR (object), QCmap), |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5267 !NILP (image_map)) |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5268 && (hotspot = find_hot_spot (image_map, dx, dy), |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5269 CONSP (hotspot)) |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5270 && (hotspot = XCDR (hotspot), CONSP (hotspot))) |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5271 posn = XCAR (hotspot); |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5272 } |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5273 #endif |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5274 |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5275 /* Object info */ |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5276 extra_info = Fcons (object, |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5277 Fcons (Fcons (make_number (dx), |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5278 make_number (dy)), |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5279 Fcons (Fcons (make_number (width), |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5280 make_number (height)), |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5281 Qnil))); |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5282 |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5283 /* String info */ |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5284 extra_info = Fcons (string_info, |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5285 Fcons (make_number (textpos), |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5286 Fcons (Fcons (make_number (rx), |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5287 make_number (ry)), |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
5288 extra_info))); |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5289 } |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5290 else if (f != 0) |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5291 { |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5292 XSETFRAME (window, f); |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5293 } |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5294 else |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5295 { |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5296 window = Qnil; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5297 XSETFASTINT (*x, 0); |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5298 XSETFASTINT (*y, 0); |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5299 } |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5300 |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5301 return Fcons (window, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5302 Fcons (posn, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5303 Fcons (Fcons (*x, *y), |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5304 Fcons (make_number (time), |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5305 extra_info)))); |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5306 } |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5307 |
518 | 5308 /* Given a struct input_event, build the lisp event which represents |
5309 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
|
5310 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
|
5311 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5312 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
|
5313 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
|
5314 in order to build drag events when the button is released. */ |
518 | 5315 |
5316 static Lisp_Object | |
5317 make_lispy_event (event) | |
5318 struct input_event *event; | |
5319 { | |
5394
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
5320 int i; |
ca6521958577
(lispy_accent_codes): Cope if an XK symbol is undefined.
Richard M. Stallman <rms@gnu.org>
parents:
5371
diff
changeset
|
5321 |
10457
2ab3bd0288a9
Change all occurences of SWITCH_ENUM_BUG to use SWITCH_ENUM_CAST instead.
Karl Heuer <kwzh@gnu.org>
parents:
10433
diff
changeset
|
5322 switch (SWITCH_ENUM_CAST (event->kind)) |
518 | 5323 { |
5324 /* A simple keystroke. */ | |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
5325 case ASCII_KEYSTROKE_EVENT: |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5326 { |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
5327 Lisp_Object lispy_c; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5328 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
|
5329 /* 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
|
5330 when proper. */ |
5b72eb2483e7
* xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents:
2789
diff
changeset
|
5331 if (event->modifiers & ctrl_modifier) |
2954
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
5332 c = make_ctrl_char (c); |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
5333 |
0dfd1927264e
(make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents:
2950
diff
changeset
|
5334 /* 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
|
5335 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
|
5336 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
|
5337 c |= (event->modifiers |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5338 & (meta_modifier | alt_modifier |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5339 | hyper_modifier | super_modifier)); |
18778
7626e0d30719
(make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents:
18777
diff
changeset
|
5340 /* Distinguish Shift-SPC from SPC. */ |
7626e0d30719
(make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents:
18777
diff
changeset
|
5341 if ((event->code & 0377) == 040 |
7626e0d30719
(make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents:
18777
diff
changeset
|
5342 && event->modifiers & shift_modifier) |
7626e0d30719
(make_lispy_event): Distinguish S-SPC from SPC.
Richard M. Stallman <rms@gnu.org>
parents:
18777
diff
changeset
|
5343 c |= shift_modifier; |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5344 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
|
5345 XSETFASTINT (lispy_c, c); |
8938
16c1ca187613
(kbd_store_ptr): Declare storage class before qualifier.
Karl Heuer <kwzh@gnu.org>
parents:
8936
diff
changeset
|
5346 return lispy_c; |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
5347 } |
518 | 5348 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
5349 case MULTIBYTE_CHAR_KEYSTROKE_EVENT: |
30749
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
5350 { |
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
5351 Lisp_Object lispy_c; |
50994
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5352 int c = event->code; |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5353 |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5354 /* Add in the other modifier bits. We took care of ctrl_modifier |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5355 just above, and the shift key was taken care of by the X code, |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5356 and applied to control characters by make_ctrl_char. */ |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5357 c |= (event->modifiers |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5358 & (meta_modifier | alt_modifier |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5359 | hyper_modifier | super_modifier | ctrl_modifier)); |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5360 /* What about the `shift' modifier ? */ |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5361 button_down_time = 0; |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
5362 XSETFASTINT (lispy_c, c); |
30749
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
5363 return lispy_c; |
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
5364 } |
7a0d5d24269e
(make_lispy_event): Handle the new event type
Kenichi Handa <handa@m17n.org>
parents:
30709
diff
changeset
|
5365 |
518 | 5366 /* A function key. The symbol may need to have modifier prefixes |
5367 tacked onto it. */ | |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
5368 case NON_ASCII_KEYSTROKE_EVENT: |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5369 button_down_time = 0; |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5370 |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5371 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
|
5372 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
|
5373 return modify_event_symbol (i, |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5374 event->modifiers, |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
5375 Qfunction_key, Qnil, |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5376 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
|
5377 (sizeof (lispy_accent_keys) |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5378 / sizeof (lispy_accent_keys[0]))); |
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5379 |
48086
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
5380 #if 0 |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
5381 #ifdef XK_kana_A |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
5382 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
|
5383 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
|
5384 event->modifiers & ~shift_modifier, |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
5385 Qfunction_key, Qnil, |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
5386 lispy_kana_keys, &func_key_syms, |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
5387 (sizeof (lispy_kana_keys) |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
5388 / sizeof (lispy_kana_keys[0]))); |
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
5389 #endif /* XK_kana_A */ |
48086
b61109579f17
(lispy_accent_codes, lispy_accent_keys): Extended.
Dave Love <fx@gnu.org>
parents:
47759
diff
changeset
|
5390 #endif /* 0 */ |
17035
275c20d27886
(command_loop_1): Pay attention to a multibyte
Karl Heuer <kwzh@gnu.org>
parents:
16873
diff
changeset
|
5391 |
18513
948557b5aa7c
(make_lispy_event): Check that ISO_FUNCTION_KEY_OFFSET is defined.
Richard M. Stallman <rms@gnu.org>
parents:
18501
diff
changeset
|
5392 #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
|
5393 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
|
5394 && 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
|
5395 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
|
5396 event->modifiers, |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
5397 Qfunction_key, Qnil, |
0bd89f686cb6
(make_lispy_event): Use iso_lispy_function_keys for
Richard M. Stallman <rms@gnu.org>
parents:
17035
diff
changeset
|
5398 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
|
5399 (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
|
5400 / sizeof (iso_lispy_function_keys[0]))); |
44353
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5401 #endif |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5402 |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5403 /* Handle system-specific or unknown keysyms. */ |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5404 if (event->code & (1 << 28) |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5405 || event->code - FUNCTION_KEY_OFFSET < 0 |
39578
1d808e902c17
(make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents:
39452
diff
changeset
|
5406 || (event->code - FUNCTION_KEY_OFFSET |
44353
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5407 >= sizeof lispy_function_keys / sizeof *lispy_function_keys) |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5408 || !lispy_function_keys[event->code - FUNCTION_KEY_OFFSET]) |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5409 { |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5410 /* We need to use an alist rather than a vector as the cache |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5411 since we can't make a vector long enuf. */ |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5412 if (NILP (current_kboard->system_key_syms)) |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5413 current_kboard->system_key_syms = Fcons (Qnil, Qnil); |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5414 return modify_event_symbol (event->code, |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5415 event->modifiers, |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5416 Qfunction_key, |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5417 current_kboard->Vsystem_key_alist, |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5418 0, ¤t_kboard->system_key_syms, |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5419 (unsigned) -1); |
4c66bc116ca9
(make_lispy_event): Handle unknown keysyms together
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44338
diff
changeset
|
5420 } |
39578
1d808e902c17
(make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents:
39452
diff
changeset
|
5421 |
1d808e902c17
(make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents:
39452
diff
changeset
|
5422 return modify_event_symbol (event->code - FUNCTION_KEY_OFFSET, |
1d808e902c17
(make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents:
39452
diff
changeset
|
5423 event->modifiers, |
1d808e902c17
(make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents:
39452
diff
changeset
|
5424 Qfunction_key, Qnil, |
1d808e902c17
(make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents:
39452
diff
changeset
|
5425 lispy_function_keys, &func_key_syms, |
1d808e902c17
(make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents:
39452
diff
changeset
|
5426 (sizeof (lispy_function_keys) |
1d808e902c17
(make_lispy_event) [HAVE_X_WINDOWS]: If we know
Gerd Moellmann <gerd@gnu.org>
parents:
39452
diff
changeset
|
5427 / sizeof (lispy_function_keys[0]))); |
518 | 5428 |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
5429 #ifdef HAVE_MOUSE |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
5430 /* 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
|
5431 a press, click or drag, and build the appropriate structure. */ |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
5432 case MOUSE_CLICK_EVENT: |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5433 #ifndef USE_TOOLKIT_SCROLL_BARS |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
5434 case SCROLL_BAR_CLICK_EVENT: |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5435 #endif |
518 | 5436 { |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
5437 int button = event->code; |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5438 int is_double; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5439 Lisp_Object position; |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5440 Lisp_Object *start_pos_ptr; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5441 Lisp_Object start_pos; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5442 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
5443 position = Qnil; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
5444 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5445 /* Build the position as appropriate for this mouse click. */ |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
5446 if (event->kind == MOUSE_CLICK_EVENT) |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5447 { |
38792
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5448 struct frame *f = XFRAME (event->frame_or_window); |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5449 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK) |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5450 int row, column; |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5451 #endif |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5452 |
7351
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
5453 /* 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
|
5454 have been deleted. */ |
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
5455 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
|
5456 return Qnil; |
f5cf08a3a645
(make_lispy_event): Ignore mouse events for deleted frame.
Richard M. Stallman <rms@gnu.org>
parents:
7345
diff
changeset
|
5457 |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5458 #if ! defined (USE_X_TOOLKIT) && ! defined (USE_GTK) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5459 /* 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
|
5460 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
|
5461 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
|
5462 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
|
5463 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
|
5464 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
|
5465 &column, &row, NULL, 1); |
10275
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
5466 |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
5467 /* 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
|
5468 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
|
5469 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
|
5470 |
0231c0d38918
(make_lispy_event) [USE_X_TOOLKIT]: Turn off
Richard M. Stallman <rms@gnu.org>
parents:
10233
diff
changeset
|
5471 (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
|
5472 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
|
5473 makes a selection.) */ |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
5474 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
|
5475 && (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
|
5476 { |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5477 Lisp_Object items, item; |
8169
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
5478 int hpos; |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
5479 int i; |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
5480 |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
5481 #if 0 |
8169
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
5482 /* 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
|
5483 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
|
5484 just ignore it. */ |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
5485 if (! (event->modifiers & down_modifier)) |
09a8da4ffadf
(make_lispy_event): Ignore menu bar up events.
Richard M. Stallman <rms@gnu.org>
parents:
8089
diff
changeset
|
5486 return Qnil; |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
5487 #endif |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
5488 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5489 /* Find the menu bar item under `column'. */ |
6812
ba2176fd811c
(make_lispy_event): Initialize item.
Karl Heuer <kwzh@gnu.org>
parents:
6805
diff
changeset
|
5490 item = Qnil; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5491 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
|
5492 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
|
5493 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5494 Lisp_Object pos, string; |
36663
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5495 string = AREF (items, i + 1); |
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5496 pos = AREF (items, 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
|
5497 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
|
5498 break; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5499 if (column >= XINT (pos) |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
5500 && column < XINT (pos) + SCHARS (string)) |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5501 { |
36663
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5502 item = AREF (items, i); |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5503 break; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5504 } |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5505 } |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5506 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5507 /* 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
|
5508 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
|
5509 position |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5510 = Fcons (event->frame_or_window, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5511 Fcons (Qmenu_bar, |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5512 Fcons (Fcons (event->x, event->y), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5513 Fcons (make_number (event->timestamp), |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5514 Qnil)))); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
5515 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
5516 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
|
5517 } |
49322 | 5518 #endif /* not USE_X_TOOLKIT && not USE_GTK */ |
6024
0aa565fdb1b9
(make_lispy_event): For menu bar event in USE_X_TOOLKIT
Richard M. Stallman <rms@gnu.org>
parents:
6020
diff
changeset
|
5519 |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5520 position = make_lispy_position (f, &event->x, &event->y, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5521 event->timestamp); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5522 } |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5523 #ifndef USE_TOOLKIT_SCROLL_BARS |
518 | 5524 else |
5525 { | |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5526 /* It's a scrollbar click. */ |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5527 Lisp_Object window; |
6053
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5528 Lisp_Object portion_whole; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5529 Lisp_Object part; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5530 |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5531 window = event->frame_or_window; |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5532 portion_whole = Fcons (event->x, event->y); |
19d123e039fa
(make_lispy_movement, make_lispy_event):
Richard M. Stallman <rms@gnu.org>
parents:
6024
diff
changeset
|
5533 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
|
5534 |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5535 position |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5536 = Fcons (window, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5537 Fcons (Qvertical_scroll_bar, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5538 Fcons (portion_whole, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5539 Fcons (make_number (event->timestamp), |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5540 Fcons (part, Qnil))))); |
518 | 5541 } |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5542 #endif /* not USE_TOOLKIT_SCROLL_BARS */ |
518 | 5543 |
36663
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5544 if (button >= ASIZE (button_down_location)) |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5545 { |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5546 button_down_location = larger_vector (button_down_location, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5547 button + 1, Qnil); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5548 mouse_syms = larger_vector (mouse_syms, button + 1, Qnil); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5549 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5550 |
36663
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5551 start_pos_ptr = &AREF (button_down_location, button); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5552 start_pos = *start_pos_ptr; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5553 *start_pos_ptr = Qnil; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5554 |
38792
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5555 { |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5556 /* On window-system frames, use the value of |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5557 double-click-fuzz as is. On other frames, interpret it |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5558 as a multiple of 1/8 characters. */ |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5559 struct frame *f; |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5560 int fuzz; |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5561 |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5562 if (WINDOWP (event->frame_or_window)) |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5563 f = XFRAME (XWINDOW (event->frame_or_window)->frame); |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5564 else if (FRAMEP (event->frame_or_window)) |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5565 f = XFRAME (event->frame_or_window); |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5566 else |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5567 abort (); |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5568 |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5569 if (FRAME_WINDOW_P (f)) |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5570 fuzz = double_click_fuzz; |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5571 else |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5572 fuzz = double_click_fuzz / 8; |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5573 |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5574 is_double = (button == last_mouse_button |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5575 && (abs (XINT (event->x) - last_mouse_x) <= fuzz) |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5576 && (abs (XINT (event->y) - last_mouse_y) <= fuzz) |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5577 && button_down_time != 0 |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5578 && (EQ (Vdouble_click_time, Qt) |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5579 || (INTEGERP (Vdouble_click_time) |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5580 && ((int)(event->timestamp - button_down_time) |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5581 < XINT (Vdouble_click_time))))); |
c9b9238088f3
(make_lispy_event): Interpret double_click_fuzz
Gerd Moellmann <gerd@gnu.org>
parents:
38772
diff
changeset
|
5582 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5583 |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5584 last_mouse_button = button; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5585 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
|
5586 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
|
5587 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5588 /* 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
|
5589 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
|
5590 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
|
5591 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5592 if (is_double) |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5593 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5594 double_click_count++; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5595 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
|
5596 ? triple_modifier |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5597 : double_modifier); |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5598 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5599 else |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5600 double_click_count = 1; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5601 button_down_time = event->timestamp; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5602 *start_pos_ptr = Fcopy_alist (position); |
74621
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
5603 ignore_mouse_drag_p = 0; |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
5604 } |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5605 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5606 /* 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
|
5607 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
|
5608 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
|
5609 { |
36663
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5610 /* If we did not see a down before this up, ignore the up. |
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5611 Probably this happened because the down event chose a |
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5612 menu item. It would be an annoyance to treat the |
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5613 release of the button that chose the menu item as a |
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5614 separate event. */ |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
5615 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
5616 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
|
5617 return Qnil; |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
5618 |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5619 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
|
5620 #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
|
5621 if (!CONSP (start_pos)) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5622 event->modifiers |= click_modifier; |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5623 else |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
5624 #endif |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5625 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5626 Lisp_Object down; |
40736
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5627 EMACS_INT xdiff = double_click_fuzz, ydiff = double_click_fuzz; |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5628 |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5629 /* The third element of every position |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5630 should be the (x,y) pair. */ |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5631 down = Fcar (Fcdr (Fcdr (start_pos))); |
40775
2b25276add88
(make_lispy_event): Check integerness and fix Lisp_Object/int mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40736
diff
changeset
|
5632 if (CONSP (down) |
2b25276add88
(make_lispy_event): Check integerness and fix Lisp_Object/int mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40736
diff
changeset
|
5633 && INTEGERP (XCAR (down)) && INTEGERP (XCDR (down))) |
40736
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5634 { |
65816
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5635 xdiff = XINT (event->x) - XINT (XCAR (down)); |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5636 ydiff = XINT (event->y) - XINT (XCDR (down)); |
40736
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5637 } |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5638 |
74621
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
5639 if (ignore_mouse_drag_p) |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
5640 { |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
5641 event->modifiers |= click_modifier; |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
5642 ignore_mouse_drag_p = 0; |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
5643 } |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
5644 else if (xdiff < double_click_fuzz && xdiff > - double_click_fuzz |
130738a27be7
(ignore_mouse_drag_p): New global var.
Kim F. Storm <storm@cua.dk>
parents:
74611
diff
changeset
|
5645 && ydiff < double_click_fuzz && ydiff > - double_click_fuzz |
65816
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5646 /* Maybe the mouse has moved a lot, caused scrolling, and |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5647 eventually ended up at the same screen position (but |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5648 not buffer position) in which case it is a drag, not |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5649 a click. */ |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5650 /* FIXME: OTOH if the buffer position has changed |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5651 because of a timer or process filter rather than |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5652 because of mouse movement, it should be considered as |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5653 a click. But mouse-drag-region completely ignores |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5654 this case and it hasn't caused any real problem, so |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5655 it's probably OK to ignore it as well. */ |
95baa5a5fb95
(make_lispy_event): If point has moved between down and up event, make it
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
65769
diff
changeset
|
5656 && EQ (Fcar (Fcdr (start_pos)), Fcar (Fcdr (position)))) |
40736
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5657 /* Mouse hasn't moved (much). */ |
36663
604d7fae62d1
(make_lispy_event): Avoid generating drag events
Gerd Moellmann <gerd@gnu.org>
parents:
36255
diff
changeset
|
5658 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
|
5659 else |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5660 { |
40736
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5661 button_down_time = 0; |
d6395595f8ac
(read_char): Use Fcar and Fcdr, not Fnth.
Richard M. Stallman <rms@gnu.org>
parents:
40733
diff
changeset
|
5662 event->modifiers |= drag_modifier; |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5663 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5664 |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
5665 /* 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
|
5666 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
|
5667 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
|
5668 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
|
5669 ? triple_modifier |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
5670 : double_modifier); |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5671 } |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5672 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5673 else |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5674 /* 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
|
5675 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
|
5676 abort (); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5677 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5678 { |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5679 /* 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
|
5680 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
|
5681 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
5682 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
|
5683 event->modifiers, |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5684 Qmouse_click, Vlispy_mouse_stem, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5685 NULL, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5686 &mouse_syms, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5687 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
|
5688 if (event->modifiers & drag_modifier) |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5689 return Fcons (head, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5690 Fcons (start_pos, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5691 Fcons (position, |
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1802
diff
changeset
|
5692 Qnil))); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5693 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
|
5694 return Fcons (head, |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5695 Fcons (position, |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
5696 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
|
5697 Qnil))); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5698 else |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5699 return Fcons (head, |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
5700 Fcons (position, |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5701 Qnil)); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
5702 } |
518 | 5703 } |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5704 |
51384
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5705 case WHEEL_EVENT: |
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5706 { |
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5707 Lisp_Object position; |
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5708 Lisp_Object head; |
54087 | 5709 |
51385
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5710 /* Build the position as appropriate for this mouse click. */ |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5711 struct frame *f = XFRAME (event->frame_or_window); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5712 |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5713 /* Ignore wheel events that were made on frame that have been |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5714 deleted. */ |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5715 if (! FRAME_LIVE_P (f)) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5716 return Qnil; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5717 |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5718 position = make_lispy_position (f, &event->x, &event->y, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5719 event->timestamp); |
51385
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5720 |
74145 | 5721 /* Set double or triple modifiers to indicate the wheel speed. */ |
51385
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5722 { |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5723 /* On window-system frames, use the value of |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5724 double-click-fuzz as is. On other frames, interpret it |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5725 as a multiple of 1/8 characters. */ |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5726 struct frame *f; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5727 int fuzz; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5728 int is_double; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5729 |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5730 if (WINDOWP (event->frame_or_window)) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5731 f = XFRAME (XWINDOW (event->frame_or_window)->frame); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5732 else if (FRAMEP (event->frame_or_window)) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5733 f = XFRAME (event->frame_or_window); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5734 else |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5735 abort (); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5736 |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5737 if (FRAME_WINDOW_P (f)) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5738 fuzz = double_click_fuzz; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5739 else |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5740 fuzz = double_click_fuzz / 8; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5741 |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5742 is_double = (last_mouse_button < 0 |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5743 && (abs (XINT (event->x) - last_mouse_x) <= fuzz) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5744 && (abs (XINT (event->y) - last_mouse_y) <= fuzz) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5745 && button_down_time != 0 |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5746 && (EQ (Vdouble_click_time, Qt) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5747 || (INTEGERP (Vdouble_click_time) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5748 && ((int)(event->timestamp - button_down_time) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5749 < XINT (Vdouble_click_time))))); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5750 if (is_double) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5751 { |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5752 double_click_count++; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5753 event->modifiers |= ((double_click_count > 2) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5754 ? triple_modifier |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5755 : double_modifier); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5756 } |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5757 else |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5758 { |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5759 double_click_count = 1; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5760 event->modifiers |= click_modifier; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5761 } |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5762 |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5763 button_down_time = event->timestamp; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5764 /* Use a negative value to distinguish wheel from mouse button. */ |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5765 last_mouse_button = -1; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5766 last_mouse_x = XINT (event->x); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5767 last_mouse_y = XINT (event->y); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5768 } |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5769 |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5770 { |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5771 int symbol_num; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5772 |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5773 if (event->modifiers & up_modifier) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5774 { |
74145 | 5775 /* Emit a wheel-up event. */ |
51385
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5776 event->modifiers &= ~up_modifier; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5777 symbol_num = 0; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5778 } |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5779 else if (event->modifiers & down_modifier) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5780 { |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5781 /* Emit a wheel-down event. */ |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5782 event->modifiers &= ~down_modifier; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5783 symbol_num = 1; |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5784 } |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5785 else |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5786 /* Every wheel event should either have the down_modifier or |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5787 the up_modifier set. */ |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5788 abort (); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5789 |
74145 | 5790 /* Get the symbol we should use for the wheel event. */ |
51385
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5791 head = modify_event_symbol (symbol_num, |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5792 event->modifiers, |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5793 Qmouse_click, |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5794 Qnil, |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5795 lispy_wheel_names, |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5796 &wheel_syms, |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5797 ASIZE (wheel_syms)); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5798 } |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5799 |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5800 if (event->modifiers & (double_modifier | triple_modifier)) |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5801 return Fcons (head, |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5802 Fcons (position, |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5803 Fcons (make_number (double_click_count), |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5804 Qnil))); |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5805 else |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5806 return Fcons (head, |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5807 Fcons (position, |
a838a46a67a6
Make last change compile on MSVC
Jason Rumney <jasonr@gnu.org>
parents:
51384
diff
changeset
|
5808 Qnil)); |
51384
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5809 } |
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5810 |
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
5811 |
46718
175cd09f34d2
(make_lispy_event): Use #ifdef to test USE_TOOLKIT_SCROLL_BARS.
Richard M. Stallman <rms@gnu.org>
parents:
46572
diff
changeset
|
5812 #ifdef USE_TOOLKIT_SCROLL_BARS |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5813 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5814 /* 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
|
5815 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
|
5816 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
|
5817 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5818 `above_handle' page up |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5819 `below_handle' page down |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5820 `up' line up |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5821 `down' line down |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5822 `top' top of buffer |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5823 `bottom' bottom of buffer |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5824 `handle' thumb has been dragged. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5825 `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
|
5826 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5827 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
|
5828 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
|
5829 index in scroll_bar_parts to get the appropriate symbol. */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5830 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
5831 case SCROLL_BAR_CLICK_EVENT: |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5832 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5833 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
|
5834 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5835 window = event->frame_or_window; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5836 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
|
5837 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
|
5838 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5839 position |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5840 = Fcons (window, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5841 Fcons (Qvertical_scroll_bar, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5842 Fcons (portion_whole, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5843 Fcons (make_number (event->timestamp), |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5844 Fcons (part, Qnil))))); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5845 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5846 /* 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
|
5847 event->modifiers |= click_modifier; |
46718
175cd09f34d2
(make_lispy_event): Use #ifdef to test USE_TOOLKIT_SCROLL_BARS.
Richard M. Stallman <rms@gnu.org>
parents:
46572
diff
changeset
|
5848 event->modifiers &= ~up_modifier; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5849 |
50064
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
49976
diff
changeset
|
5850 if (event->code >= ASIZE (mouse_syms)) |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
49976
diff
changeset
|
5851 mouse_syms = larger_vector (mouse_syms, event->code + 1, Qnil); |
40170697bff1
Implement Ctrl-Mouse-2 (split vertically) for toolkit scrollbars
Jan Djärv <jan.h.d@swipnet.se>
parents:
49976
diff
changeset
|
5852 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5853 /* 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
|
5854 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
|
5855 event->modifiers, |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
5856 Qmouse_click, |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5857 Vlispy_mouse_stem, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5858 NULL, &mouse_syms, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5859 XVECTOR (mouse_syms)->size); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5860 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
|
5861 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5862 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5863 #endif /* USE_TOOLKIT_SCROLL_BARS */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
5864 |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5865 #ifdef WINDOWSNT |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
5866 case W32_SCROLL_BAR_CLICK_EVENT: |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5867 { |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5868 int button = event->code; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5869 int is_double; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5870 Lisp_Object position; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5871 Lisp_Object *start_pos_ptr; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5872 Lisp_Object start_pos; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5873 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5874 { |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5875 Lisp_Object window; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5876 Lisp_Object portion_whole; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5877 Lisp_Object part; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5878 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5879 window = event->frame_or_window; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5880 portion_whole = Fcons (event->x, event->y); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5881 part = *scroll_bar_parts[(int) event->part]; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5882 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
5883 position |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
5884 = Fcons (window, |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
5885 Fcons (Qvertical_scroll_bar, |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
5886 Fcons (portion_whole, |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
5887 Fcons (make_number (event->timestamp), |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
5888 Fcons (part, Qnil))))); |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5889 } |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5890 |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16504
diff
changeset
|
5891 /* Always treat W32 scroll bar events as clicks. */ |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5892 event->modifiers |= click_modifier; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5893 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5894 { |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5895 /* 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
|
5896 Lisp_Object head; |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5897 |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5898 head = modify_event_symbol (button, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5899 event->modifiers, |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5900 Qmouse_click, |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5901 Vlispy_mouse_stem, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5902 NULL, &mouse_syms, |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
5903 XVECTOR (mouse_syms)->size); |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5904 return Fcons (head, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5905 Fcons (position, |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5906 Qnil)); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5907 } |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
5908 } |
46854
28b72b441940
(make_lispy_event): Test WINDOWSNT, not WINDOWS_NT.
Richard M. Stallman <rms@gnu.org>
parents:
46798
diff
changeset
|
5909 #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
|
5910 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
5911 case DRAG_N_DROP_EVENT: |
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
|
5912 { |
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
|
5913 FRAME_PTR f; |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5914 Lisp_Object head, position; |
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
|
5915 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
|
5916 |
67664
61bd8643b908
(make_lispy_event): Drag-and-drop items are now
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67455
diff
changeset
|
5917 f = XFRAME (event->frame_or_window); |
61bd8643b908
(make_lispy_event): Drag-and-drop items are now
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
67455
diff
changeset
|
5918 files = event->arg; |
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
|
5919 |
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
|
5920 /* 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
|
5921 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
|
5922 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
|
5923 return Qnil; |
33882
778426d92d7b
(make_lispy_event) [mouse_wheel, drag_n_drop]: Args to
Jason Rumney <jasonr@gnu.org>
parents:
33724
diff
changeset
|
5924 |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5925 position = make_lispy_position (f, &event->x, &event->y, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5926 event->timestamp); |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5927 |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5928 head = modify_event_symbol (0, event->modifiers, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5929 Qdrag_n_drop, Qnil, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5930 lispy_drag_n_drop_names, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5931 &drag_n_drop_syms, 1); |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5932 return Fcons (head, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5933 Fcons (position, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5934 Fcons (files, |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
5935 Qnil))); |
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
|
5936 } |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
5937 #endif /* HAVE_MOUSE */ |
518 | 5938 |
49322 | 5939 #if defined (USE_X_TOOLKIT) || defined (HAVE_NTGUI) || defined (MAC_OS) \ |
5940 || defined (USE_GTK) | |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5941 case MENU_BAR_EVENT: |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5942 if (EQ (event->arg, event->frame_or_window)) |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5943 /* This is the prefix key. We translate this to |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5944 `(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
|
5945 events, which we use, relies on this. */ |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5946 return Fcons (Qmenu_bar, Qnil); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5947 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
|
5948 #endif |
7b90c1076881
(kbd_buffer_get_event): Check for frame buried in a cons.
Karl Heuer <kwzh@gnu.org>
parents:
11260
diff
changeset
|
5949 |
50556
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
5950 case SELECT_WINDOW_EVENT: |
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
5951 /* Make an event (select-window (WINDOW)). */ |
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
5952 return Fcons (Qselect_window, |
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
5953 Fcons (Fcons (event->frame_or_window, Qnil), |
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
5954 Qnil)); |
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
5955 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
5956 case TOOL_BAR_EVENT: |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5957 if (EQ (event->arg, event->frame_or_window)) |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5958 /* This is the prefix key. We translate this to |
44135 | 5959 `(tool_bar)' because the code in keyboard.c for tool bar |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5960 events, which we use, relies on this. */ |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5961 return Fcons (Qtool_bar, Qnil); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5962 else if (SYMBOLP (event->arg)) |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5963 return apply_modifiers (event->modifiers, event->arg); |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5964 return event->arg; |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5965 |
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
5966 case USER_SIGNAL_EVENT: |
24375
2b4cdb028ea9
(Qusr1_signal, Qusr2_signal): New variables.
Andreas Schwab <schwab@suse.de>
parents:
24165
diff
changeset
|
5967 /* A user signal. */ |
74748
8a37dd687f38
(kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents:
74621
diff
changeset
|
5968 { |
8a37dd687f38
(kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents:
74621
diff
changeset
|
5969 char *name = find_user_signal_name (event->code); |
8a37dd687f38
(kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents:
74621
diff
changeset
|
5970 if (!name) |
8a37dd687f38
(kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents:
74621
diff
changeset
|
5971 abort (); |
8a37dd687f38
(kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents:
74621
diff
changeset
|
5972 return intern (name); |
8a37dd687f38
(kbd_buffer_store_event_hold): Undo 2006-12-04 change.
Kim F. Storm <storm@cua.dk>
parents:
74621
diff
changeset
|
5973 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5974 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
5975 case SAVE_SESSION_EVENT: |
43814
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
5976 return Qsave_session; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
5977 |
67455
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5978 #ifdef MAC_OS |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5979 case MAC_APPLE_EVENT: |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5980 { |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5981 Lisp_Object spec[2]; |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5982 |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5983 spec[0] = event->x; |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5984 spec[1] = event->y; |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5985 return Fcons (Qmac_apple_event, |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5986 Fcons (Fvector (2, spec), |
70380
85887be0a943
(make_lispy_event) [MAC_OS]: Get Apple event info from event->arg.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
69985
diff
changeset
|
5987 Fcons (event->arg, Qnil))); |
67455
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5988 } |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5989 #endif |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
5990 |
518 | 5991 /* The 'kind' field of the event is something we don't recognize. */ |
5992 default: | |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
5993 abort (); |
518 | 5994 } |
5995 } | |
5996 | |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
5997 #ifdef HAVE_MOUSE |
6805
8310b2eb6b06
(make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents:
6749
diff
changeset
|
5998 |
518 | 5999 static Lisp_Object |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6000 make_lispy_movement (frame, bar_window, part, x, y, time) |
765 | 6001 FRAME_PTR frame; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6002 Lisp_Object bar_window; |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
6003 enum scroll_bar_part part; |
518 | 6004 Lisp_Object x, y; |
732 | 6005 unsigned long time; |
518 | 6006 { |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
6007 /* Is it a scroll bar movement? */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6008 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
|
6009 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6010 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
|
6011 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6012 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
|
6013 return Fcons (Qscroll_bar_movement, |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6014 (Fcons (Fcons (bar_window, |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
6015 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
|
6016 Fcons (Fcons (x, y), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6017 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
|
6018 Fcons (part_sym, |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6019 Qnil))))), |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6020 Qnil))); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6021 } |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6022 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6023 /* Or is it an ordinary mouse movement? */ |
518 | 6024 else |
6025 { | |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
6026 Lisp_Object position; |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
6027 |
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
6028 position = make_lispy_position (frame, &x, &y, time); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6029 |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6030 return Fcons (Qmouse_movement, |
53128
c9aeaeb38318
(make_lispy_position): New function for generating
Kim F. Storm <storm@cua.dk>
parents:
53089
diff
changeset
|
6031 Fcons (position, |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
6032 Qnil)); |
518 | 6033 } |
6034 } | |
6035 | |
11026
682ae4a3d465
(make_lispy_event): Do mouse code only if HAVE_MOUSE.
Karl Heuer <kwzh@gnu.org>
parents:
11016
diff
changeset
|
6036 #endif /* HAVE_MOUSE */ |
6805
8310b2eb6b06
(make_lispy_movement): Conditionalize on MULTI_FRAME.
Richard M. Stallman <rms@gnu.org>
parents:
6749
diff
changeset
|
6037 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6038 /* 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
|
6039 static Lisp_Object |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6040 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
|
6041 Lisp_Object frame; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6042 { |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6043 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
|
6044 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6045 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6046 /* Manipulating modifiers. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6047 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6048 /* 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
|
6049 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6050 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
|
6051 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
|
6052 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
|
6053 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6054 This doesn't use any caches. */ |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6055 |
518 | 6056 static int |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6057 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
|
6058 Lisp_Object symbol; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6059 int *modifier_end; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6060 { |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6061 Lisp_Object name; |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6062 int i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6063 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6064 |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40548
diff
changeset
|
6065 CHECK_SYMBOL (symbol); |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6066 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6067 modifiers = 0; |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6068 name = SYMBOL_NAME (symbol); |
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6069 |
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6070 for (i = 0; i+2 <= SBYTES (name); ) |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6071 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6072 int this_mod_end = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6073 int this_mod = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6074 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6075 /* 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
|
6076 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
|
6077 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
|
6078 |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6079 switch (SREF (name, i)) |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6080 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6081 #define SINGLE_LETTER_MOD(BIT) \ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6082 (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
|
6083 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6084 case 'A': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6085 SINGLE_LETTER_MOD (alt_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6086 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6087 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6088 case 'C': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6089 SINGLE_LETTER_MOD (ctrl_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6090 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6091 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6092 case 'H': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6093 SINGLE_LETTER_MOD (hyper_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6094 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6095 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6096 case 'M': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6097 SINGLE_LETTER_MOD (meta_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6098 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6099 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6100 case 'S': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6101 SINGLE_LETTER_MOD (shift_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6102 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6103 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6104 case 's': |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6105 SINGLE_LETTER_MOD (super_modifier); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6106 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6107 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6108 #undef SINGLE_LETTER_MOD |
50758
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6109 |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6110 #define MULTI_LETTER_MOD(BIT, NAME, LEN) \ |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6111 if (i + LEN + 1 <= SBYTES (name) \ |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6112 && ! strncmp (SDATA (name) + i, NAME, LEN)) \ |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6113 { \ |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6114 this_mod_end = i + LEN; \ |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6115 this_mod = BIT; \ |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6116 } |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6117 |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6118 case 'd': |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6119 MULTI_LETTER_MOD (drag_modifier, "drag", 4); |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6120 MULTI_LETTER_MOD (down_modifier, "down", 4); |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6121 MULTI_LETTER_MOD (double_modifier, "double", 6); |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6122 break; |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6123 |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6124 case 't': |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6125 MULTI_LETTER_MOD (triple_modifier, "triple", 6); |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6126 break; |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6127 #undef MULTI_LETTER_MOD |
ee55f23e4fbc
(parse_modifiers_uncached): Parse `down', `drag',
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50749
diff
changeset
|
6128 |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6129 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6130 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6131 /* 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
|
6132 if (this_mod_end == 0) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6133 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6134 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6135 /* 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
|
6136 really is a modifier. */ |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6137 if (this_mod_end >= SBYTES (name) |
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6138 || SREF (name, this_mod_end) != '-') |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6139 break; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6140 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6141 /* This modifier is real; look for another. */ |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6142 modifiers |= this_mod; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6143 i = this_mod_end + 1; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6144 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6145 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6146 /* 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
|
6147 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
|
6148 | double_modifier | triple_modifier)) |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6149 && i + 7 == SBYTES (name) |
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6150 && strncmp (SDATA (name) + i, "mouse-", 6) == 0 |
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6151 && ('0' <= SREF (name, i + 6) && SREF (name, 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
|
6152 modifiers |= click_modifier; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6153 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6154 if (modifier_end) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6155 *modifier_end = i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6156 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6157 return modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6158 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6159 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6160 /* 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
|
6161 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
|
6162 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
|
6163 static Lisp_Object |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
6164 apply_modifiers_uncached (modifiers, base, base_len, base_len_byte) |
518 | 6165 int modifiers; |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6166 char *base; |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
6167 int base_len, base_len_byte; |
518 | 6168 { |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6169 /* 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
|
6170 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
|
6171 reference to it. */ |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
6172 char *new_mods |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
6173 = (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
|
6174 int mod_len; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6175 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6176 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6177 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
|
6178 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6179 /* 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
|
6180 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
|
6181 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
|
6182 abort (); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6183 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6184 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
|
6185 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
|
6186 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
|
6187 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
|
6188 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
|
6189 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
|
6190 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
|
6191 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
|
6192 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
|
6193 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
|
6194 /* 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
|
6195 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6196 *p = '\0'; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6197 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6198 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
|
6199 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6200 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6201 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6202 Lisp_Object new_name; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6203 |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
6204 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
|
6205 mod_len + base_len_byte); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
6206 bcopy (new_mods, SDATA (new_name), mod_len); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
6207 bcopy (base, SDATA (new_name) + 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
|
6208 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6209 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
|
6210 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6211 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6212 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6213 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6214 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
|
6215 { |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
6216 "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
|
6217 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
|
6218 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
|
6219 }; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6220 #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
|
6221 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6222 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
|
6223 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6224 /* 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
|
6225 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6226 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
|
6227 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6228 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6229 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
|
6230 int i; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6231 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6232 modifier_list = Qnil; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6233 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
|
6234 if (modifiers & (1<<i)) |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6235 modifier_list = Fcons (XVECTOR (modifier_symbols)->contents[i], |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6236 modifier_list); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6237 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6238 return modifier_list; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6239 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6240 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6241 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6242 /* 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
|
6243 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
|
6244 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
|
6245 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
|
6246 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
|
6247 Qevent_symbol_elements property. */ |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6248 |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
6249 Lisp_Object |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6250 parse_modifiers (symbol) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6251 Lisp_Object symbol; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6252 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6253 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
|
6254 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6255 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
|
6256 if (CONSP (elements)) |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6257 return elements; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6258 else |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6259 { |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6260 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
|
6261 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
|
6262 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
|
6263 Lisp_Object mask; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6264 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
6265 unmodified = Fintern (make_string (SDATA (SYMBOL_NAME (symbol)) + end, |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
6266 SBYTES (SYMBOL_NAME (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
|
6267 Qnil); |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6268 |
53089
4ccaea0e450c
(parse_modifiers, apply_modifiers): Use INTMASK instead of VALMASK.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
6269 if (modifiers & ~INTMASK) |
2436
80aafda1127b
* keyboard.c (parse_modifiers, apply_modifiers): Make sure we're
Jim Blandy <jimb@redhat.com>
parents:
2434
diff
changeset
|
6270 abort (); |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6271 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
|
6272 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
|
6273 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6274 /* 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
|
6275 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
|
6276 elements); |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6277 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
|
6278 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
|
6279 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6280 /* 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
|
6281 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
|
6282 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
|
6283 canonical. */ |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6284 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6285 return elements; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6286 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6287 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6288 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6289 /* 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
|
6290 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
|
6291 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6292 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
|
6293 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
|
6294 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
|
6295 |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
6296 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
|
6297 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
|
6298 static Lisp_Object |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6299 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
|
6300 int modifiers; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6301 Lisp_Object base; |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6302 { |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6303 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
|
6304 |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6305 /* Mask out upper bits. We don't know where this value's been. */ |
53089
4ccaea0e450c
(parse_modifiers, apply_modifiers): Use INTMASK instead of VALMASK.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
6306 modifiers &= INTMASK; |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
6307 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6308 /* 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
|
6309 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
|
6310 XSETFASTINT (index, (modifiers & ~click_modifier)); |
7999
f1837249c67f
(apply_modifiers): Use assq_no_quit.
Richard M. Stallman <rms@gnu.org>
parents:
7957
diff
changeset
|
6311 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
|
6312 |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6313 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
|
6314 new_symbol = XCDR (entry); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6315 else |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6316 { |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6317 /* 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
|
6318 new_symbol = apply_modifiers_uncached (modifiers, |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
6319 SDATA (SYMBOL_NAME (base)), |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
6320 SCHARS (SYMBOL_NAME (base)), |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
6321 SBYTES (SYMBOL_NAME (base))); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6322 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6323 /* 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
|
6324 entry = Fcons (index, new_symbol); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6325 Fput (base, Qmodifier_cache, Fcons (entry, cache)); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6326 |
51014
7dde1bfbb922
(apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50994
diff
changeset
|
6327 /* We have the parsing info now for free, so we could add it to |
7dde1bfbb922
(apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50994
diff
changeset
|
6328 the caches: |
7dde1bfbb922
(apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50994
diff
changeset
|
6329 XSETFASTINT (index, modifiers); |
7dde1bfbb922
(apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50994
diff
changeset
|
6330 Fput (new_symbol, Qevent_symbol_element_mask, |
7dde1bfbb922
(apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50994
diff
changeset
|
6331 Fcons (base, Fcons (index, Qnil))); |
7dde1bfbb922
(apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50994
diff
changeset
|
6332 Fput (new_symbol, Qevent_symbol_elements, |
7dde1bfbb922
(apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50994
diff
changeset
|
6333 Fcons (base, lispy_modifier_list (modifiers))); |
7dde1bfbb922
(apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50994
diff
changeset
|
6334 Sadly, this is only correct if `base' is indeed a base event, |
7dde1bfbb922
(apply_modifiers): Don't fill the other cache.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50994
diff
changeset
|
6335 which is not necessarily the case. -stef */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6336 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6337 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6338 /* 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
|
6339 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6340 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
|
6341 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
|
6342 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
|
6343 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
|
6344 Qevent_kind set right as well. */ |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6345 if (NILP (Fget (new_symbol, Qevent_kind))) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6346 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6347 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
|
6348 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6349 kind = Fget (base, Qevent_kind); |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6350 if (! NILP (kind)) |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6351 Fput (new_symbol, Qevent_kind, kind); |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6352 } |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6353 |
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
6354 return new_symbol; |
518 | 6355 } |
6356 | |
6357 | |
6358 /* Given a symbol whose name begins with modifiers ("C-", "M-", etc), | |
6359 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
|
6360 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
|
6361 always come last. The 'click' modifier is never written out. |
518 | 6362 |
6363 Fdefine_key calls this to make sure that (for example) C-M-foo | |
6364 and M-C-foo end up being equivalent in the keymap. */ | |
6365 | |
6366 Lisp_Object | |
6367 reorder_modifiers (symbol) | |
6368 Lisp_Object symbol; | |
6369 { | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6370 /* 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
|
6371 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
|
6372 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
|
6373 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
6374 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
|
6375 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
|
6376 XCAR (parsed)); |
518 | 6377 } |
6378 | |
6379 | |
6380 /* For handling events, we often want to produce a symbol whose name | |
6381 is a series of modifier key prefixes ("M-", "C-", etcetera) attached | |
6382 to some base, like the name of a function key or mouse button. | |
6383 modify_event_symbol produces symbols of this sort. | |
6384 | |
6385 NAME_TABLE should point to an array of strings, such that NAME_TABLE[i] | |
6386 is the name of the i'th symbol. TABLE_SIZE is the number of elements | |
6387 in the table. | |
6388 | |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
6389 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
|
6390 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
|
6391 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
|
6392 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
|
6393 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
|
6394 |
518 | 6395 SYMBOL_TABLE should be a pointer to a Lisp_Object whose value will |
6396 persist between calls to modify_event_symbol that it can use to | |
6397 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
|
6398 before. The object stored there may be a vector or an alist. |
518 | 6399 |
6400 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
|
6401 |
518 | 6402 MODIFIERS is a set of modifier bits (as given in struct input_events) |
6403 whose prefixes should be applied to the symbol name. | |
6404 | |
6405 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
|
6406 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
|
6407 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
6408 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
|
6409 `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
|
6410 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
|
6411 |
518 | 6412 static Lisp_Object |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
6413 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
|
6414 name_table, symbol_table, table_size) |
518 | 6415 int symbol_num; |
6416 unsigned modifiers; | |
6417 Lisp_Object symbol_kind; | |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
6418 Lisp_Object name_alist_or_stem; |
518 | 6419 char **name_table; |
6420 Lisp_Object *symbol_table; | |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
6421 unsigned int table_size; |
518 | 6422 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6423 Lisp_Object value; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6424 Lisp_Object symbol_int; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6425 |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
6426 /* 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
|
6427 XSETINT (symbol_int, symbol_num & 0xffffff); |
518 | 6428 |
6429 /* 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
|
6430 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
|
6431 return Qnil; |
518 | 6432 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6433 if (CONSP (*symbol_table)) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6434 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
|
6435 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6436 /* 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
|
6437 *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
|
6438 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
|
6439 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
|
6440 else |
518 | 6441 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6442 if (! VECTORP (*symbol_table) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6443 || XVECTOR (*symbol_table)->size != table_size) |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6444 { |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6445 Lisp_Object size; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6446 |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
6447 XSETFASTINT (size, table_size); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6448 *symbol_table = Fmake_vector (size, Qnil); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6449 } |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6450 |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6451 value = XVECTOR (*symbol_table)->contents[symbol_num]; |
518 | 6452 } |
6453 | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6454 /* 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
|
6455 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
|
6456 { |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6457 /* No; let's create it. */ |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
6458 if (CONSP (name_alist_or_stem)) |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
6459 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
|
6460 else if (STRINGP (name_alist_or_stem)) |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
6461 { |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
6462 int len = SBYTES (name_alist_or_stem); |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
6463 char *buf = (char *) alloca (len + 50); |
56070
343ad07ce78b
(cancel_hourglass_unwind): Return a value.
Andreas Schwab <schwab@suse.de>
parents:
56023
diff
changeset
|
6464 sprintf (buf, "%s-%ld", SDATA (name_alist_or_stem), |
343ad07ce78b
(cancel_hourglass_unwind): Return a value.
Andreas Schwab <schwab@suse.de>
parents:
56023
diff
changeset
|
6465 (long) XINT (symbol_int) + 1); |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
6466 value = intern (buf); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
6467 } |
16734 | 6468 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
|
6469 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
|
6470 |
13413
12b63cc21bdb
[HAVE_NTGUI]: Include w32term.h.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13329
diff
changeset
|
6471 #ifdef HAVE_WINDOW_SYSTEM |
12173
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
6472 if (NILP (value)) |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
6473 { |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
6474 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
|
6475 if (name) |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
6476 value = intern (name); |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
6477 } |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
6478 #endif |
f31fca0fcdb0
(modify_event_symbol): Mask out high bits here,
Karl Heuer <kwzh@gnu.org>
parents:
12160
diff
changeset
|
6479 |
6894
34435700529d
(modify_event_symbol): Use the cdr of the alist entry.
Richard M. Stallman <rms@gnu.org>
parents:
6893
diff
changeset
|
6480 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
|
6481 { |
793f7e0dc66b
(modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents:
2980
diff
changeset
|
6482 char buf[20]; |
793f7e0dc66b
(modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents:
2980
diff
changeset
|
6483 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
|
6484 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
|
6485 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6486 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6487 if (CONSP (*symbol_table)) |
15524
4a92710b931c
(modify_event_symbol): Add properly to *symbol_table.
Richard M. Stallman <rms@gnu.org>
parents:
15474
diff
changeset
|
6488 *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
|
6489 else |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6490 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
|
6491 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
6492 /* 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
|
6493 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
|
6494 cares about. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6495 apply_modifiers (modifiers & click_modifier, value); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6496 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
|
6497 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
6498 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
6499 /* Apply modifiers to that symbol. */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6500 return apply_modifiers (modifiers, value); |
518 | 6501 } |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6502 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6503 /* 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
|
6504 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
|
6505 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
|
6506 |
12150
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
6507 DEFUN ("event-convert-list", Fevent_convert_list, Sevent_convert_list, 1, 1, 0, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
6508 doc: /* Convert the event description list EVENT-DESC to an event type. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
6509 EVENT-DESC should contain one base event type (a character or symbol) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
6510 and zero or more modifier names (control, meta, hyper, super, shift, alt, |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
6511 drag, down, double or triple). The base must be last. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
6512 The return value is an event type (a character or symbol) which |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
6513 has the same base event type and all the specified modifiers. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
6514 (event_desc) |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
6515 Lisp_Object event_desc; |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6516 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6517 Lisp_Object base; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6518 int modifiers = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6519 Lisp_Object rest; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6520 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6521 base = Qnil; |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
6522 rest = event_desc; |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6523 while (CONSP (rest)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6524 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6525 Lisp_Object elt; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6526 int this = 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6527 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6528 elt = XCAR (rest); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6529 rest = XCDR (rest); |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6530 |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6531 /* 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
|
6532 if (SYMBOLP (elt) && CONSP (rest)) |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6533 this = parse_solitary_modifier (elt); |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6534 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6535 if (this != 0) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6536 modifiers |= this; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6537 else if (!NILP (base)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6538 error ("Two bases given in one event"); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6539 else |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6540 base = elt; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6541 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6542 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6543 |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6544 /* Let the symbol A refer to the character A. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
6545 if (SYMBOLP (base) && SCHARS (SYMBOL_NAME (base)) == 1) |
46427
5360a8d2f694
* keyboard.c (Fevent_convert_list): Use SREF.
Ken Raeburn <raeburn@raeburn.org>
parents:
46412
diff
changeset
|
6546 XSETINT (base, SREF (SYMBOL_NAME (base), 0)); |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6547 |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6548 if (INTEGERP (base)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6549 { |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6550 /* Turn (shift a) into A. */ |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6551 if ((modifiers & shift_modifier) != 0 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6552 && (XINT (base) >= 'a' && XINT (base) <= 'z')) |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6553 { |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6554 XSETINT (base, XINT (base) - ('a' - 'A')); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6555 modifiers &= ~shift_modifier; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6556 } |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6557 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6558 /* Turn (control a) into C-a. */ |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6559 if (modifiers & ctrl_modifier) |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6560 return make_number ((modifiers & ~ctrl_modifier) |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6561 | make_ctrl_char (XINT (base))); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6562 else |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6563 return make_number (modifiers | XINT (base)); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6564 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6565 else if (SYMBOLP (base)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6566 return apply_modifiers (modifiers, base); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6567 else |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
6568 { |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
6569 error ("Invalid base event"); |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
6570 return Qnil; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
6571 } |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6572 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6573 |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6574 /* 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
|
6575 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
|
6576 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6577 static int |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6578 parse_solitary_modifier (symbol) |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6579 Lisp_Object symbol; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6580 { |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6581 Lisp_Object name = SYMBOL_NAME (symbol); |
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6582 |
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6583 switch (SREF (name, 0)) |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6584 { |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6585 #define SINGLE_LETTER_MOD(BIT) \ |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6586 if (SBYTES (name) == 1) \ |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6587 return BIT; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6588 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6589 #define MULTI_LETTER_MOD(BIT, NAME, LEN) \ |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6590 if (LEN == SBYTES (name) \ |
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
6591 && ! strncmp (SDATA (name), NAME, LEN)) \ |
10984
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6592 return BIT; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6593 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6594 case 'A': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6595 SINGLE_LETTER_MOD (alt_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6596 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6597 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6598 case 'a': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6599 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
|
6600 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6601 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6602 case 'C': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6603 SINGLE_LETTER_MOD (ctrl_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6604 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6605 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6606 case 'c': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6607 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
|
6608 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
|
6609 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6610 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6611 case 'H': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6612 SINGLE_LETTER_MOD (hyper_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6613 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6614 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6615 case 'h': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6616 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
|
6617 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6618 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6619 case 'M': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6620 SINGLE_LETTER_MOD (meta_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6621 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6622 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6623 case 'm': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6624 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
|
6625 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6626 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6627 case 'S': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6628 SINGLE_LETTER_MOD (shift_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6629 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6630 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6631 case 's': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6632 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
|
6633 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
|
6634 SINGLE_LETTER_MOD (super_modifier); |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6635 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6636 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6637 case 'd': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6638 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
|
6639 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
|
6640 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
|
6641 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6642 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6643 case 't': |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6644 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
|
6645 break; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6646 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6647 #undef SINGLE_LETTER_MOD |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6648 #undef MULTI_LETTER_MOD |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6649 } |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6650 |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6651 return 0; |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6652 } |
0409e4548077
(parse_modifiers_uncached): Delete the code for
Richard M. Stallman <rms@gnu.org>
parents:
10945
diff
changeset
|
6653 |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6654 /* 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
|
6655 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
|
6656 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
|
6657 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6658 int |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6659 lucid_event_type_list_p (object) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6660 Lisp_Object object; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6661 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6662 Lisp_Object tail; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6663 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6664 if (! CONSP (object)) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6665 return 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6666 |
33908
d42bd79a1778
(lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents:
33882
diff
changeset
|
6667 if (EQ (XCAR (object), Qhelp_echo) |
d42bd79a1778
(lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents:
33882
diff
changeset
|
6668 || EQ (XCAR (object), Qvertical_line) |
d42bd79a1778
(lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents:
33882
diff
changeset
|
6669 || EQ (XCAR (object), Qmode_line) |
d42bd79a1778
(lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents:
33882
diff
changeset
|
6670 || EQ (XCAR (object), Qheader_line)) |
d42bd79a1778
(lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents:
33882
diff
changeset
|
6671 return 0; |
d42bd79a1778
(lucid_event_type_list_p): Handle `help-echo',
Gerd Moellmann <gerd@gnu.org>
parents:
33882
diff
changeset
|
6672 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
6673 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
|
6674 { |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6675 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
|
6676 elt = XCAR (tail); |
10844
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6677 if (! (INTEGERP (elt) || SYMBOLP (elt))) |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6678 return 0; |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6679 } |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6680 |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6681 return NILP (tail); |
06d6b2e17987
(convert_event_type_list): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10827
diff
changeset
|
6682 } |
518 | 6683 |
6684 /* Store into *addr a value nonzero if terminal input chars are available. | |
6685 Serves the purpose of ioctl (0, FIONREAD, addr) | |
6686 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
|
6687 (In fact, this may actually read some input.) |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
6688 |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
6689 If READABLE_EVENTS_DO_TIMERS_NOW is set in FLAGS, actually run |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
6690 timer events that are ripe. |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
6691 If READABLE_EVENTS_FILTER_EVENTS is set in FLAGS, ignore internal |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
6692 events (FOCUS_IN_EVENT). |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
6693 If READABLE_EVENTS_IGNORE_SQUEEZABLES is set in FLAGS, ignore mouse |
62284
9715f859c614
(readable_events) [USE_TOOLKIT_SCROLL_BARS]: Regard
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
62024
diff
changeset
|
6694 movements and toolkit scroll bar thumb drags. */ |
518 | 6695 |
6696 static void | |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
6697 get_input_pending (addr, flags) |
518 | 6698 int *addr; |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
6699 int flags; |
518 | 6700 { |
6701 /* First of all, have we already counted some input? */ | |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
6702 *addr = (!NILP (Vquit_flag) || readable_events (flags)); |
518 | 6703 |
6704 /* If input is being read as it arrives, and we have none, there is none. */ | |
6705 if (*addr > 0 || (interrupt_input && ! interrupts_deferred)) | |
6706 return; | |
6707 | |
6708 /* Try to read some input and see how much we get. */ | |
6709 gobble_input (0); | |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
6710 *addr = (!NILP (Vquit_flag) || readable_events (flags)); |
518 | 6711 } |
6712 | |
8727
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
6713 /* Interface to read_avail_input, blocking SIGIO or SIGALRM if necessary. */ |
518 | 6714 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
6715 void |
518 | 6716 gobble_input (expected) |
6717 int expected; | |
6718 { | |
6719 #ifndef VMS | |
6720 #ifdef SIGIO | |
6721 if (interrupt_input) | |
6722 { | |
624 | 6723 SIGMASKTYPE mask; |
16055
b69d8517497a
(record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents:
16051
diff
changeset
|
6724 mask = sigblock (sigmask (SIGIO)); |
518 | 6725 read_avail_input (expected); |
638 | 6726 sigsetmask (mask); |
518 | 6727 } |
6728 else | |
8727
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
6729 #ifdef POLL_FOR_INPUT |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
6730 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
|
6731 { |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
6732 SIGMASKTYPE mask; |
16055
b69d8517497a
(record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents:
16051
diff
changeset
|
6733 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
|
6734 read_avail_input (expected); |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
6735 sigsetmask (mask); |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
6736 } |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
6737 else |
592bbf02e29d
(gobble_input): Block SIGALRM if we are using it.
Richard M. Stallman <rms@gnu.org>
parents:
8718
diff
changeset
|
6738 #endif |
9572 | 6739 #endif |
518 | 6740 read_avail_input (expected); |
6741 #endif | |
6742 } | |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
6743 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
6744 /* Put a BUFFER_SWITCH_EVENT in the buffer |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6745 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
|
6746 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
6747 void |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
6748 record_asynch_buffer_change () |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
6749 { |
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
6750 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
|
6751 Lisp_Object tem; |
51577
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
6752 EVENT_INIT (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
|
6753 |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
6754 event.kind = BUFFER_SWITCH_EVENT; |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
6755 event.frame_or_window = Qnil; |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
6756 event.arg = Qnil; |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6757 |
8718
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
6758 #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
|
6759 /* 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
|
6760 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
|
6761 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
|
6762 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
|
6763 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
|
6764 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
|
6765 return; |
8718
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
6766 #else |
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
6767 /* 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
|
6768 return; |
44a433fa6e8f
(record_asynch_buffer_change): Don't test
Richard M. Stallman <rms@gnu.org>
parents:
8673
diff
changeset
|
6769 #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
|
6770 |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6771 /* 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
|
6772 #ifdef SIGIO |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6773 if (interrupt_input) |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6774 { |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6775 SIGMASKTYPE mask; |
16055
b69d8517497a
(record_asynch_buffer_change, gobble_input):
Richard M. Stallman <rms@gnu.org>
parents:
16051
diff
changeset
|
6776 mask = sigblock (sigmask (SIGIO)); |
7225
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6777 kbd_buffer_store_event (&event); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6778 sigsetmask (mask); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6779 } |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6780 else |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6781 #endif |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6782 { |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6783 stop_polling (); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6784 kbd_buffer_store_event (&event); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6785 start_polling (); |
420c92074bd6
(record_asynch_buffer_change): Block SIGIO.
Richard M. Stallman <rms@gnu.org>
parents:
7224
diff
changeset
|
6786 } |
6749
c409eb264509
(kbd_buffer_get_event): Make buffer_switch_event lispy.
Karl Heuer <kwzh@gnu.org>
parents:
6461
diff
changeset
|
6787 } |
518 | 6788 |
6789 #ifndef VMS | |
6790 | |
6791 /* Read any terminal input already buffered up by the system | |
6792 into the kbd_buffer, but do not wait. | |
6793 | |
6794 EXPECTED should be nonzero if the caller knows there is some input. | |
6795 | |
6796 Except on VMS, all input is read by this function. | |
6797 If interrupt_input is nonzero, this function MUST be called | |
6798 only when SIGIO is blocked. | |
6799 | |
6800 Returns the number of keyboard chars read, or -1 meaning | |
54163
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6801 this is a bad time to try to read input. */ |
518 | 6802 |
6803 static int | |
6804 read_avail_input (expected) | |
6805 int expected; | |
6806 { | |
6807 register int i; | |
54086
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6808 int nread = 0; |
51577
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
6809 |
74611
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
6810 /* Store pending user signal events, if any. */ |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
6811 if (store_user_signal_events ()) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
6812 expected = 0; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
6813 |
518 | 6814 if (read_socket_hook) |
54086
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6815 { |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6816 int nr; |
54163
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6817 struct input_event hold_quit; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6818 |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6819 EVENT_INIT (hold_quit); |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6820 hold_quit.kind = NO_EVENT; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6821 |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6822 /* No need for FIONREAD or fcntl; just say don't wait. */ |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6823 while (nr = (*read_socket_hook) (input_fd, expected, &hold_quit), nr > 0) |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6824 { |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6825 nread += nr; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6826 expected = 0; |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6827 } |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6828 if (hold_quit.kind != NO_EVENT) |
09b6da7723eb
(kbd_buffer_store_event_hold): New function to store
Kim F. Storm <storm@cua.dk>
parents:
54147
diff
changeset
|
6829 kbd_buffer_store_event (&hold_quit); |
54086
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6830 } |
518 | 6831 else |
6832 { | |
5032
2802aff49c77
(read_avail_input): Make cbuf 1 char shorter.
Richard M. Stallman <rms@gnu.org>
parents:
4996
diff
changeset
|
6833 /* 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
|
6834 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
|
6835 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
|
6836 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
|
6837 int n_to_read; |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
6838 |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
6839 /* 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
|
6840 #ifdef WINDOWSNT |
54029
812301ea706a
(in_read_avail_input): New static variable to handle re-entrancy.
Kim F. Storm <storm@cua.dk>
parents:
54027
diff
changeset
|
6841 return 0; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6842 #else /* not WINDOWSNT */ |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6843 #ifdef MSDOS |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
6844 n_to_read = dos_keysns (); |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
6845 if (n_to_read == 0) |
54086
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6846 return 0; |
6891
065060f1f9b8
(read_avail_input): Fix comment delimiter.
Karl Heuer <kwzh@gnu.org>
parents:
6875
diff
changeset
|
6847 #else /* not MSDOS */ |
518 | 6848 #ifdef FIONREAD |
6849 /* 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
|
6850 if (ioctl (input_fd, FIONREAD, &n_to_read) < 0) |
518 | 6851 /* Formerly simply reported no input, but that sometimes led to |
6852 a failure of Emacs to terminate. | |
6853 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
|
6854 /* ??? 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
|
6855 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
|
6856 Perhaps on systems with FIONREAD Emacs is alone in its group. */ |
51635
dec942028211
(read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents:
51577
diff
changeset
|
6857 { |
dec942028211
(read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents:
51577
diff
changeset
|
6858 if (! noninteractive) |
dec942028211
(read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents:
51577
diff
changeset
|
6859 kill (getpid (), SIGHUP); |
dec942028211
(read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents:
51577
diff
changeset
|
6860 else |
dec942028211
(read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents:
51577
diff
changeset
|
6861 n_to_read = 0; |
dec942028211
(read_key_sequence): When converting upcase fn key to
Richard M. Stallman <rms@gnu.org>
parents:
51577
diff
changeset
|
6862 } |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
6863 if (n_to_read == 0) |
54086
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6864 return 0; |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
6865 if (n_to_read > sizeof cbuf) |
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
6866 n_to_read = sizeof cbuf; |
518 | 6867 #else /* no FIONREAD */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
6868 #if defined (USG) || defined (DGUX) || defined(CYGWIN) |
518 | 6869 /* 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
|
6870 n_to_read = sizeof cbuf; |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
6871 fcntl (input_fd, F_SETFL, O_NDELAY); |
518 | 6872 #else |
6873 you lose; | |
6874 #endif | |
6875 #endif | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6876 #endif /* not MSDOS */ |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
6877 #endif /* not WINDOWSNT */ |
518 | 6878 |
6875
1862df471cac
(make_lispy_event): Put mouse event code
Richard M. Stallman <rms@gnu.org>
parents:
6812
diff
changeset
|
6879 /* 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
|
6880 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
|
6881 do |
518 | 6882 { |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6883 #ifdef MSDOS |
13290
4caecb87e4ec
(ok_to_echo_at_next_pause): Make it a char *.
Richard M. Stallman <rms@gnu.org>
parents:
13267
diff
changeset
|
6884 cbuf[0] = dos_keyread (); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6885 nread = 1; |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6886 #else |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25973
diff
changeset
|
6887 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
|
6888 #endif |
18405
4eaaff49a24e
(read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents:
18231
diff
changeset
|
6889 /* 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
|
6890 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
|
6891 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
|
6892 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
|
6893 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
|
6894 if (nread == -1 && errno == EIO) |
4eaaff49a24e
(read_avail_input): Check for failure with EIO.
Richard M. Stallman <rms@gnu.org>
parents:
18231
diff
changeset
|
6895 kill (0, SIGHUP); |
6936
5538df04e96a
(read_avail_input): Test both aix386 and _BSD.
Richard M. Stallman <rms@gnu.org>
parents:
6932
diff
changeset
|
6896 #if defined (AIX) && (! defined (aix386) && defined (_BSD)) |
518 | 6897 /* The kernel sometimes fails to deliver SIGHUP for ptys. |
6898 This looks incorrect, but it isn't, because _BSD causes | |
6899 O_NDELAY to be defined in fcntl.h as O_NONBLOCK, | |
6900 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
|
6901 if (nread == 0) |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6902 kill (0, SIGHUP); |
518 | 6903 #endif |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
6904 } |
6972
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6905 while ( |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6906 /* 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
|
6907 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
|
6908 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
|
6909 where a retry is actually needed? */ |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6910 #if 0 |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6911 nread < 0 && (errno == EAGAIN |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6912 #ifdef EFAULT |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
6913 || errno == EFAULT |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
6914 #endif |
518 | 6915 #ifdef EBADSLT |
6963
67b16a9f7e5d
(read_avail_input): Write loop as a do-while.
Karl Heuer <kwzh@gnu.org>
parents:
6936
diff
changeset
|
6916 || errno == EBADSLT |
518 | 6917 #endif |
6972
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6918 ) |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6919 #else |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6920 0 |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6921 #endif |
2238e97bc571
(read_avail_input): Don't retry read.
Karl Heuer <kwzh@gnu.org>
parents:
6968
diff
changeset
|
6922 ); |
518 | 6923 |
6924 #ifndef FIONREAD | |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
6925 #if defined (USG) || defined (DGUX) || defined (CYGWIN) |
9652
13a13988685a
(read_avail_input): Use input_fd.
Richard M. Stallman <rms@gnu.org>
parents:
9618
diff
changeset
|
6926 fcntl (input_fd, F_SETFL, 0); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
6927 #endif /* USG or DGUX or CYGWIN */ |
518 | 6928 #endif /* no FIONREAD */ |
6929 for (i = 0; i < nread; i++) | |
6930 { | |
54086
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6931 struct input_event buf; |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6932 EVENT_INIT (buf); |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6933 buf.kind = ASCII_KEYSTROKE_EVENT; |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6934 buf.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
|
6935 if (meta_key == 1 && (cbuf[i] & 0x80)) |
54086
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6936 buf.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
|
6937 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
|
6938 cbuf[i] &= ~0x80; |
9745
129ec4acc4ff
(read_avail_input): Fix Lisp_Object vs. int problem.
Karl Heuer <kwzh@gnu.org>
parents:
9729
diff
changeset
|
6939 |
54086
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6940 buf.code = cbuf[i]; |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6941 buf.frame_or_window = selected_frame; |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6942 buf.arg = Qnil; |
54087 | 6943 |
54086
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6944 kbd_buffer_store_event (&buf); |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6945 /* Don't look at input that follows a C-g too closely. |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6946 This reduces lossage due to autorepeat on C-g. */ |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6947 if (buf.kind == ASCII_KEYSTROKE_EVENT |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6948 && buf.code == quit_char) |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6949 break; |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6950 } |
86e93d3ccc6e
Undo 2004-02-16 and 2004-02-17 changes.
Kim F. Storm <storm@cua.dk>
parents:
54029
diff
changeset
|
6951 } |
54029
812301ea706a
(in_read_avail_input): New static variable to handle re-entrancy.
Kim F. Storm <storm@cua.dk>
parents:
54027
diff
changeset
|
6952 |
54027
32c7f0e32819
Rework previous change; it didn't consider that the
Kim F. Storm <storm@cua.dk>
parents:
53991
diff
changeset
|
6953 return nread; |
518 | 6954 } |
6955 #endif /* not VMS */ | |
6956 | |
53657
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6957 void |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6958 handle_async_input () |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6959 { |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6960 #ifdef BSD4_1 |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6961 extern int select_alarmed; |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6962 #endif |
58818
f8cddae7d959
* gtkutil.c: Include signal.h and syssignal.h.
Jan Djärv <jan.h.d@swipnet.se>
parents:
58634
diff
changeset
|
6963 |
53657
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6964 interrupt_input_pending = 0; |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6965 |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6966 while (1) |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6967 { |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6968 int nread; |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6969 nread = read_avail_input (1); |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6970 /* -1 means it's not ok to read the input now. |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6971 UNBLOCK_INPUT will read it later; now, avoid infinite loop. |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6972 0 means there was no keyboard input available. */ |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6973 if (nread <= 0) |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6974 break; |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6975 |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6976 #ifdef BSD4_1 |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6977 select_alarmed = 1; /* Force the select emulator back to life */ |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6978 #endif |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6979 } |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6980 } |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
6981 |
518 | 6982 #ifdef SIGIO /* for entire page */ |
6983 /* Note SIGIO has been undef'd if FIONREAD is missing. */ | |
6984 | |
50804
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
6985 static SIGTYPE |
518 | 6986 input_available_signal (signo) |
6987 int signo; | |
6988 { | |
6989 /* Must preserve main program's value of errno. */ | |
6990 int old_errno = errno; | |
16115
cc8c3e2cc6ed
(input_available_signal) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents:
16111
diff
changeset
|
6991 #if defined (USG) && !defined (POSIX_SIGNALS) |
518 | 6992 /* USG systems forget handlers when they are used; |
6993 must reestablish each time */ | |
6994 signal (signo, input_available_signal); | |
6995 #endif /* USG */ | |
6996 | |
6997 #ifdef BSD4_1 | |
6998 sigisheld (SIGIO); | |
6999 #endif | |
7000 | |
53657
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
7001 #ifdef SYNC_INPUT |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
7002 interrupt_input_pending = 1; |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
7003 #else |
58986
59945307b86b
* syssignal.h: Declare main_thread.
Jan Djärv <jan.h.d@swipnet.se>
parents:
58967
diff
changeset
|
7004 SIGNAL_THREAD_CHECK (signo); |
59078
867a7d5055b2
* keyboard.c (input_available_signal): Call SIGNAL_THREAD_CHECK
Jan Djärv <jan.h.d@swipnet.se>
parents:
59052
diff
changeset
|
7005 #endif |
59543
66df67e643ac
(Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents:
59520
diff
changeset
|
7006 |
59078
867a7d5055b2
* keyboard.c (input_available_signal): Call SIGNAL_THREAD_CHECK
Jan Djärv <jan.h.d@swipnet.se>
parents:
59052
diff
changeset
|
7007 if (input_available_clear_time) |
867a7d5055b2
* keyboard.c (input_available_signal): Call SIGNAL_THREAD_CHECK
Jan Djärv <jan.h.d@swipnet.se>
parents:
59052
diff
changeset
|
7008 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0); |
867a7d5055b2
* keyboard.c (input_available_signal): Call SIGNAL_THREAD_CHECK
Jan Djärv <jan.h.d@swipnet.se>
parents:
59052
diff
changeset
|
7009 |
867a7d5055b2
* keyboard.c (input_available_signal): Call SIGNAL_THREAD_CHECK
Jan Djärv <jan.h.d@swipnet.se>
parents:
59052
diff
changeset
|
7010 #ifndef SYNC_INPUT |
53657
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
7011 handle_async_input (); |
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
7012 #endif |
518 | 7013 |
7014 #ifdef BSD4_1 | |
7015 sigfree (); | |
7016 #endif | |
7017 errno = old_errno; | |
7018 } | |
7019 #endif /* SIGIO */ | |
2726
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
7020 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
7021 /* Send ourselves a SIGIO. |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
7022 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
7023 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
|
7024 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
|
7025 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
|
7026 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
|
7027 void |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
7028 reinvoke_input_signal () |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
7029 { |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7030 #ifdef SIGIO |
53657
4d786e2695ba
(handle_async_input): New fun, extracted from input_available_signal.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53515
diff
changeset
|
7031 handle_async_input (); |
2726
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
7032 #endif |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
7033 } |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
7034 |
954251d0fbd1
* blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents:
2719
diff
changeset
|
7035 |
518 | 7036 |
74611
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7037 /* User signal events. */ |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7038 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7039 struct user_signal_info |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7040 { |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7041 /* Signal number. */ |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7042 int sig; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7043 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7044 /* Name of the signal. */ |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7045 char *name; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7046 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7047 /* Number of pending signals. */ |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7048 int npending; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7049 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7050 struct user_signal_info *next; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7051 }; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7052 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7053 /* List of user signals. */ |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7054 static struct user_signal_info *user_signals = NULL; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7055 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7056 void |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7057 add_user_signal (sig, name) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7058 int sig; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7059 const char *name; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7060 { |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7061 struct user_signal_info *p; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7062 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7063 for (p = user_signals; p; p = p->next) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7064 if (p->sig == sig) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7065 /* Already added. */ |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7066 return; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7067 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7068 p = xmalloc (sizeof (struct user_signal_info)); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7069 p->sig = sig; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7070 p->name = xstrdup (name); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7071 p->npending = 0; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7072 p->next = user_signals; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7073 user_signals = p; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7074 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7075 signal (sig, handle_user_signal); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7076 } |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7077 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7078 static SIGTYPE |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7079 handle_user_signal (sig) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7080 int sig; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7081 { |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7082 int old_errno = errno; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7083 struct user_signal_info *p; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7084 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7085 #if defined (USG) && !defined (POSIX_SIGNALS) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7086 /* USG systems forget handlers when they are used; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7087 must reestablish each time */ |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7088 signal (sig, handle_user_signal); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7089 #endif |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7090 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7091 SIGNAL_THREAD_CHECK (sig); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7092 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7093 for (p = user_signals; p; p = p->next) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7094 if (p->sig == sig) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7095 { |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7096 p->npending++; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7097 #ifdef SIGIO |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7098 if (interrupt_input) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7099 kill (getpid (), SIGIO); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7100 else |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7101 #endif |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7102 { |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7103 /* Tell wait_reading_process_output that it needs to wake |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7104 up and look around. */ |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7105 if (input_available_clear_time) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7106 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7107 } |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7108 break; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7109 } |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7110 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7111 errno = old_errno; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7112 } |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7113 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7114 static char * |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7115 find_user_signal_name (sig) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7116 int sig; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7117 { |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7118 struct user_signal_info *p; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7119 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7120 for (p = user_signals; p; p = p->next) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7121 if (p->sig == sig) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7122 return p->name; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7123 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7124 return NULL; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7125 } |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7126 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7127 static int |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7128 store_user_signal_events () |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7129 { |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7130 struct user_signal_info *p; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7131 struct input_event buf; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7132 int nstored = 0; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7133 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7134 for (p = user_signals; p; p = p->next) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7135 if (p->npending > 0) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7136 { |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7137 SIGMASKTYPE mask; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7138 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7139 if (nstored == 0) |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7140 { |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7141 bzero (&buf, sizeof buf); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7142 buf.kind = USER_SIGNAL_EVENT; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7143 buf.frame_or_window = selected_frame; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7144 } |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7145 nstored += p->npending; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7146 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7147 mask = sigblock (sigmask (p->sig)); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7148 do |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7149 { |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7150 buf.code = p->sig; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7151 kbd_buffer_store_event (&buf); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7152 p->npending--; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7153 } |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7154 while (p->npending > 0); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7155 sigsetmask (mask); |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7156 } |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7157 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7158 return nstored; |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7159 } |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7160 |
4d547fe4a938
(make_lispy_event): Use find_user_signal_name.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
74412
diff
changeset
|
7161 |
50805
5323eb52475f
(menu_bar_item): Adjust declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50804
diff
changeset
|
7162 static void menu_bar_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object, void*)); |
5323eb52475f
(menu_bar_item): Adjust declaration.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50804
diff
changeset
|
7163 static Lisp_Object menu_bar_one_keymap_changed_items; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7164 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7165 /* 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
|
7166 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
|
7167 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
|
7168 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
|
7169 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
|
7170 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7171 /* 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
|
7172 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
|
7173 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
|
7174 |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7175 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
|
7176 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7177 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
|
7178 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
|
7179 Lisp_Object old; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7180 { |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7181 /* 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
|
7182 keymaps we have allocated space for. */ |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7183 int nmaps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7184 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7185 /* 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
|
7186 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
|
7187 Lisp_Object *maps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7188 |
34973
ef18b363abe3
(record_char): Remove unused function-scope variable
Eli Zaretskii <eliz@gnu.org>
parents:
34905
diff
changeset
|
7189 Lisp_Object def, tail; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7190 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7191 Lisp_Object result; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7192 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7193 int mapno; |
3255
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
7194 Lisp_Object oquit; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7195 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7196 int i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7197 |
3209
1166db56c752
* keyboard.c (menu_bar_items): Bind Qinhibit_quit to Qt while we
Jim Blandy <jimb@redhat.com>
parents:
3174
diff
changeset
|
7198 /* 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
|
7199 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
|
7200 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
|
7201 quitting while building the menus. |
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
7202 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
|
7203 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
|
7204 oquit = Vinhibit_quit; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
7205 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
|
7206 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7207 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
|
7208 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
|
7209 else |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7210 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
|
7211 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
|
7212 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7213 /* Build our list of keymaps. |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7214 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
|
7215 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
|
7216 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
|
7217 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
|
7218 { |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7219 Lisp_Object *tmaps; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7220 |
12264 | 7221 /* 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
|
7222 if (!NILP (Voverriding_local_map_menu_flag)) |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7223 { |
12264 | 7224 /* Yes, use them (if non-nil) as well as the global map. */ |
7225 maps = (Lisp_Object *) alloca (3 * sizeof (maps[0])); | |
7226 nmaps = 0; | |
7227 if (!NILP (current_kboard->Voverriding_terminal_local_map)) | |
7228 maps[nmaps++] = current_kboard->Voverriding_terminal_local_map; | |
7229 if (!NILP (Voverriding_local_map)) | |
7230 maps[nmaps++] = Voverriding_local_map; | |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7231 } |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7232 else |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7233 { |
44078
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7234 /* No, so use major and minor mode keymaps and keymap property. |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7235 Note that menu-bar bindings in the local-map and keymap |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7236 properties may not work reliable, as they are only |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7237 recognized when the menu-bar (or mode-line) is updated, |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7238 which does not normally happen after every command. */ |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7239 Lisp_Object tem; |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7240 int nminor; |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7241 nminor = current_minor_maps (NULL, &tmaps); |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7242 maps = (Lisp_Object *) alloca ((nminor + 3) * sizeof (maps[0])); |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7243 nmaps = 0; |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7244 if (tem = get_local_map (PT, current_buffer, Qkeymap), !NILP (tem)) |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7245 maps[nmaps++] = tem; |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7246 bcopy (tmaps, (void *) (maps + nmaps), nminor * sizeof (maps[0])); |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7247 nmaps += nminor; |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7248 maps[nmaps++] = get_local_map (PT, current_buffer, Qlocal_map); |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
7249 } |
12264 | 7250 maps[nmaps++] = current_global_map; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7251 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7252 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7253 /* 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
|
7254 |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7255 result = Qnil; |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7256 |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
7257 for (mapno = nmaps - 1; mapno >= 0; mapno--) |
31995
6a45a15137b0
(menu_bar_one_keymap): If KEYMAP is a symbol,
Gerd Moellmann <gerd@gnu.org>
parents:
31877
diff
changeset
|
7258 if (!NILP (maps[mapno])) |
6a45a15137b0
(menu_bar_one_keymap): If KEYMAP is a symbol,
Gerd Moellmann <gerd@gnu.org>
parents:
31877
diff
changeset
|
7259 { |
34514
cd02b61654e4
(menu_bar_items, tool_bar_items):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
34217
diff
changeset
|
7260 def = get_keymap (access_keymap (maps[mapno], Qmenu_bar, 1, 0, 1), |
cd02b61654e4
(menu_bar_items, tool_bar_items):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
34217
diff
changeset
|
7261 0, 1); |
32988
c3435dc00ed7
* lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32752
diff
changeset
|
7262 if (CONSP (def)) |
50804
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7263 { |
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7264 menu_bar_one_keymap_changed_items = Qnil; |
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7265 map_keymap (def, menu_bar_item, Qnil, NULL, 1); |
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7266 } |
31995
6a45a15137b0
(menu_bar_one_keymap): If KEYMAP is a symbol,
Gerd Moellmann <gerd@gnu.org>
parents:
31877
diff
changeset
|
7267 } |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7268 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7269 /* 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
|
7270 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7271 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
|
7272 { |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7273 int i; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7274 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
|
7275 |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
7276 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
|
7277 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
|
7278 { |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
7279 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
|
7280 /* 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
|
7281 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
|
7282 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
|
7283 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
|
7284 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
|
7285 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
|
7286 if (end > i + 4) |
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
7287 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
|
7288 &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
|
7289 (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
|
7290 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
|
7291 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
|
7292 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
|
7293 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
|
7294 break; |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7295 } |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
7296 } |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
7297 |
15284 | 7298 /* 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
|
7299 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
|
7300 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
|
7301 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7302 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
|
7303 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
|
7304 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
|
7305 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
|
7306 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
|
7307 } |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7308 /* 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
|
7309 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
|
7310 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
|
7311 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
|
7312 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
|
7313 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
|
7314 |
3255
b04e2b131ef0
(menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents:
3209
diff
changeset
|
7315 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
|
7316 return menu_bar_items_vector; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7317 } |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7318 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
7319 /* 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
|
7320 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
|
7321 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7322 Lisp_Object item_properties; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7323 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7324 static void |
50804
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7325 menu_bar_item (key, item, dummy1, dummy2) |
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7326 Lisp_Object key, item, dummy1; |
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7327 void *dummy2; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7328 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7329 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
|
7330 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
|
7331 Lisp_Object tem; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7332 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7333 if (EQ (item, Qundefined)) |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
7334 { |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
7335 /* If a map has an explicit `undefined' as definition, |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
7336 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
|
7337 |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
7338 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
|
7339 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
|
7340 { |
15112
e850ebd317e6
(make_lispy_event): FRAME_MENU_BAR_ITEMS now has
Richard M. Stallman <rms@gnu.org>
parents:
15049
diff
changeset
|
7341 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
|
7342 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
|
7343 &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
|
7344 (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
|
7345 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
|
7346 } |
31206
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
7347 } |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
7348 |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
7349 /* 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
|
7350 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
|
7351 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
|
7352 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
|
7353 return; |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
7354 |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
7355 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
|
7356 = 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
|
7357 |
fd9ff59434ff
(menu_bar_item): Detect duplicate entries for all items
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31201
diff
changeset
|
7358 /* 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
|
7359 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
|
7360 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
|
7361 GCPRO1 (key); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7362 i = parse_menu_item (item, 0, 1); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7363 UNGCPRO; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7364 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
|
7365 return; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7366 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7367 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
|
7368 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
7369 /* 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
|
7370 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
|
7371 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
|
7372 break; |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7373 |
7098
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
7374 /* 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
|
7375 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
|
7376 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7377 /* 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
|
7378 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
|
7379 { |
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7380 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
|
7381 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
|
7382 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
|
7383 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
|
7384 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
|
7385 } |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7386 |
6135
bfe9f873bd64
(menu_bar_items): Accept old vector as arg. Return a vector.
Richard M. Stallman <rms@gnu.org>
parents:
6101
diff
changeset
|
7387 /* 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
|
7388 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
|
7389 XVECTOR (menu_bar_items_vector)->contents[i++] |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7390 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME]; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7391 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
|
7392 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
|
7393 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
|
7394 } |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7395 /* 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
|
7396 else |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
7397 { |
9e9d5db094b5
(menu_bar_item): Put a list of keymaps into the third
Richard M. Stallman <rms@gnu.org>
parents:
6972
diff
changeset
|
7398 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
|
7399 old = XVECTOR (menu_bar_items_vector)->contents[i + 2]; |
50804
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7400 /* If the new and the old items are not both keymaps, |
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7401 the lookup will only find `item'. */ |
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7402 item = Fcons (item, KEYMAPP (item) && KEYMAPP (XCAR (old)) ? old : Qnil); |
6e0a15287761
(input_available_signal): Mark static.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50758
diff
changeset
|
7403 XVECTOR (menu_bar_items_vector)->contents[i + 2] = item; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7404 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7405 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7406 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7407 /* 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
|
7408 static Lisp_Object |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7409 menu_item_eval_property_1 (arg) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7410 Lisp_Object arg; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7411 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7412 /* 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
|
7413 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
|
7414 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
|
7415 Fsignal (Qquit, Qnil); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7416 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7417 return Qnil; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7418 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7419 |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7420 /* Evaluate an expression and return the result (or nil if something |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7421 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
|
7422 Lisp_Object |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7423 menu_item_eval_property (sexpr) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7424 Lisp_Object sexpr; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7425 { |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
7426 int count = SPECPDL_INDEX (); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7427 Lisp_Object val; |
22542
ca46e1a32856
(menu_item_eval_property): Bind Qinhibit_redisplay.
Karl Heuer <kwzh@gnu.org>
parents:
22469
diff
changeset
|
7428 specbind (Qinhibit_redisplay, Qt); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7429 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
|
7430 menu_item_eval_property_1); |
22542
ca46e1a32856
(menu_item_eval_property): Bind Qinhibit_redisplay.
Karl Heuer <kwzh@gnu.org>
parents:
22469
diff
changeset
|
7431 return unbind_to (count, val); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7432 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7433 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7434 /* 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
|
7435 vector item_properties. |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7436 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
|
7437 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
|
7438 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
|
7439 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
|
7440 top level. |
22040
ec5ce3eb24f3
(parse_menu_item): Argument inmenubar < 0 now means
Richard M. Stallman <rms@gnu.org>
parents:
21888
diff
changeset
|
7441 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
|
7442 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
|
7443 otherwise. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7444 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7445 int |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7446 parse_menu_item (item, notreal, inmenubar) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7447 Lisp_Object item; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7448 int notreal, inmenubar; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7449 { |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7450 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
|
7451 Lisp_Object cachelist; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
7452 Lisp_Object filter; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
7453 Lisp_Object keyhint; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7454 int i; |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7455 int newcache = 0; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7456 |
23459
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
7457 cachelist = Qnil; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
7458 filter = Qnil; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
7459 keyhint = Qnil; |
bab640501294
(parse_menu_item): Avoid initialization for Lisp_Object.
Richard M. Stallman <rms@gnu.org>
parents:
23439
diff
changeset
|
7460 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7461 if (!CONSP (item)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7462 return 0; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7463 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7464 /* Create item_properties vector if necessary. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7465 if (NILP (item_properties)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7466 item_properties |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7467 = 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
|
7468 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7469 /* Initialize optional entries. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7470 for (i = ITEM_PROPERTY_DEF; i < ITEM_PROPERTY_ENABLE; i++) |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7471 AREF (item_properties, i) = Qnil; |
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7472 AREF (item_properties, ITEM_PROPERTY_ENABLE) = Qt; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7473 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7474 /* Save the item here to protect it from GC. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7475 AREF (item_properties, ITEM_PROPERTY_ITEM) = item; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7476 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7477 item_string = XCAR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7478 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7479 start = item; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7480 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7481 if (STRINGP (item_string)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7482 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7483 /* Old format menu item. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7484 AREF (item_properties, ITEM_PROPERTY_NAME) = item_string; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7485 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7486 /* 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
|
7487 if (CONSP (item) && STRINGP (XCAR (item))) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7488 { |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7489 AREF (item_properties, ITEM_PROPERTY_HELP) = XCAR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7490 start = item; |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7491 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7492 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7493 |
30051
70d9d51a864c
(show_help_echo): New function, extracted from read_char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29816
diff
changeset
|
7494 /* 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
|
7495 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
|
7496 && (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
|
7497 || 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
|
7498 { |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7499 cachelist = XCAR (item); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7500 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7501 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7502 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7503 /* This is the real definition--the function to run. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7504 AREF (item_properties, ITEM_PROPERTY_DEF) = item; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7505 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7506 /* Get enable property, if any. */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7507 if (SYMBOLP (item)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7508 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7509 tem = Fget (item, Qmenu_enable); |
68792
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
7510 if (!NILP (Venable_disabled_menus_and_buttons)) |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
7511 AREF (item_properties, ITEM_PROPERTY_ENABLE) = Qt; |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
7512 else if (!NILP (tem)) |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7513 AREF (item_properties, ITEM_PROPERTY_ENABLE) = tem; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7514 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7515 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7516 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
|
7517 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7518 /* New format menu item. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7519 AREF (item_properties, ITEM_PROPERTY_NAME) = XCAR (item); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7520 start = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7521 if (CONSP (start)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7522 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7523 /* We have a real binding. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7524 AREF (item_properties, ITEM_PROPERTY_DEF) = XCAR (start); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7525 |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7526 item = XCDR (start); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7527 /* 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
|
7528 if (CONSP (item) && CONSP (XCAR (item))) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7529 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7530 cachelist = XCAR (item); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7531 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7532 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7533 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7534 /* Parse properties. */ |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7535 while (CONSP (item) && CONSP (XCDR (item))) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7536 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7537 tem = XCAR (item); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7538 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7539 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7540 if (EQ (tem, QCenable)) |
68792
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
7541 { |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
7542 if (!NILP (Venable_disabled_menus_and_buttons)) |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
7543 AREF (item_properties, ITEM_PROPERTY_ENABLE) = Qt; |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
7544 else |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
7545 AREF (item_properties, ITEM_PROPERTY_ENABLE) = XCAR (item); |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
7546 } |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7547 else if (EQ (tem, QCvisible) && !notreal) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7548 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7549 /* 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
|
7550 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
|
7551 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
|
7552 if (NILP (tem)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7553 return 0; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7554 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7555 else if (EQ (tem, QChelp)) |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7556 AREF (item_properties, ITEM_PROPERTY_HELP) = XCAR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7557 else if (EQ (tem, QCfilter)) |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7558 filter = item; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7559 else if (EQ (tem, QCkey_sequence)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7560 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7561 tem = XCAR (item); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7562 if (NILP (cachelist) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7563 && (SYMBOLP (tem) || STRINGP (tem) || VECTORP (tem))) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7564 /* 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
|
7565 keyhint = item; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7566 } |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7567 else if (EQ (tem, QCkeys)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7568 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7569 tem = XCAR (item); |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
7570 if (CONSP (tem) || (STRINGP (tem) && NILP (cachelist))) |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7571 AREF (item_properties, ITEM_PROPERTY_KEYEQ) = tem; |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7572 } |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7573 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
|
7574 { |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7575 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
|
7576 tem = XCAR (item); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7577 type = XCAR (tem); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7578 if (EQ (type, QCtoggle) || EQ (type, QCradio)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7579 { |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7580 AREF (item_properties, 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
|
7581 = XCDR (tem); |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7582 AREF (item_properties, ITEM_PROPERTY_TYPE) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7583 = type; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7584 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7585 } |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7586 item = XCDR (item); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7587 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7588 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7589 else if (inmenubar || !NILP (start)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7590 return 0; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7591 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7592 else |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7593 return 0; /* not a menu item */ |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7594 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7595 /* 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
|
7596 If we don't get a string, skip this item. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7597 item_string = AREF (item_properties, ITEM_PROPERTY_NAME); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7598 if (!(STRINGP (item_string) || notreal)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7599 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7600 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
|
7601 if (!STRINGP (item_string)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7602 return 0; |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7603 AREF (item_properties, ITEM_PROPERTY_NAME) = item_string; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7604 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7605 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7606 /* If got a filter apply it on definition. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7607 def = AREF (item_properties, ITEM_PROPERTY_DEF); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7608 if (!NILP (filter)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7609 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7610 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
|
7611 list2 (Qquote, def))); |
516ef6b2ceb9
(parse_menu_item): Put a quote around DEF
Richard M. Stallman <rms@gnu.org>
parents:
22384
diff
changeset
|
7612 |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7613 AREF (item_properties, ITEM_PROPERTY_DEF) = def; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7614 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7615 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7616 /* Enable or disable selection of item. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7617 tem = AREF (item_properties, ITEM_PROPERTY_ENABLE); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7618 if (!EQ (tem, Qt)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7619 { |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7620 if (notreal) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7621 tem = Qt; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7622 else |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7623 tem = menu_item_eval_property (tem); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7624 if (inmenubar && NILP (tem)) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7625 return 0; /* Ignore disabled items in menu bar. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7626 AREF (item_properties, ITEM_PROPERTY_ENABLE) = tem; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7627 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7628 |
41824
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
7629 /* If we got no definition, this item is just unselectable text which |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
7630 is OK in a submenu but not in the menubar. */ |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
7631 if (NILP (def)) |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
7632 return (inmenubar ? 0 : 1); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7633 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7634 /* See if this is a separate pane or a submenu. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7635 def = AREF (item_properties, ITEM_PROPERTY_DEF); |
32988
c3435dc00ed7
* lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32752
diff
changeset
|
7636 tem = get_keymap (def, 0, 1); |
23418
13e4ce88374d
(parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents:
23226
diff
changeset
|
7637 /* For a subkeymap, just record its details and exit. */ |
32988
c3435dc00ed7
* lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32752
diff
changeset
|
7638 if (CONSP (tem)) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7639 { |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7640 AREF (item_properties, ITEM_PROPERTY_MAP) = tem; |
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7641 AREF (item_properties, ITEM_PROPERTY_DEF) = tem; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7642 return 1; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7643 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7644 |
23418
13e4ce88374d
(parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents:
23226
diff
changeset
|
7645 /* 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
|
7646 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
|
7647 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
|
7648 if (inmenubar > 0) |
13e4ce88374d
(parse_menu_item): For top level of menu bar,
Richard M. Stallman <rms@gnu.org>
parents:
23226
diff
changeset
|
7649 return 1; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7650 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7651 /* 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
|
7652 if (NILP (cachelist)) |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7653 { |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7654 /* We have to create a cachelist. */ |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7655 CHECK_IMPURE (start); |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
7656 XSETCDR (start, Fcons (Fcons (Qnil, Qnil), XCDR (start))); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7657 cachelist = XCAR (XCDR (start)); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7658 newcache = 1; |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7659 tem = AREF (item_properties, ITEM_PROPERTY_KEYEQ); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7660 if (!NILP (keyhint)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7661 { |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
7662 XSETCAR (cachelist, XCAR (keyhint)); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7663 newcache = 0; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7664 } |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7665 else if (STRINGP (tem)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7666 { |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
7667 XSETCDR (cachelist, Fsubstitute_command_keys (tem)); |
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
7668 XSETCAR (cachelist, Qt); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7669 } |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7670 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7671 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7672 tem = XCAR (cachelist); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7673 if (!EQ (tem, Qt)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7674 { |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7675 int chkcache = 0; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7676 Lisp_Object prefix; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7677 |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7678 if (!NILP (tem)) |
72889
25c755416160
* NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents:
72845
diff
changeset
|
7679 tem = Fkey_binding (tem, Qnil, Qnil, Qnil); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7680 |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7681 prefix = AREF (item_properties, ITEM_PROPERTY_KEYEQ); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7682 if (CONSP (prefix)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7683 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7684 def = XCAR (prefix); |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7685 prefix = XCDR (prefix); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7686 } |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7687 else |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7688 def = AREF (item_properties, ITEM_PROPERTY_DEF); |
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7689 |
65692
b4317398b284
(update_menu_bindings): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
65109
diff
changeset
|
7690 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
|
7691 { |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7692 if (newcache /* Always check first time. */ |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7693 /* 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
|
7694 bindings? */ |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7695 /* 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
|
7696 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
|
7697 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
|
7698 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
|
7699 || (CONSP (Vdefine_key_rebound_commands) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7700 && !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
|
7701 chkcache = 1; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7702 } |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7703 /* 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
|
7704 else if (NILP (tem) |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
7705 || (!EQ (tem, def) |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
7706 /* If the command is an alias for another |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
7707 (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
|
7708 original command matches the cached command. */ |
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
7709 && !(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
|
7710 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
|
7711 |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7712 if (chkcache) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7713 { |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7714 /* 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
|
7715 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
|
7716 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
|
7717 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
|
7718 makes lmenu menus slow. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7719 if (SYMBOLP (def) |
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7720 && SYMBOLP (XSYMBOL (def)->function) |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7721 && ! NILP (Fget (def, Qmenu_alias))) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7722 def = XSYMBOL (def)->function; |
43154
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
7723 tem = Fwhere_is_internal (def, Qnil, Qt, Qnil, Qt); |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
7724 XSETCAR (cachelist, tem); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7725 if (NILP (tem)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7726 { |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
7727 XSETCDR (cachelist, Qnil); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7728 chkcache = 0; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7729 } |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7730 } |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7731 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
|
7732 { |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7733 tem = XCAR (cachelist); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7734 chkcache = 1; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7735 } |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7736 |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7737 newcache = chkcache; |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7738 if (chkcache) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7739 { |
54927
7b6b4d9ae726
(Fkey_description): Change callers.
Kim F. Storm <storm@cua.dk>
parents:
54181
diff
changeset
|
7740 tem = Fkey_description (tem, Qnil); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7741 if (CONSP (prefix)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7742 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7743 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
|
7744 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
|
7745 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
|
7746 tem = concat2 (tem, XCDR (prefix)); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7747 } |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
7748 XSETCDR (cachelist, tem); |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7749 } |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7750 } |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7751 |
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
7752 tem = XCDR (cachelist); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7753 if (newcache && !NILP (tem)) |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7754 { |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
7755 tem = concat3 (build_string (" ("), tem, build_string (")")); |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
7756 XSETCDR (cachelist, tem); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7757 } |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7758 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7759 /* 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
|
7760 if (notreal) |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7761 return 1; |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7762 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7763 /* If we have an equivalent key binding, use that. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7764 AREF (item_properties, ITEM_PROPERTY_KEYEQ) = tem; |
22104
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7765 |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7766 /* Include this when menu help is implemented. |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7767 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
|
7768 if (!(NILP (tem) || STRINGP (tem))) |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7769 { |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7770 tem = menu_item_eval_property (tem); |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7771 if (!STRINGP (tem)) |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7772 tem = Qnil; |
ce3f89a932d1
(read_char): If redisplay is preempted,
Richard M. Stallman <rms@gnu.org>
parents:
22040
diff
changeset
|
7773 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
|
7774 } |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7775 */ |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7776 |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7777 /* Handle radio buttons or toggle boxes. */ |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7778 tem = AREF (item_properties, ITEM_PROPERTY_SELECTED); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7779 if (!NILP (tem)) |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
7780 AREF (item_properties, ITEM_PROPERTY_SELECTED) |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7781 = menu_item_eval_property (tem); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7782 |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
7783 return 1; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
7784 } |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7785 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7786 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7787 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7788 /*********************************************************************** |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7789 Tool-bars |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7790 ***********************************************************************/ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7791 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7792 /* A vector holding tool bar items while they are parsed in function |
44135 | 7793 tool_bar_items. Each item occupies TOOL_BAR_ITEM_NSCLOTS elements |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7794 in the vector. */ |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7795 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7796 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
|
7797 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7798 /* 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
|
7799 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
|
7800 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7801 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
|
7802 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7803 /* 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
|
7804 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7805 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
|
7806 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7807 /* 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
|
7808 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7809 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
|
7810 Lisp_Object QCimage; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7811 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7812 /* Function prototypes. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7813 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7814 static void init_tool_bar_items P_ ((Lisp_Object)); |
69718
7f48146dd4d2
(process_tool_bar_item): Reorganize dummy args.
Juanma Barranquero <lekktu@gmail.com>
parents:
69717
diff
changeset
|
7815 static void process_tool_bar_item P_ ((Lisp_Object, Lisp_Object, Lisp_Object, void*)); |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7816 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
|
7817 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
|
7818 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7819 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7820 /* 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
|
7821 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
|
7822 tool bar items found. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7823 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7824 Lisp_Object |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7825 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
|
7826 Lisp_Object reuse; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7827 int *nitems; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7828 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7829 Lisp_Object *maps; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7830 int nmaps, i; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7831 Lisp_Object oquit; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7832 Lisp_Object *tmaps; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7833 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7834 *nitems = 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7835 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7836 /* 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
|
7837 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
|
7838 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
|
7839 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
|
7840 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
|
7841 avoids risk of specpdl overflow. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7842 oquit = Vinhibit_quit; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7843 Vinhibit_quit = Qt; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7844 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7845 /* 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
|
7846 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
|
7847 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7848 /* 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
|
7849 to process. */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7850 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7851 /* 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
|
7852 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
|
7853 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7854 /* 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
|
7855 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
|
7856 nmaps = 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7857 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
|
7858 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
|
7859 if (!NILP (Voverriding_local_map)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7860 maps[nmaps++] = Voverriding_local_map; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7861 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7862 else |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7863 { |
44078
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7864 /* No, so use major and minor mode keymaps and keymap property. |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7865 Note that tool-bar bindings in the local-map and keymap |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7866 properties may not work reliable, as they are only |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7867 recognized when the tool-bar (or mode-line) is updated, |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7868 which does not normally happen after every command. */ |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7869 Lisp_Object tem; |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7870 int nminor; |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7871 nminor = current_minor_maps (NULL, &tmaps); |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7872 maps = (Lisp_Object *) alloca ((nminor + 3) * sizeof (maps[0])); |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7873 nmaps = 0; |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7874 if (tem = get_local_map (PT, current_buffer, Qkeymap), !NILP (tem)) |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7875 maps[nmaps++] = tem; |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7876 bcopy (tmaps, (void *) (maps + nmaps), nminor * sizeof (maps[0])); |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7877 nmaps += nminor; |
92101c2bc6bf
(menu_bar_items): Mostly undo 2002-02-20 patch, so
Kim F. Storm <storm@cua.dk>
parents:
43814
diff
changeset
|
7878 maps[nmaps++] = get_local_map (PT, current_buffer, Qlocal_map); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7879 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7880 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7881 /* 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
|
7882 maps[nmaps++] = current_global_map; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7883 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7884 /* 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
|
7885 key `tool-bar'. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7886 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
|
7887 if (!NILP (maps[i])) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7888 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7889 Lisp_Object keymap; |
32476
9b2a0dc393a4
* keymap.c (access_keymap): Add AUTOLOAD parameter.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32174
diff
changeset
|
7890 |
34514
cd02b61654e4
(menu_bar_items, tool_bar_items):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
34217
diff
changeset
|
7891 keymap = get_keymap (access_keymap (maps[i], Qtool_bar, 1, 0, 1), 0, 1); |
32988
c3435dc00ed7
* lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32752
diff
changeset
|
7892 if (CONSP (keymap)) |
69717
8f7fe45e9fe8
(tool_bar_items): Use map_keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68792
diff
changeset
|
7893 map_keymap (keymap, process_tool_bar_item, Qnil, NULL, 1); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7894 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7895 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7896 Vinhibit_quit = oquit; |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7897 *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
|
7898 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
|
7899 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7900 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7901 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7902 /* 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
|
7903 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7904 static void |
69718
7f48146dd4d2
(process_tool_bar_item): Reorganize dummy args.
Juanma Barranquero <lekktu@gmail.com>
parents:
69717
diff
changeset
|
7905 process_tool_bar_item (key, def, data, args) |
69717
8f7fe45e9fe8
(tool_bar_items): Use map_keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68792
diff
changeset
|
7906 Lisp_Object key, def, data; |
8f7fe45e9fe8
(tool_bar_items): Use map_keymap.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68792
diff
changeset
|
7907 void *args; |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7908 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7909 int i; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7910 extern Lisp_Object Qundefined; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7911 struct gcpro gcpro1, gcpro2; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7912 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7913 /* 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
|
7914 eval. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7915 GCPRO2 (key, def); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7916 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7917 if (EQ (def, Qundefined)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7918 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7919 /* 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
|
7920 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
|
7921 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
|
7922 { |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7923 Lisp_Object *v = XVECTOR (tool_bar_items_vector)->contents + i; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7924 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7925 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
|
7926 { |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7927 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
|
7928 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
|
7929 ((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
|
7930 * sizeof (Lisp_Object))); |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7931 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
|
7932 break; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7933 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7934 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7935 } |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7936 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
|
7937 /* 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
|
7938 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
|
7939 append_tool_bar_item (); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7940 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7941 UNGCPRO; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7942 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7943 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7944 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7945 /* 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
|
7946 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
|
7947 invalid. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7948 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7949 ITEM is a list `(menu-item CAPTION BINDING PROPS...)'. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7950 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7951 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
|
7952 evaluated to get a string. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7953 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7954 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
|
7955 as binding are currently ignored. |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7956 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7957 The following properties are recognized: |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7958 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7959 - `:enable FORM'. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7960 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7961 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
|
7962 enabled or disabled. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7963 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7964 - `:visible FORM' |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7965 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7966 FORM is evaluated and specifies whether the tool bar item is visible. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7967 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7968 - `:filter FUNCTION' |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7969 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7970 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
|
7971 result is stored as the new binding. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7972 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7973 - `:button (TYPE SELECTED)' |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7974 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7975 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
|
7976 and specifies whether the button is selected (pressed) or not. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7977 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7978 - `:image IMAGES' |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7979 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7980 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
|
7981 image specifications. See enum tool_bar_item_images. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7982 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7983 - `:help HELP-STRING'. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
7984 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7985 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
|
7986 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7987 static int |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7988 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
|
7989 Lisp_Object key, item; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7990 { |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
7991 /* 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
|
7992 #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
|
7993 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7994 Lisp_Object filter = Qnil; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7995 Lisp_Object caption; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7996 int i; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
7997 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7998 /* Defininition looks like `(menu-item CAPTION BINDING PROPS...)'. |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
7999 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
|
8000 `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
|
8001 list. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8002 if (!CONSP (item) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8003 || !EQ (XCAR (item), Qmenu_item) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8004 || (item = XCDR (item), |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8005 !CONSP (item))) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8006 return 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8007 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8008 /* 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
|
8009 defaults. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8010 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
|
8011 { |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8012 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
|
8013 PROP (i) = Qnil; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8014 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8015 else |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8016 tool_bar_item_properties |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8017 = Fmake_vector (make_number (TOOL_BAR_ITEM_NSLOTS), Qnil); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
8018 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8019 /* Set defaults. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8020 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
|
8021 PROP (TOOL_BAR_ITEM_ENABLED_P) = Qt; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
8022 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8023 /* 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
|
8024 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
|
8025 item. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8026 caption = XCAR (item); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8027 if (!STRINGP (caption)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8028 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8029 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
|
8030 if (!STRINGP (caption)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8031 return 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8032 } |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8033 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
|
8034 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8035 /* 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
|
8036 item = XCDR (item); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8037 if (!CONSP (item)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8038 return 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8039 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8040 /* Store the binding. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8041 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
|
8042 item = XCDR (item); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8043 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8044 /* Ignore cached key binding, if any. */ |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8045 if (CONSP (item) && CONSP (XCAR (item))) |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8046 item = XCDR (item); |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8047 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8048 /* 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
|
8049 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
|
8050 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8051 Lisp_Object key, value; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8052 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8053 key = XCAR (item); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8054 value = XCAR (XCDR (item)); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8055 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8056 if (EQ (key, QCenable)) |
68792
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
8057 { |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
8058 /* `:enable FORM'. */ |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
8059 if (!NILP (Venable_disabled_menus_and_buttons)) |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
8060 PROP (TOOL_BAR_ITEM_ENABLED_P) = Qt; |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
8061 else |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
8062 PROP (TOOL_BAR_ITEM_ENABLED_P) = value; |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
8063 } |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8064 else if (EQ (key, QCvisible)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8065 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8066 /* `: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
|
8067 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
|
8068 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
|
8069 return 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8070 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8071 else if (EQ (key, QChelp)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8072 /* `:help HELP-STRING'. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8073 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
|
8074 else if (EQ (key, QCfilter)) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8075 /* ':filter FORM'. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8076 filter = value; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8077 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
|
8078 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8079 /* `:button (TYPE . SELECTED)'. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8080 Lisp_Object type, selected; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8081 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8082 type = XCAR (value); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8083 selected = XCDR (value); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8084 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
|
8085 { |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8086 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
|
8087 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
|
8088 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8089 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8090 else if (EQ (key, QCimage) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8091 && (CONSP (value) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8092 || (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
|
8093 /* Value is either a single image specification or a vector |
44135 | 8094 of 4 such specifications for the different button states. */ |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8095 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
|
8096 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8097 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8098 /* 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
|
8099 if (!NILP (filter)) |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8100 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
|
8101 = 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
|
8102 list2 (Qquote, |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8103 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
|
8104 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8105 /* See if the binding is a keymap. Give up if it is. */ |
32988
c3435dc00ed7
* lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32752
diff
changeset
|
8106 if (CONSP (get_keymap (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
|
8107 return 0; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8108 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8109 /* 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
|
8110 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
|
8111 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
|
8112 = 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
|
8113 |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
8114 /* 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
|
8115 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
|
8116 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
|
8117 = 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
|
8118 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8119 return 1; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
8120 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8121 #undef PROP |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8122 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8123 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8124 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8125 /* 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
|
8126 that can be reused. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8127 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8128 static void |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8129 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
|
8130 Lisp_Object reuse; |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8131 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8132 if (VECTORP (reuse)) |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8133 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
|
8134 else |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8135 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
|
8136 ntool_bar_items = 0; |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8137 } |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8138 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8139 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8140 /* 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
|
8141 tool_bar_item_properties */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8142 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8143 static void |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8144 append_tool_bar_item () |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8145 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8146 Lisp_Object *to, *from; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
8147 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8148 /* 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
|
8149 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
|
8150 >= 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
|
8151 { |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8152 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
|
8153 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
|
8154 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8155 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
|
8156 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
|
8157 XVECTOR (new_vector)->contents, |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8158 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
|
8159 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
|
8160 } |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8161 |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8162 /* 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
|
8163 tool_bar_items_vector. */ |
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
8164 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
|
8165 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
|
8166 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
|
8167 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
|
8168 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8169 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8170 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8171 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
8172 |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
8173 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
8174 /* 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
|
8175 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
|
8176 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
|
8177 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8178 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
|
8179 the first event of a key sequence. |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8180 |
11654
47ceabade5b2
(kbd_buffer_get_event): New arg USED_MOUSE_MENU.
Karl Heuer <kwzh@gnu.org>
parents:
11613
diff
changeset
|
8181 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
|
8182 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
|
8183 USED_MOUSE_MENU is null, we don't dereference it. |
518 | 8184 |
8185 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
|
8186 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
|
8187 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8188 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
|
8189 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
|
8190 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
|
8191 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
|
8192 and do auto-saving in the inner call of read_char. */ |
518 | 8193 |
3453
1fd89e975a78
(read_char_menu_prompt): Now static. Add declaration.
Richard M. Stallman <rms@gnu.org>
parents:
3452
diff
changeset
|
8194 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
|
8195 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
|
8196 int nmaps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8197 Lisp_Object *maps; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8198 Lisp_Object prev_event; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8199 int *used_mouse_menu; |
518 | 8200 { |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8201 int mapno; |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
8202 register Lisp_Object name = Qnil; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8203 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
8204 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
|
8205 *used_mouse_menu = 0; |
518 | 8206 |
8207 /* Use local over global Menu maps */ | |
8208 | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8209 if (! menu_prompting) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8210 return Qnil; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8211 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
8212 /* 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
|
8213 if (inhibit_local_menu_bar_menus) |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
8214 { |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
8215 maps += (nmaps - 1); |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
8216 nmaps = 1; |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
8217 } |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
8218 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8219 /* 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
|
8220 for (mapno = 0; mapno < nmaps; mapno++) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8221 { |
39692
e479fa559f2e
(map_prompt): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39684
diff
changeset
|
8222 name = Fkeymap_prompt (maps[mapno]); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8223 if (!NILP (name)) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8224 break; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8225 } |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8226 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8227 /* If we don't have any menus, just read a character normally. */ |
45310
472f06c53d46
(read_char_x_menu_prompt): Use an equivalent but more meaningful test.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45122
diff
changeset
|
8228 if (!STRINGP (name)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8229 return Qnil; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8230 |
13864
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
8231 #ifdef HAVE_MENUS |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8232 /* 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
|
8233 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
|
8234 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
|
8235 && !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
|
8236 && !EQ (XCAR (prev_event), Qtool_bar)) |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8237 { |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8238 /* Display the menu and get the selection. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8239 Lisp_Object *realmaps |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8240 = (Lisp_Object *) alloca (nmaps * sizeof (Lisp_Object)); |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8241 Lisp_Object value; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8242 int nmaps1 = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8243 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8244 /* Use the maps that are not nil. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8245 for (mapno = 0; mapno < nmaps; mapno++) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8246 if (!NILP (maps[mapno])) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8247 realmaps[nmaps1++] = maps[mapno]; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8248 |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8249 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
|
8250 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
|
8251 { |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
8252 Lisp_Object tem; |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
8253 |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8254 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
|
8255 |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
8256 /* 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
|
8257 the first. |
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
8258 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
|
8259 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
|
8260 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
|
8261 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
|
8262 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
|
8263 they won't confuse things. */ |
38674
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
8264 for (tem = XCDR (value); !NILP (tem); 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
|
8265 { |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
8266 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
|
8267 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
|
8268 || INTEGERP (XCAR (tem))) |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
8269 XSETCAR (tem, Fcons (XCAR (tem), Qdisabled)); |
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
|
8270 } |
13082
909b5a8414ee
(safe_run_hooks): No longer static.
Richard M. Stallman <rms@gnu.org>
parents:
13014
diff
changeset
|
8271 |
2719
340d7c6c8790
* keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents:
2690
diff
changeset
|
8272 /* 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
|
8273 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
|
8274 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
|
8275 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
|
8276 = 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
|
8277 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
|
8278 } |
6932
bde97688f58b
(read_char_x_menu_prompt): Don't check for value = nil
Richard M. Stallman <rms@gnu.org>
parents:
6925
diff
changeset
|
8279 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
|
8280 value = Qt; |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
8281 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
|
8282 *used_mouse_menu = 1; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8283 return value; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8284 } |
13864
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
8285 #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
|
8286 return Qnil ; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8287 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8288 |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8289 /* Buffer in use so far for the minibuf prompts for menu keymaps. |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8290 We make this bigger when necessary, and never free it. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8291 static char *read_char_minibuf_menu_text; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8292 /* Size of that buffer. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8293 static int read_char_minibuf_menu_width; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8294 |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8295 static Lisp_Object |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
8296 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
|
8297 int commandflag ; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8298 int nmaps; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8299 Lisp_Object *maps; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8300 { |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8301 int mapno; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8302 register Lisp_Object name; |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8303 int nlength; |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
8304 /* FIXME: Use the minibuffer's frame width. */ |
51196
3fec44aca3cc
Make (many) trivial substitutions for renamed and
Kim F. Storm <storm@cua.dk>
parents:
51179
diff
changeset
|
8305 int width = FRAME_COLS (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
|
8306 int idx = -1; |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8307 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
|
8308 Lisp_Object rest, vector; |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8309 char *menu; |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8310 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8311 vector = Qnil; |
41824
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
8312 name = Qnil; |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8313 |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8314 if (! menu_prompting) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8315 return Qnil; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8316 |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8317 /* Make sure we have a big enough buffer for the menu text. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8318 if (read_char_minibuf_menu_text == 0) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8319 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8320 read_char_minibuf_menu_width = width + 4; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8321 read_char_minibuf_menu_text = (char *) xmalloc (width + 4); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8322 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8323 else if (width + 4 > read_char_minibuf_menu_width) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8324 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8325 read_char_minibuf_menu_width = width + 4; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8326 read_char_minibuf_menu_text |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8327 = (char *) xrealloc (read_char_minibuf_menu_text, width + 4); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8328 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8329 menu = read_char_minibuf_menu_text; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8330 |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8331 /* 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
|
8332 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
|
8333 { |
39692
e479fa559f2e
(map_prompt): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39684
diff
changeset
|
8334 name = Fkeymap_prompt (maps[mapno]); |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8335 if (!NILP (name)) |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8336 break; |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8337 } |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8338 |
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8339 /* If we don't have any menus, just read a character normally. */ |
45310
472f06c53d46
(read_char_x_menu_prompt): Use an equivalent but more meaningful test.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45122
diff
changeset
|
8340 if (!STRINGP (name)) |
5565
8b688d642fc1
(read_char_x_menu_prompt, read_char_minibuf_menu_prompt):
Richard M. Stallman <rms@gnu.org>
parents:
5513
diff
changeset
|
8341 return Qnil; |
518 | 8342 |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8343 /* Prompt string always starts with map's prompt, and a space. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
8344 strcpy (menu, SDATA (name)); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
8345 nlength = SBYTES (name); |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8346 menu[nlength++] = ':'; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8347 menu[nlength++] = ' '; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8348 menu[nlength] = 0; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8349 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8350 /* Start prompting at start of first map. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8351 mapno = 0; |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
8352 rest = maps[mapno]; |
518 | 8353 |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8354 /* Present the documented bindings, a line at a time. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8355 while (1) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8356 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8357 int notfirst = 0; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8358 int i = nlength; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8359 Lisp_Object obj; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8360 int ch; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8361 Lisp_Object orig_defn_macro; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8362 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8363 /* Loop over elements of map. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8364 while (i < width) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8365 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8366 Lisp_Object elt; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8367 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8368 /* If reached end of map, start at beginning of next map. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8369 if (NILP (rest)) |
518 | 8370 { |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8371 mapno++; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8372 /* At end of last map, wrap around to first map if just starting, |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8373 or end this line if already have something on it. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8374 if (mapno == nmaps) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8375 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8376 mapno = 0; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8377 if (notfirst || nobindings) break; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8378 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8379 rest = maps[mapno]; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8380 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8381 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8382 /* Look at the next element of the map. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8383 if (idx >= 0) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8384 elt = XVECTOR (vector)->contents[idx]; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8385 else |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8386 elt = Fcar_safe (rest); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8387 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8388 if (idx < 0 && VECTORP (elt)) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8389 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8390 /* If we found a dense table in the keymap, |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8391 advanced past it, but start scanning its contents. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8392 rest = Fcdr_safe (rest); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8393 vector = elt; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8394 idx = 0; |
518 | 8395 } |
8396 else | |
8397 { | |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8398 /* An ordinary element. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8399 Lisp_Object event, tem; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8400 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8401 if (idx < 0) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8402 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8403 event = Fcar_safe (elt); /* alist */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8404 elt = Fcdr_safe (elt); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8405 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8406 else |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8407 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8408 XSETINT (event, idx); /* vector */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8409 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8410 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8411 /* Ignore the element if it has no prompt string. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8412 if (INTEGERP (event) && parse_menu_item (elt, 0, -1)) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8413 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8414 /* 1 if the char to type matches the string. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8415 int char_matches; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8416 Lisp_Object upcased_event, downcased_event; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8417 Lisp_Object desc = Qnil; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8418 Lisp_Object s |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8419 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME]; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8420 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8421 upcased_event = Fupcase (event); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8422 downcased_event = Fdowncase (event); |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
8423 char_matches = (XINT (upcased_event) == SREF (s, 0) |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
8424 || XINT (downcased_event) == SREF (s, 0)); |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8425 if (! char_matches) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8426 desc = Fsingle_key_description (event, Qnil); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8427 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8428 #if 0 /* It is redundant to list the equivalent key bindings because |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8429 the prefix is what the user has already typed. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8430 tem |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8431 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_KEYEQ]; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8432 if (!NILP (tem)) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8433 /* Insert equivalent keybinding. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8434 s = concat2 (s, tem); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8435 #endif |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8436 tem |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8437 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_TYPE]; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8438 if (EQ (tem, QCradio) || EQ (tem, QCtoggle)) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8439 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8440 /* Insert button prefix. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8441 Lisp_Object selected |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8442 = XVECTOR (item_properties)->contents[ITEM_PROPERTY_SELECTED]; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8443 if (EQ (tem, QCradio)) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8444 tem = build_string (NILP (selected) ? "(*) " : "( ) "); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8445 else |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8446 tem = build_string (NILP (selected) ? "[X] " : "[ ] "); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8447 s = concat2 (tem, s); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8448 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
8449 |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8450 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8451 /* If we have room for the prompt string, add it to this line. |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8452 If this is the first on the line, always add it. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
8453 if ((SCHARS (s) + i + 2 |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
8454 + (char_matches ? 0 : SCHARS (desc) + 3)) |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8455 < width |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8456 || !notfirst) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8457 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8458 int thiswidth; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8459 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8460 /* Punctuate between strings. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8461 if (notfirst) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8462 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8463 strcpy (menu + i, ", "); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8464 i += 2; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8465 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8466 notfirst = 1; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8467 nobindings = 0 ; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8468 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8469 /* If the char to type doesn't match the string's |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8470 first char, explicitly show what char to type. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8471 if (! char_matches) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8472 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8473 /* Add as much of string as fits. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
8474 thiswidth = SCHARS (desc); |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8475 if (thiswidth + i > width) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8476 thiswidth = width - i; |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
8477 bcopy (SDATA (desc), menu + i, thiswidth); |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8478 i += thiswidth; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8479 strcpy (menu + i, " = "); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8480 i += 3; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8481 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8482 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8483 /* Add as much of string as fits. */ |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
8484 thiswidth = SCHARS (s); |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8485 if (thiswidth + i > width) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8486 thiswidth = width - i; |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
8487 bcopy (SDATA (s), menu + i, thiswidth); |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8488 i += thiswidth; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8489 menu[i] = 0; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8490 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8491 else |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8492 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8493 /* If this element does not fit, end the line now, |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8494 and save the element for the next line. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8495 strcpy (menu + i, "..."); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8496 break; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8497 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8498 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8499 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8500 /* Move past this element. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8501 if (idx >= 0 && idx + 1 >= XVECTOR (vector)->size) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8502 /* Handle reaching end of dense table. */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8503 idx = -1; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8504 if (idx >= 0) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8505 idx++; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8506 else |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8507 rest = Fcdr_safe (rest); |
518 | 8508 } |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8509 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8510 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8511 /* Prompt with that and read response. */ |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
8512 message2_nolog (menu, strlen (menu), |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8513 ! NILP (current_buffer->enable_multibyte_characters)); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8514 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8515 /* Make believe its not a keyboard macro in case the help char |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8516 is pressed. Help characters are not recorded because menu prompting |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8517 is not used on replay. |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8518 */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8519 orig_defn_macro = current_kboard->defining_kbd_macro; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8520 current_kboard->defining_kbd_macro = Qnil; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8521 do |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
8522 obj = read_char (commandflag, 0, 0, Qt, 0, NULL); |
46368
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8523 while (BUFFERP (obj)); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8524 current_kboard->defining_kbd_macro = orig_defn_macro; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8525 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8526 if (!INTEGERP (obj)) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8527 return obj; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8528 else |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8529 ch = XINT (obj); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8530 |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8531 if (! EQ (obj, menu_prompt_more_char) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8532 && (!INTEGERP (menu_prompt_more_char) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8533 || ! EQ (obj, make_number (Ctl (XINT (menu_prompt_more_char)))))) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8534 { |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8535 if (!NILP (current_kboard->defining_kbd_macro)) |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8536 store_kbd_macro_char (obj); |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8537 return obj; |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8538 } |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8539 /* Help char - go round again */ |
0b55cf135919
Correct last commit which by mistake included some completely
Kim F. Storm <storm@cua.dk>
parents:
46343
diff
changeset
|
8540 } |
518 | 8541 } |
8542 | |
8543 /* Reading key sequences. */ | |
8544 | |
8545 /* Follow KEY in the maps in CURRENT[0..NMAPS-1], placing its bindings | |
8546 in DEFS[0..NMAPS-1]. Set NEXT[i] to DEFS[i] if DEFS[i] is a | |
8547 keymap, or nil otherwise. Return the index of the first keymap in | |
8548 which KEY has any binding, or NMAPS if no map has a binding. | |
8549 | |
8550 If KEY is a meta ASCII character, treat it like meta-prefix-char | |
8551 followed by the corresponding non-meta character. Keymaps in | |
8552 CURRENT with non-prefix bindings for meta-prefix-char become nil in | |
8553 NEXT. | |
8554 | |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
8555 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
|
8556 unmodified. |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
8557 |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
8558 NEXT may be the same array as CURRENT. */ |
518 | 8559 |
8560 static int | |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
8561 follow_key (key, nmaps, current, defs, next) |
518 | 8562 Lisp_Object key; |
8563 Lisp_Object *current, *defs, *next; | |
8564 int nmaps; | |
8565 { | |
8566 int i, first_binding; | |
8567 | |
8568 first_binding = nmaps; | |
8569 for (i = nmaps - 1; i >= 0; i--) | |
8570 { | |
8571 if (! NILP (current[i])) | |
8572 { | |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8573 defs[i] = access_keymap (current[i], key, 1, 0, 1); |
518 | 8574 if (! NILP (defs[i])) |
8575 first_binding = i; | |
8576 } | |
8577 else | |
8578 defs[i] = Qnil; | |
8579 } | |
8580 | |
8581 /* 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
|
8582 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
|
8583 for (i = 0; i < nmaps; i++) |
32988
c3435dc00ed7
* lisp.h (KEYMAPP): New macro.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32752
diff
changeset
|
8584 next[i] = NILP (defs[i]) ? Qnil : get_keymap (defs[i], 0, 1); |
518 | 8585 |
8586 return first_binding; | |
8587 } | |
8588 | |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8589 /* Structure used to keep track of partial application of key remapping |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8590 such as Vfunction_key_map and Vkey_translation_map. */ |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8591 typedef struct keyremap |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8592 { |
72325
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8593 /* This is the map originally specified for this use. */ |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8594 Lisp_Object parent; |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8595 /* This is a submap reached by looking up, in PARENT, |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8596 the events from START to END. */ |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8597 Lisp_Object map; |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8598 /* Positions [START, END) in the key sequence buffer |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8599 are the key that we have scanned so far. |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8600 Those events are the ones that we will replace |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8601 if PAREHT maps them into a key sequence. */ |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8602 int start, end; |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8603 } keyremap; |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8604 |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8605 /* Lookup KEY in MAP. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8606 MAP is a keymap mapping keys to key vectors or functions. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8607 If the mapping is a function and DO_FUNCTION is non-zero, then |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8608 the function is called with PROMPT as parameter and its return |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8609 value is used as the return value of this function (after checking |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8610 that it is indeed a vector). */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8611 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8612 static Lisp_Object |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8613 access_keymap_keyremap (map, key, prompt, do_funcall) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8614 Lisp_Object map, key, prompt; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8615 int do_funcall; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8616 { |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8617 Lisp_Object next; |
54087 | 8618 |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8619 next = access_keymap (map, key, 1, 0, 1); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8620 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8621 /* Handle symbol with autoload definition. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8622 if (SYMBOLP (next) && !NILP (Ffboundp (next)) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8623 && CONSP (XSYMBOL (next)->function) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8624 && EQ (XCAR (XSYMBOL (next)->function), Qautoload)) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8625 do_autoload (XSYMBOL (next)->function, next); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8626 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8627 /* Handle a symbol whose function definition is a keymap |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8628 or an array. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8629 if (SYMBOLP (next) && !NILP (Ffboundp (next)) |
71835
838f4260201e
(access_keymap_keyremap): Use ARRAYP.
Kim F. Storm <storm@cua.dk>
parents:
71798
diff
changeset
|
8630 && (ARRAYP (XSYMBOL (next)->function) |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8631 || KEYMAPP (XSYMBOL (next)->function))) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8632 next = XSYMBOL (next)->function; |
54087 | 8633 |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8634 /* If the keymap gives a function, not an |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8635 array, then call the function with one arg and use |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8636 its value instead. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8637 if (SYMBOLP (next) && !NILP (Ffboundp (next)) && do_funcall) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8638 { |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8639 Lisp_Object tem; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8640 tem = next; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8641 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8642 next = call1 (next, prompt); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8643 /* If the function returned something invalid, |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8644 barf--don't ignore it. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8645 (To ignore it safely, we would need to gcpro a bunch of |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8646 other variables.) */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8647 if (! (VECTORP (next) || STRINGP (next))) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8648 error ("Function %s returns invalid key sequence", tem); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8649 } |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8650 return next; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8651 } |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8652 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8653 /* Do one step of the key remapping used for function-key-map and |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8654 key-translation-map: |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8655 KEYBUF is the buffer holding the input events. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8656 BUFSIZE is its maximum size. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8657 FKEY is a pointer to the keyremap structure to use. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8658 INPUT is the index of the last element in KEYBUF. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8659 DOIT if non-zero says that the remapping can actually take place. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8660 DIFF is used to return the number of keys added/removed by the remapping. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8661 PARENT is the root of the keymap. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8662 PROMPT is the prompt to use if the remapping happens through a function. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8663 The return value is non-zero if the remapping actually took place. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8664 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8665 static int |
50994
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
8666 keyremap_step (keybuf, bufsize, fkey, input, doit, diff, prompt) |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
8667 Lisp_Object *keybuf, prompt; |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8668 keyremap *fkey; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8669 int input, doit, *diff, bufsize; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8670 { |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8671 Lisp_Object next, key; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8672 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8673 key = keybuf[fkey->end++]; |
72325
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8674 |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8675 if (KEYMAPP (fkey->parent)) |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8676 next = access_keymap_keyremap (fkey->map, key, prompt, doit); |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8677 else |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8678 next = Qnil; |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8679 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8680 /* If keybuf[fkey->start..fkey->end] is bound in the |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8681 map and we're in a position to do the key remapping, replace it with |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8682 the binding and restart with fkey->start at the end. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8683 if ((VECTORP (next) || STRINGP (next)) && doit) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8684 { |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8685 int len = XFASTINT (Flength (next)); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8686 int i; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8687 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8688 *diff = len - (fkey->end - fkey->start); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8689 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8690 if (input + *diff >= bufsize) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8691 error ("Key sequence too long"); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8692 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8693 /* Shift the keys that follow fkey->end. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8694 if (*diff < 0) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8695 for (i = fkey->end; i < input; i++) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8696 keybuf[i + *diff] = keybuf[i]; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8697 else if (*diff > 0) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8698 for (i = input - 1; i >= fkey->end; i--) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8699 keybuf[i + *diff] = keybuf[i]; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8700 /* Overwrite the old keys with the new ones. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8701 for (i = 0; i < len; i++) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8702 keybuf[fkey->start + i] |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8703 = Faref (next, make_number (i)); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8704 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8705 fkey->start = fkey->end += *diff; |
50994
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
8706 fkey->map = fkey->parent; |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8707 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8708 return 1; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8709 } |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8710 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8711 fkey->map = get_keymap (next, 0, 1); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8712 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8713 /* If we no longer have a bound suffix, try a new position for |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8714 fkey->start. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8715 if (!CONSP (fkey->map)) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8716 { |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8717 fkey->end = ++fkey->start; |
50994
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
8718 fkey->map = fkey->parent; |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8719 } |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8720 return 0; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8721 } |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8722 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8723 /* 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
|
8724 storing it in KEYBUF, a buffer of size BUFSIZE. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8725 Prompt with PROMPT. |
518 | 8726 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
|
8727 Return -1 if the user rejected a command menu. |
518 | 8728 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8729 Echo starting immediately unless `prompt' is 0. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8730 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8731 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
|
8732 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
|
8733 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
|
8734 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8735 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
|
8736 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
|
8737 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
|
8738 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
|
8739 |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
8740 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
|
8741 `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
|
8742 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
|
8743 then into clicks. |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8744 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8745 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
|
8746 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
|
8747 symbol denoting that area - `mode-line', `vertical-line', or |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8748 whatever. |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8749 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8750 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
|
8751 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
|
8752 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8753 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
|
8754 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
|
8755 read_char will return it. |
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
8756 |
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
8757 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
|
8758 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
|
8759 |
518 | 8760 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
|
8761 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
|
8762 can_return_switch_frame, fix_current_buffer) |
518 | 8763 Lisp_Object *keybuf; |
8764 int bufsize; | |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
8765 Lisp_Object prompt; |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
8766 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
|
8767 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
|
8768 int fix_current_buffer; |
518 | 8769 { |
36705
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
8770 volatile Lisp_Object from_string; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
8771 volatile int count = SPECPDL_INDEX (); |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8772 |
518 | 8773 /* 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
|
8774 volatile int t; |
518 | 8775 |
8776 /* The length of the echo buffer when we started reading, and | |
8777 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
|
8778 volatile int echo_start; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8779 volatile int keys_start; |
518 | 8780 |
8781 /* The number of keymaps we're scanning right now, and the number of | |
8782 keymaps we have allocated space for. */ | |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8783 volatile int nmaps; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8784 volatile int nmaps_allocated = 0; |
518 | 8785 |
8786 /* defs[0..nmaps-1] are the definitions of KEYBUF[0..t-1] in | |
8787 the current keymaps. */ | |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8788 Lisp_Object *volatile defs = NULL; |
518 | 8789 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8790 /* 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
|
8791 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
|
8792 Lisp_Object *volatile submaps = NULL; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8793 |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8794 /* 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
|
8795 volatile Lisp_Object orig_local_map; |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8796 |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
8797 /* 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
|
8798 key sequence. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8799 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
|
8800 |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8801 /* 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
|
8802 of the place where a mouse click occurred. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8803 volatile int localized_local_map = 0; |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8804 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8805 /* 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
|
8806 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
|
8807 defs[i] is non-nil. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8808 volatile int first_binding; |
41824
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
8809 /* Index of the first key that has no binding. |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8810 It is useless to try fkey.start larger than that. */ |
41824
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
8811 volatile int first_unbound; |
518 | 8812 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8813 /* If t < mock_input, then KEYBUF[t] should be read as the next |
899 | 8814 input key. |
8815 | |
8816 We use this to recover after recognizing a function key. Once we | |
8817 realize that a suffix of the current key sequence is actually a | |
8818 function key's escape sequence, we replace the suffix with the | |
8819 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
|
8820 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
|
8821 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
|
8822 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
|
8823 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
|
8824 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
|
8825 reading characters from the keyboard. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8826 volatile int mock_input = 0; |
518 | 8827 |
899 | 8828 /* If the sequence is unbound in submaps[], then |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8829 keybuf[fkey.start..fkey.end-1] is a prefix in Vfunction_key_map, |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8830 and fkey.map is its binding. |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8831 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8832 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
|
8833 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
|
8834 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
|
8835 key's again in Vfunction_key_map. */ |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8836 volatile keyremap fkey; |
518 | 8837 |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8838 /* Likewise, for key_translation_map. */ |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8839 volatile keyremap keytran; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8840 |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8841 /* If we receive a `switch-frame' or `select-window' event in the middle of |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8842 a key sequence, we put it off for later. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
8843 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
|
8844 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
|
8845 |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
8846 /* 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
|
8847 #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
|
8848 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
|
8849 #endif |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
8850 |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8851 volatile Lisp_Object original_uppercase; |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
8852 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
|
8853 |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8854 /* 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
|
8855 int dummyflag = 0; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
8856 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
8857 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
|
8858 |
37689
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
8859 /* List of events for which a fake prefix key has been generated. */ |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
8860 volatile Lisp_Object fake_prefixed_keys = Qnil; |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
8861 |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
8862 #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
|
8863 int junk; |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
8864 #endif |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
8865 |
37689
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
8866 struct gcpro gcpro1; |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
8867 |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
8868 GCPRO1 (fake_prefixed_keys); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8869 raw_keybuf_count = 0; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
8870 |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
8871 last_nonmenu_event = Qnil; |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
8872 |
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
8873 delayed_switch_frame = Qnil; |
50994
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
8874 fkey.map = fkey.parent = Vfunction_key_map; |
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
8875 keytran.map = keytran.parent = Vkey_translation_map; |
72325
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8876 fkey.start = fkey.end = 0; |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
8877 keytran.start = keytran.end = 0; |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
8878 |
518 | 8879 if (INTERACTIVE) |
8880 { | |
4878
57c506c597b9
(read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents:
4849
diff
changeset
|
8881 if (!NILP (prompt)) |
34544
24bcec64720c
(echo_prompt): Argument type changed to Lisp_Object.
Kenichi Handa <handa@m17n.org>
parents:
34518
diff
changeset
|
8882 echo_prompt (prompt); |
27769
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
8883 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
|
8884 && (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
|
8885 && NILP (Fzerop (Vecho_keystrokes))) |
518 | 8886 /* This doesn't put in a dash if the echo buffer is empty, so |
8887 you don't always see a dash hanging out in the minibuffer. */ | |
8888 echo_dash (); | |
8889 } | |
8890 | |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8891 /* 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
|
8892 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
|
8893 if (INTERACTIVE) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
8894 echo_start = echo_length (); |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8895 keys_start = this_command_key_count; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
8896 this_single_command_key_start = keys_start; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8897 |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
8898 #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
|
8899 /* 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
|
8900 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
|
8901 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
|
8902 |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
8903 /* 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
|
8904 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
|
8905 first_event = read_char (NILP (prompt), 0, submaps, last_nonmenu_event, |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
8906 &junk, NULL); |
4823
ec62e93360d1
(read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents:
4773
diff
changeset
|
8907 #endif /* GOBBLE_FIRST_EVENT */ |
3294
4a10e4c34b11
(read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents:
3276
diff
changeset
|
8908 |
35255
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
8909 orig_local_map = get_local_map (PT, current_buffer, Qlocal_map); |
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
8910 orig_keymap = get_local_map (PT, current_buffer, Qkeymap); |
36705
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
8911 from_string = Qnil; |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
8912 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
8913 /* 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
|
8914 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
|
8915 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
|
8916 replay_sequence: |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
8917 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
8918 starting_buffer = current_buffer; |
41824
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
8919 first_unbound = bufsize + 1; |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
8920 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8921 /* Build our list of keymaps. |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
8922 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
|
8923 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
|
8924 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
|
8925 the initial keymaps from the current buffer. */ |
42486
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8926 nmaps = 0; |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8927 |
72845
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8928 if (!NILP (current_kboard->Voverriding_terminal_local_map)) |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8929 { |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8930 if (2 > nmaps_allocated) |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8931 { |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8932 submaps = (Lisp_Object *) alloca (2 * sizeof (submaps[0])); |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8933 defs = (Lisp_Object *) alloca (2 * sizeof (defs[0])); |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8934 nmaps_allocated = 2; |
42486
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8935 } |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8936 if (!NILP (current_kboard->Voverriding_terminal_local_map)) |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8937 submaps[nmaps++] = current_kboard->Voverriding_terminal_local_map; |
72845
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8938 } |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8939 else if (!NILP (Voverriding_local_map)) |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8940 { |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8941 if (2 > nmaps_allocated) |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8942 { |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8943 submaps = (Lisp_Object *) alloca (2 * sizeof (submaps[0])); |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8944 defs = (Lisp_Object *) alloca (2 * sizeof (defs[0])); |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8945 nmaps_allocated = 2; |
becf85cadcc0
(read_char): If end_time specified, don't put the
Richard M. Stallman <rms@gnu.org>
parents:
72790
diff
changeset
|
8946 } |
42486
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8947 if (!NILP (Voverriding_local_map)) |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8948 submaps[nmaps++] = Voverriding_local_map; |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8949 } |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8950 else |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8951 { |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8952 int nminor; |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8953 int total; |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8954 Lisp_Object *maps; |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8955 |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8956 nminor = current_minor_maps (0, &maps); |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8957 total = nminor + (!NILP (orig_keymap) ? 3 : 2); |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8958 |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8959 if (total > nmaps_allocated) |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8960 { |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8961 submaps = (Lisp_Object *) alloca (total * sizeof (submaps[0])); |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8962 defs = (Lisp_Object *) alloca (total * sizeof (defs[0])); |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8963 nmaps_allocated = total; |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8964 } |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8965 |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8966 if (!NILP (orig_keymap)) |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8967 submaps[nmaps++] = orig_keymap; |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8968 |
42499
e4c6344ca163
(read_key_sequence): Fixed cast of submaps arg to bcopy.
Kim F. Storm <storm@cua.dk>
parents:
42486
diff
changeset
|
8969 bcopy (maps, (void *) (submaps + nmaps), |
42486
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8970 nminor * sizeof (submaps[0])); |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8971 |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8972 nmaps += nminor; |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8973 |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8974 submaps[nmaps++] = orig_local_map; |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8975 } |
488ddda9d397
(read_key_sequence): Handle the keymap property before minor mode maps.
Richard M. Stallman <rms@gnu.org>
parents:
42337
diff
changeset
|
8976 submaps[nmaps++] = current_global_map; |
518 | 8977 |
8978 /* Find an accurate initial value for first_binding. */ | |
8979 for (first_binding = 0; first_binding < nmaps; first_binding++) | |
899 | 8980 if (! NILP (submaps[first_binding])) |
518 | 8981 break; |
8982 | |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
8983 /* Start from the beginning in keybuf. */ |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8984 t = 0; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8985 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8986 /* 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
|
8987 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
|
8988 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
|
8989 if (INTERACTIVE && t < mock_input) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8990 echo_truncate (echo_start); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
8991 |
3809
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
8992 /* 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
|
8993 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
|
8994 reading. */ |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8995 while (first_binding < nmaps |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8996 /* Keep reading as long as there's a prefix binding. */ |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
8997 ? !NILP (submaps[first_binding]) |
5225
95a44cfa9e17
(make_lispy_event): Offset the event code here.
Richard M. Stallman <rms@gnu.org>
parents:
5224
diff
changeset
|
8998 /* 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
|
8999 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
|
9000 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
|
9001 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
|
9002 so that we can translate ESC O plus the next character. */ |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9003 : (fkey.start < t || keytran.start < t)) |
518 | 9004 { |
9005 Lisp_Object key; | |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
9006 int used_mouse_menu = 0; |
518 | 9007 |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
9008 /* 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
|
9009 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
|
9010 (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
|
9011 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
|
9012 of keybuf. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
9013 volatile int last_real_key_start; |
1778
1f18bfe28e2f
* termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1711
diff
changeset
|
9014 |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9015 /* 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
|
9016 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
|
9017 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
|
9018 just one key. */ |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
9019 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
|
9020 |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9021 eassert (fkey.end == t || (fkey.end > t && fkey.end <= mock_input)); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9022 eassert (fkey.start <= fkey.end); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9023 eassert (keytran.start <= keytran.end); |
45753
402855ebf092
(read_key_sequence):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45751
diff
changeset
|
9024 /* key-translation-map is applied *after* function-key-map. */ |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9025 eassert (keytran.end <= fkey.start); |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9026 |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9027 if (first_unbound < fkey.start && first_unbound < keytran.start) |
41824
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9028 { /* The prefix upto first_unbound has no binding and has |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9029 no translation left to do either, so we know it's unbound. |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9030 If we don't stop now, we risk staying here indefinitely |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9031 (if the user keeps entering fkey or keytran prefixes |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9032 like C-c ESC ESC ESC ESC ...) */ |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9033 int i; |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9034 for (i = first_unbound + 1; i < t; i++) |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9035 keybuf[i - first_unbound - 1] = keybuf[i]; |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9036 mock_input = t - first_unbound - 1; |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9037 fkey.end = fkey.start -= first_unbound + 1; |
50994
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
9038 fkey.map = fkey.parent; |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9039 keytran.end = keytran.start -= first_unbound + 1; |
50994
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
9040 keytran.map = keytran.parent; |
41824
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9041 goto replay_sequence; |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9042 } |
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9043 |
518 | 9044 if (t >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9045 error ("Key sequence too long"); |
518 | 9046 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9047 if (INTERACTIVE) |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9048 echo_local_start = echo_length (); |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9049 keys_local_start = this_command_key_count; |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9050 local_first_binding = first_binding; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9051 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9052 replay_key: |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9053 /* 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
|
9054 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
|
9055 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
|
9056 loop. */ |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
9057 if (INTERACTIVE && t < mock_input) |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9058 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
|
9059 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
|
9060 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
|
9061 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9062 /* 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
|
9063 last_real_key_start = t; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9064 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9065 /* Does mock_input indicate that we are re-reading a key sequence? */ |
518 | 9066 if (t < mock_input) |
9067 { | |
9068 key = keybuf[t]; | |
9069 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
|
9070 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
|
9071 && NILP (Fzerop (Vecho_keystrokes))) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
9072 echo_char (key); |
518 | 9073 } |
899 | 9074 |
9075 /* If not, we should actually read a character. */ | |
518 | 9076 else |
9077 { | |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9078 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9079 #ifdef MULTI_KBOARD |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9080 KBOARD *interrupted_kboard = current_kboard; |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
9081 struct frame *interrupted_frame = SELECTED_FRAME (); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9082 if (setjmp (wrong_kboard_jmpbuf)) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9083 { |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
9084 if (!NILP (delayed_switch_frame)) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
9085 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9086 interrupted_kboard->kbd_queue |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
9087 = Fcons (delayed_switch_frame, |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9088 interrupted_kboard->kbd_queue); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
9089 delayed_switch_frame = Qnil; |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
9090 } |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9091 while (t > 0) |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9092 interrupted_kboard->kbd_queue |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9093 = Fcons (keybuf[--t], interrupted_kboard->kbd_queue); |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
9094 |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
9095 /* 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
|
9096 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
|
9097 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
|
9098 && (key = XCAR (interrupted_kboard->kbd_queue), |
10997
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
9099 !(EVENT_HAS_PARAMETERS (key) |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
9100 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (key)), |
66d853abce42
(event_to_perdisplay): New function.
Karl Heuer <kwzh@gnu.org>
parents:
10985
diff
changeset
|
9101 Qswitch_frame)))) |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9102 { |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9103 Lisp_Object frame; |
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9104 XSETFRAME (frame, interrupted_frame); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9105 interrupted_kboard->kbd_queue |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9106 = Fcons (make_lispy_switch_frame (frame), |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
9107 interrupted_kboard->kbd_queue); |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9108 } |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9109 mock_input = 0; |
35255
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9110 orig_local_map = get_local_map (PT, current_buffer, Qlocal_map); |
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9111 orig_keymap = get_local_map (PT, current_buffer, Qkeymap); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9112 goto replay_sequence; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9113 } |
10820
5bef43a53c01
(display_locked): New var to indicate when we're in the run state.
Karl Heuer <kwzh@gnu.org>
parents:
10800
diff
changeset
|
9114 #endif |
31579
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
9115 key = read_char (NILP (prompt), nmaps, |
56845f87c178
Avoid some more compiler warnings.
Gerd Moellmann <gerd@gnu.org>
parents:
31215
diff
changeset
|
9116 (Lisp_Object *) submaps, last_nonmenu_event, |
72131
3cc6bfe3a15d
* keyboard.c (read_char): New arg END_TIME specifying timeout.
Chong Yidong <cyd@stupidchicken.com>
parents:
71981
diff
changeset
|
9117 &used_mouse_menu, NULL); |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
9118 } |
518 | 9119 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
9120 /* 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
|
9121 Just return -1. */ |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
9122 if (EQ (key, Qt)) |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9123 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9124 unbind_to (count, Qnil); |
37689
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9125 UNGCPRO; |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9126 return -1; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9127 } |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
9128 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9129 /* read_char returns -1 at the end of a macro. |
518 | 9130 Emacs 18 handles this by returning immediately with a |
9131 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
|
9132 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
|
9133 { |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9134 t = 0; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
9135 /* 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
|
9136 would go here. */ |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
9137 dummyflag = 1; |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
9138 break; |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
9139 } |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9140 |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
9141 /* 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
|
9142 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
|
9143 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
|
9144 { |
57410
73be00e59d8e
(timer_resume_idle): New function to resume idle
Kim F. Storm <storm@cua.dk>
parents:
56729
diff
changeset
|
9145 timer_resume_idle (); |
46109
60d71404b887
(timer_last_idleness_start_time): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
46077
diff
changeset
|
9146 |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
9147 mock_input = t; |
17389
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
9148 /* 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
|
9149 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
|
9150 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
|
9151 of the command_loop_1. */ |
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
9152 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
|
9153 { |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
9154 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
|
9155 Fkill_emacs (Qnil); |
f16c96435677
(command_loop_1): When switching to selected window's bfr,
Karl Heuer <kwzh@gnu.org>
parents:
23090
diff
changeset
|
9156 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
|
9157 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
|
9158 } |
17389
ab5d66b86b2c
(read_key_sequence): New argument FIX_CURRENT_BUFFER.
Richard M. Stallman <rms@gnu.org>
parents:
17231
diff
changeset
|
9159 |
35255
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9160 orig_local_map = get_local_map (PT, current_buffer, Qlocal_map); |
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9161 orig_keymap = get_local_map (PT, current_buffer, Qkeymap); |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
9162 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
|
9163 } |
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
9164 |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
9165 /* 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
|
9166 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
|
9167 replay to get the right keymap. */ |
38674
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
9168 if (INTEGERP (key) |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
9169 && XINT (key) == quit_char |
8e0b0d76380a
(read_key_sequence): Check that key is an integer
Gerd Moellmann <gerd@gnu.org>
parents:
38629
diff
changeset
|
9170 && 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
|
9171 { |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9172 GROW_RAW_KEYBUF; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9173 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
|
9174 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
|
9175 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
|
9176 Vquit_flag = Qnil; |
35255
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9177 orig_local_map = get_local_map (PT, current_buffer, Qlocal_map); |
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9178 orig_keymap = get_local_map (PT, current_buffer, Qkeymap); |
5077
a928c879b7ea
(read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents:
5064
diff
changeset
|
9179 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
|
9180 } |
5889
06bbb0e856d7
(read_char, read_char_minibuf_menu_prompt, read_key_sequence): Retry read_char
Karl Heuer <kwzh@gnu.org>
parents:
5887
diff
changeset
|
9181 |
518 | 9182 Vquit_flag = Qnil; |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9183 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9184 if (EVENT_HAS_PARAMETERS (key) |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9185 /* Either a `switch-frame' or a `select-window' event. */ |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9186 && 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
|
9187 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9188 /* 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
|
9189 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
|
9190 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
|
9191 if (t > 0 || !can_return_switch_frame) |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9192 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9193 delayed_switch_frame = key; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9194 goto replay_key; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9195 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9196 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9197 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9198 GROW_RAW_KEYBUF; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9199 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
|
9200 } |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9201 |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
9202 /* 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
|
9203 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
|
9204 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
|
9205 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9206 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
|
9207 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
|
9208 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
|
9209 here. |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9210 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9211 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
|
9212 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
|
9213 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
|
9214 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
|
9215 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
|
9216 if (EVENT_HAS_PARAMETERS (key)) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9217 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9218 Lisp_Object kind; |
53178
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
9219 Lisp_Object string; |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9220 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9221 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
|
9222 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
|
9223 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9224 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
|
9225 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9226 window = POSN_WINDOW (EVENT_START (key)); |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
9227 posn = POSN_POSN (EVENT_START (key)); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9228 |
37742
c3dd00963b46
(read_key_sequence): Prevent generating a fake
Gerd Moellmann <gerd@gnu.org>
parents:
37689
diff
changeset
|
9229 if (CONSP (posn) |
c3dd00963b46
(read_key_sequence): Prevent generating a fake
Gerd Moellmann <gerd@gnu.org>
parents:
37689
diff
changeset
|
9230 || (!NILP (fake_prefixed_keys) |
c3dd00963b46
(read_key_sequence): Prevent generating a fake
Gerd Moellmann <gerd@gnu.org>
parents:
37689
diff
changeset
|
9231 && !NILP (Fmemq (key, fake_prefixed_keys)))) |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9232 { |
37742
c3dd00963b46
(read_key_sequence): Prevent generating a fake
Gerd Moellmann <gerd@gnu.org>
parents:
37689
diff
changeset
|
9233 /* We're looking a second time at an event for which |
c3dd00963b46
(read_key_sequence): Prevent generating a fake
Gerd Moellmann <gerd@gnu.org>
parents:
37689
diff
changeset
|
9234 we generated a fake prefix key. Set |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9235 last_real_key_start appropriately. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9236 if (t > 0) |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9237 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
|
9238 } |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9239 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9240 /* 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
|
9241 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
|
9242 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
|
9243 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
|
9244 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
|
9245 && WINDOWP (window) |
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
9246 && BUFFERP (XWINDOW (window)->buffer) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9247 && 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
|
9248 { |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9249 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
|
9250 keybuf[t] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9251 mock_input = t + 1; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9252 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9253 /* 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
|
9254 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
|
9255 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
|
9256 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
|
9257 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
|
9258 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
|
9259 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
|
9260 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
|
9261 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
|
9262 emacsclient). */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9263 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
|
9264 |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
9265 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
|
9266 Fkill_emacs (Qnil); |
35255
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9267 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer)); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9268 orig_local_map = get_local_map (PT, current_buffer, |
35255
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9269 Qlocal_map); |
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9270 orig_keymap = get_local_map (PT, current_buffer, Qkeymap); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9271 goto replay_sequence; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9272 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
9273 |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9274 /* 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
|
9275 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
|
9276 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
|
9277 && CONSP (XCDR (key)) |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9278 && ! localized_local_map) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9279 { |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9280 Lisp_Object map_here, start, pos; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9281 |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9282 localized_local_map = 1; |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9283 start = EVENT_START (key); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
9284 |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
9285 if (CONSP (start) && POSN_INBUFFER_P (start)) |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9286 { |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9287 pos = POSN_BUFFER_POSN (start); |
12979
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
9288 if (INTEGERP (pos) |
75293
e11e583145aa
(read_key_sequence): Extract local map only if the
Chong Yidong <cyd@stupidchicken.com>
parents:
75137
diff
changeset
|
9289 && XINT (pos) >= BEGV |
e11e583145aa
(read_key_sequence): Extract local map only if the
Chong Yidong <cyd@stupidchicken.com>
parents:
75137
diff
changeset
|
9290 && XINT (pos) <= ZV) |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9291 { |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9292 map_here = get_local_map (XINT (pos), |
35255
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9293 current_buffer, Qlocal_map); |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9294 if (!EQ (map_here, orig_local_map)) |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9295 { |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9296 orig_local_map = map_here; |
72889
25c755416160
* NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents:
72845
diff
changeset
|
9297 ++localized_local_map; |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9298 } |
72889
25c755416160
* NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents:
72845
diff
changeset
|
9299 |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9300 map_here = get_local_map (XINT (pos), |
35255
d473294a0124
Call get_local_map with new argument list.
Gerd Moellmann <gerd@gnu.org>
parents:
35171
diff
changeset
|
9301 current_buffer, Qkeymap); |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9302 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
|
9303 { |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9304 orig_keymap = map_here; |
72889
25c755416160
* NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents:
72845
diff
changeset
|
9305 ++localized_local_map; |
25c755416160
* NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents:
72845
diff
changeset
|
9306 } |
25c755416160
* NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents:
72845
diff
changeset
|
9307 |
25c755416160
* NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents:
72845
diff
changeset
|
9308 if (localized_local_map > 1) |
25c755416160
* NEWS: explain new behavior and arguments of `key-binding' and
David Kastrup <dak@gnu.org>
parents:
72845
diff
changeset
|
9309 { |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9310 keybuf[t] = key; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9311 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
|
9312 |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9313 goto replay_sequence; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9314 } |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9315 } |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9316 } |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9317 } |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9318 |
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9319 /* 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
|
9320 use posn as a fake prefix key. */ |
37689
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9321 if (SYMBOLP (posn) |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9322 && (NILP (fake_prefixed_keys) |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9323 || NILP (Fmemq (key, fake_prefixed_keys)))) |
10381
8e8259e052ed
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10309
diff
changeset
|
9324 { |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9325 if (t + 1 >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9326 error ("Key sequence too long"); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
9327 |
37689
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9328 keybuf[t] = posn; |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9329 keybuf[t + 1] = key; |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9330 mock_input = t + 2; |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9331 |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9332 /* Record that a fake prefix key has been generated |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9333 for KEY. Don't modify the event; this would |
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9334 prevent proper action when the event is pushed |
46535 | 9335 back into unread-command-events. */ |
37689
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9336 fake_prefixed_keys = Fcons (key, fake_prefixed_keys); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9337 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9338 /* 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
|
9339 reconsider the key sequence with that keymap. */ |
53178
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
9340 if (string = POSN_STRING (EVENT_START (key)), |
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
9341 (CONSP (string) && STRINGP (XCAR (string)))) |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9342 { |
53178
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
9343 Lisp_Object pos, map, map2; |
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
9344 |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9345 pos = XCDR (string); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9346 string = XCAR (string); |
29717
acaa36b47f50
fix up more Lisp_Object/int conversion issues
Ken Raeburn <raeburn@raeburn.org>
parents:
29635
diff
changeset
|
9347 if (XINT (pos) >= 0 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
9348 && XINT (pos) < SCHARS (string)) |
29280
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9349 { |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9350 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
|
9351 if (!NILP (map)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9352 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
|
9353 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
|
9354 if (!NILP (map2)) |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9355 orig_keymap = map2; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9356 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
|
9357 goto replay_sequence; |
c1c05b2a382c
(menu_bar_items, tool_bar_items, Fexecute_extended_command): Deal with
Dave Love <fx@gnu.org>
parents:
29099
diff
changeset
|
9358 } |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9359 } |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
9360 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9361 goto replay_key; |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
9362 } |
53178
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
9363 else if (NILP (from_string) |
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
9364 && (string = POSN_STRING (EVENT_START (key)), |
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
9365 (CONSP (string) && STRINGP (XCAR (string))))) |
36705
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9366 { |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9367 /* For a click on a string, i.e. overlay string or a |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9368 string displayed via the `display' property, |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9369 consider `local-map' and `keymap' properties of |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9370 that string. */ |
53178
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
9371 Lisp_Object pos, map, map2; |
ee96f9f80b61
(make_lispy_position): Add x and y coordinates
Kim F. Storm <storm@cua.dk>
parents:
53128
diff
changeset
|
9372 |
36705
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9373 pos = XCDR (string); |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9374 string = XCAR (string); |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9375 if (XINT (pos) >= 0 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
9376 && XINT (pos) < SCHARS (string)) |
36705
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9377 { |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9378 map = Fget_text_property (pos, Qlocal_map, string); |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9379 if (!NILP (map)) |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9380 orig_local_map = map; |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9381 map2 = Fget_text_property (pos, Qkeymap, string); |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9382 if (!NILP (map2)) |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9383 orig_keymap = map2; |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9384 |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9385 if (!NILP (map) || !NILP (map2)) |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9386 { |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9387 from_string = string; |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9388 goto replay_sequence; |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9389 } |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9390 } |
55c887a0c742
(make_lispy_event): Add string info to the event,
Gerd Moellmann <gerd@gnu.org>
parents:
36698
diff
changeset
|
9391 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9392 } |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
9393 else if (CONSP (XCDR (key)) |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
9394 && 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
|
9395 && 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
|
9396 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9397 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
|
9398 |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
9399 posn = POSN_POSN (EVENT_START (key)); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9400 /* Handle menu-bar events: |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9401 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
|
9402 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
|
9403 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9404 if (t + 1 >= bufsize) |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9405 error ("Key sequence too long"); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9406 keybuf[t] = posn; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9407 keybuf[t+1] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9408 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9409 /* 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
|
9410 expanded it, and don't try to do so again. */ |
53515
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
9411 POSN_SET_POSN (EVENT_START (key), |
12bc18575b80
(make_lispy_position): Use modified mode_line_string,
Kim F. Storm <storm@cua.dk>
parents:
53330
diff
changeset
|
9412 Fcons (posn, Qnil)); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9413 |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9414 mock_input = t + 2; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9415 goto replay_sequence; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9416 } |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
9417 else if (CONSP (posn)) |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9418 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9419 /* 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
|
9420 sequence which we expanded before. Set |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9421 last_real_key_start appropriately. */ |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9422 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
|
9423 last_real_key_start = t - 1; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9424 } |
3452
3393f6e53d25
(read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents:
3294
diff
changeset
|
9425 } |
518 | 9426 } |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9427 |
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9428 /* 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
|
9429 to look up. */ |
518 | 9430 first_binding = (follow_key (key, |
9431 nmaps - first_binding, | |
899 | 9432 submaps + first_binding, |
518 | 9433 defs + first_binding, |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
9434 submaps + first_binding) |
518 | 9435 + first_binding); |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9436 |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9437 /* If KEY wasn't bound, we'll try some fallbacks. */ |
45881
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9438 if (first_binding < nmaps) |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9439 /* This is needed for the following scenario: |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9440 event 0: a down-event that gets dropped by calling replay_key. |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9441 event 1: some normal prefix like C-h. |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9442 After event 0, first_unbound is 0, after event 1 fkey.start |
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9443 and keytran.start are both 1, so when we see that C-h is bound, |
45881
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9444 we need to update first_unbound. */ |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9445 first_unbound = max (t + 1, first_unbound); |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9446 else |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9447 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9448 Lisp_Object head; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
9449 |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9450 /* Remember the position to put an upper bound on fkey.start. */ |
41824
9fc96faea7e7
(kbd_buffer_store_event): Fix interrupt_signal prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
40775
diff
changeset
|
9451 first_unbound = min (t, first_unbound); |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9452 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9453 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
|
9454 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
|
9455 { |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9456 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
|
9457 keybuf[t++] = key; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9458 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
|
9459 /* 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
|
9460 would go here. */ |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
9461 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
|
9462 break; |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9463 } |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
9464 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
9465 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
|
9466 { |
6461
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9467 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
|
9468 int modifiers; |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9469 |
eed1282ed6b0
(add_command_key, command_loop_1, read_char, kbd_buffer_store_event,
Karl Heuer <kwzh@gnu.org>
parents:
6311
diff
changeset
|
9470 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
|
9471 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
|
9472 /* 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
|
9473 event that is bound: |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9474 Drags reduce to clicks. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9475 Double-clicks reduce to clicks. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9476 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
|
9477 Down-clicks are eliminated. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9478 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
|
9479 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
|
9480 then are eliminated. */ |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9481 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
|
9482 | 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
|
9483 { |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9484 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
|
9485 | 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
|
9486 { |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9487 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
|
9488 if (modifiers & triple_modifier) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9489 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
|
9490 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
|
9491 modifiers &= ~double_modifier; |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
9492 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
|
9493 modifiers &= ~drag_modifier; |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9494 else |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9495 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9496 /* 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
|
9497 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
|
9498 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9499 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
|
9500 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
|
9501 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
|
9502 mock input. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9503 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9504 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
|
9505 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
|
9506 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
|
9507 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
|
9508 anyway. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9509 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9510 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
|
9511 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
|
9512 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
|
9513 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
|
9514 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
|
9515 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
|
9516 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
|
9517 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
|
9518 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
|
9519 it. |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9520 |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9521 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
|
9522 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
|
9523 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
|
9524 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
|
9525 |
45881
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9526 FIXME: The above paragraph seems just plain |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9527 wrong, if you consider things like |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9528 xterm-mouse-mode. -stef |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9529 |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9530 Isn't this just the most wonderful code ever? */ |
51179
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9531 |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9532 /* If mock_input > t + 1, the above simplification |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9533 will actually end up dropping keys on the floor. |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9534 This is probably OK for now, but even |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9535 if mock_input <= t + 1, we need to adjust fkey |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9536 and keytran. |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9537 Typical case [header-line down-mouse-N]: |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9538 mock_input = 2, t = 1, fkey.end = 1, |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9539 last_real_key_start = 0. */ |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9540 if (fkey.end > last_real_key_start) |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9541 { |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9542 fkey.end = fkey.start |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9543 = min (last_real_key_start, fkey.start); |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9544 fkey.map = fkey.parent; |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9545 if (keytran.end > last_real_key_start) |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9546 { |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9547 keytran.end = keytran.start |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9548 = min (last_real_key_start, keytran.start); |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9549 keytran.map = keytran.parent; |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9550 } |
52ab727d168b
(read_key_sequence): Adjust fkey and keytran when dropping `down' events.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51014
diff
changeset
|
9551 } |
4397
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9552 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
|
9553 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9554 mock_input = 0; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9555 goto replay_key; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9556 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9557 else |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9558 { |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9559 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
|
9560 goto replay_sequence; |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9561 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9562 } |
d6d07b43f6d5
(last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents:
4315
diff
changeset
|
9563 |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
9564 new_head |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
9565 = 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
|
9566 new_click |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
9567 = 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
|
9568 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9569 /* 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
|
9570 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
|
9571 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
|
9572 first_binding |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
9573 = (follow_key (new_click, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
9574 nmaps - local_first_binding, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
9575 submaps + local_first_binding, |
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
9576 defs + local_first_binding, |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
9577 submaps + local_first_binding) |
4600
a4d11a20b724
(kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents:
4558
diff
changeset
|
9578 + local_first_binding); |
3861
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9579 |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9580 /* 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
|
9581 if (first_binding < nmaps) |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9582 { |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9583 key = new_click; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9584 break; |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9585 } |
fc8c92b69513
* keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents:
3809
diff
changeset
|
9586 /* 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
|
9587 } |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9588 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9589 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9590 } |
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
9591 |
518 | 9592 keybuf[t++] = key; |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
9593 /* 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
|
9594 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
|
9595 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
|
9596 event that preceded the first level of menu. */ |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
9597 if (!used_mouse_menu) |
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
9598 last_nonmenu_event = key; |
518 | 9599 |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9600 /* 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
|
9601 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
|
9602 |
45881
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9603 if (first_binding < nmaps && NILP (submaps[first_binding])) |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9604 /* There is a binding and it's not a prefix. |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9605 There is thus no function-key in this sequence. |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9606 Moving fkey.start is important in this case to allow keytran.start |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9607 to go over the sequence before we return (since we keep the |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9608 invariant that keytran.end <= fkey.start). */ |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9609 { |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9610 if (fkey.start < t) |
50994
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
9611 (fkey.start = fkey.end = t, fkey.map = fkey.parent); |
45881
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9612 } |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9613 else |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9614 /* If the sequence is unbound, see if we can hang a function key |
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9615 off the end of it. */ |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9616 /* Continue scan from fkey.end until we find a bound suffix. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9617 while (fkey.end < t) |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
9618 { |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9619 struct gcpro gcpro1, gcpro2, gcpro3; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9620 int done, diff; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9621 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9622 GCPRO3 (fkey.map, keytran.map, delayed_switch_frame); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9623 done = keyremap_step (keybuf, bufsize, &fkey, |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9624 max (t, mock_input), |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9625 /* If there's a binding (i.e. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9626 first_binding >= nmaps) we don't want |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9627 to apply this function-key-mapping. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9628 fkey.end + 1 == t && first_binding >= nmaps, |
50994
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
9629 &diff, prompt); |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9630 UNGCPRO; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9631 if (done) |
4849
5ebf3eec091b
(read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents:
4823
diff
changeset
|
9632 { |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9633 mock_input = diff + max (t, mock_input); |
4255
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
9634 goto replay_sequence; |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
9635 } |
4b65e1ff27b8
(command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents:
4137
diff
changeset
|
9636 } |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9637 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9638 /* Look for this sequence in key-translation-map. |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9639 Scan from keytran.end until we find a bound suffix. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9640 while (keytran.end < fkey.start) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9641 { |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9642 struct gcpro gcpro1, gcpro2, gcpro3; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9643 int done, diff; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9644 |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9645 GCPRO3 (fkey.map, keytran.map, delayed_switch_frame); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9646 done = keyremap_step (keybuf, bufsize, &keytran, max (t, mock_input), |
50994
5461f0256e86
(make_lispy_event): Apply modifiers to multibyte-char keys.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50949
diff
changeset
|
9647 1, &diff, prompt); |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9648 UNGCPRO; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9649 if (done) |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9650 { |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9651 mock_input = diff + max (t, mock_input); |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9652 /* Adjust the function-key-map counters. */ |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9653 fkey.end += diff; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9654 fkey.start += diff; |
54087 | 9655 |
50944
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9656 goto replay_sequence; |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9657 } |
111b4f1da171
(follow_key): Remove dead variable `did_meta'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50941
diff
changeset
|
9658 } |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
9659 |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
9660 /* 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
|
9661 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
|
9662 and is an upper case letter |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
9663 use the corresponding lower-case letter instead. */ |
45881
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9664 if (first_binding >= nmaps |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9665 && fkey.start >= t && keytran.start >= t |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
9666 && INTEGERP (key) |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
9667 && ((((XINT (key) & 0x3ffff) |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
9668 < 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
|
9669 && UPPERCASEP (XINT (key) & 0x3ffff)) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
9670 || (XINT (key) & shift_modifier))) |
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
9671 { |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
9672 Lisp_Object new_key; |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
9673 |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
9674 original_uppercase = key; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
9675 original_uppercase_position = t - 1; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
9676 |
15049
61ee56ae39ef
(read_key_sequence): Fix confusion between key and new_key.
Richard M. Stallman <rms@gnu.org>
parents:
15045
diff
changeset
|
9677 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
|
9678 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
|
9679 else |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
9680 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
|
9681 | (XINT (key) & ~0x3ffff))); |
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
9682 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9683 /* 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
|
9684 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
|
9685 might get translated through function-key-map. */ |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9686 keybuf[t - 1] = new_key; |
45753
402855ebf092
(read_key_sequence):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45751
diff
changeset
|
9687 mock_input = max (t, mock_input); |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9688 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9689 goto replay_sequence; |
8418
d97339356ae6
(follow_key): Don't downcase letters here.
Richard M. Stallman <rms@gnu.org>
parents:
8302
diff
changeset
|
9690 } |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9691 /* 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
|
9692 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
|
9693 and is a shifted function key, |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9694 use the corresponding unshifted function key instead. */ |
45881
5c591efdb3bf
(read_key_sequence): Be more careful with first_unbound.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45803
diff
changeset
|
9695 if (first_binding >= nmaps |
47759
b2674275598d
(keyremap): New struct.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
47643
diff
changeset
|
9696 && fkey.start >= t && keytran.start >= t |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9697 && SYMBOLP (key)) |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9698 { |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9699 Lisp_Object breakdown; |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9700 int modifiers; |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9701 |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9702 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
|
9703 modifiers = XINT (XCAR (XCDR (breakdown))); |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9704 if (modifiers & shift_modifier) |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9705 { |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
9706 Lisp_Object new_key; |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9707 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9708 original_uppercase = key; |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9709 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
|
9710 |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9711 modifiers &= ~shift_modifier; |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
9712 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
|
9713 XCAR (breakdown)); |
12759
dd9049c5c51d
(read_key_sequence): Don't downshift an event
Richard M. Stallman <rms@gnu.org>
parents:
12729
diff
changeset
|
9714 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9715 keybuf[t - 1] = new_key; |
45753
402855ebf092
(read_key_sequence):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
45751
diff
changeset
|
9716 mock_input = max (t, mock_input); |
72325
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
9717 fkey.start = fkey.end = 0; |
387e27f7ac5a
(keyremap_step): No-op if fkey->parent = nil.
Richard M. Stallman <rms@gnu.org>
parents:
72283
diff
changeset
|
9718 keytran.start = keytran.end = 0; |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9719 |
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9720 goto replay_sequence; |
10147
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9721 } |
ab78d1d2f5d7
(read_char): After auto-saving, redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
10070
diff
changeset
|
9722 } |
518 | 9723 } |
9724 | |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
9725 if (!dummyflag) |
9800
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
9726 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
|
9727 ? defs[first_binding] |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
9728 : Qnil); |
476dc2f97d11
(read_key_sequence): Use flags instead of gotos to
Richard M. Stallman <rms@gnu.org>
parents:
9745
diff
changeset
|
9729 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
9730 unread_switch_frame = delayed_switch_frame; |
1515
8cc7bc81d2aa
* keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents:
1449
diff
changeset
|
9731 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
|
9732 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9733 /* 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
|
9734 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
|
9735 if ((dont_downcase_last || first_binding >= nmaps) |
69985
d5629ae481f1
(read_key_sequence): Explicitly avoid keybuf[-1].
Richard M. Stallman <rms@gnu.org>
parents:
69718
diff
changeset
|
9736 && t > 0 |
12800
1086fa1dfb89
(read_key_sequence): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12759
diff
changeset
|
9737 && 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
|
9738 keybuf[t - 1] = original_uppercase; |
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
9739 |
3799
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
9740 /* 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
|
9741 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
|
9742 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
|
9743 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
|
9744 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
|
9745 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
|
9746 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
|
9747 |
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
9748 Better ideas? */ |
3809
0f579c7269a3
* keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents:
3799
diff
changeset
|
9749 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
|
9750 { |
27769
ba420971ea82
Amend last change to check for echo-keystrokes being zero, not nil.
Dave Love <fx@gnu.org>
parents:
27766
diff
changeset
|
9751 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
|
9752 && NILP (Fzerop (Vecho_keystrokes))) |
8076
3a35434b19d2
(safe_run_hooks): Take symbol as arg.
Richard M. Stallman <rms@gnu.org>
parents:
8067
diff
changeset
|
9753 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
|
9754 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
|
9755 } |
3799
1c2303940681
* keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents:
3748
diff
changeset
|
9756 |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
9757 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
9758 |
37689
4fe5b946a4af
(read_key_sequence): Don't modify events when
Gerd Moellmann <gerd@gnu.org>
parents:
37603
diff
changeset
|
9759 UNGCPRO; |
518 | 9760 return t; |
9761 } | |
9762 | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9763 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 5, 0, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9764 doc: /* Read a sequence of keystrokes and return as a string or vector. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9765 The sequence is sufficient to specify a non-prefix command in the |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9766 current local and global maps. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9767 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9768 First arg PROMPT is a prompt string. If nil, do not prompt specially. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9769 Second (optional) arg CONTINUE-ECHO, if non-nil, means this key echos |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9770 as a continuation of the previous key. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9771 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9772 The third (optional) arg DONT-DOWNCASE-LAST, if non-nil, means do not |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9773 convert the last event to lower case. (Normally any upper case event |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9774 is converted to lower case if the original event is undefined and the lower |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9775 case equivalent is defined.) A non-nil value is appropriate for reading |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9776 a key sequence to be defined. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9777 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9778 A C-g typed while in this function is treated like any other character, |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9779 and `quit-flag' is not set. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9780 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9781 If the key sequence starts with a mouse click, then the sequence is read |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9782 using the keymaps of the buffer of the window clicked in, not the buffer |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9783 of the selected window as normal. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9784 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9785 `read-key-sequence' drops unbound button-down events, since you normally |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9786 only care about the click or drag events which follow them. If a drag |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9787 or multi-click event is unbound, but the corresponding click event would |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9788 be bound, `read-key-sequence' turns the event into a click event at the |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9789 drag's starting position. This means that you don't have to distinguish |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9790 between click and drag, double, or triple events unless you want to. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9791 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9792 `read-key-sequence' prefixes mouse events on mode lines, the vertical |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9793 lines separating windows, and scroll bars with imaginary keys |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9794 `mode-line', `vertical-line', and `vertical-scroll-bar'. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9795 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9796 Optional fourth argument CAN-RETURN-SWITCH-FRAME non-nil means that this |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9797 function will process a switch-frame event if the user switches frames |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9798 before typing anything. If the user switches frames in the middle of a |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9799 key sequence, or at the start of the sequence but CAN-RETURN-SWITCH-FRAME |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9800 is nil, then the event will be put off until after the current key sequence. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9801 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9802 `read-key-sequence' checks `function-key-map' for function key |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9803 sequences, where they wouldn't conflict with ordinary bindings. See |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9804 `function-key-map' for more details. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9805 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9806 The optional fifth argument COMMAND-LOOP, if non-nil, means |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9807 that this key sequence is being read by something that will |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9808 read commands one after another. It should be nil if the caller |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9809 will read just one key sequence. */) |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9810 (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
|
9811 command_loop) |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
9812 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
|
9813 Lisp_Object can_return_switch_frame, command_loop; |
518 | 9814 { |
9815 Lisp_Object keybuf[30]; | |
9816 register int i; | |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
9817 struct gcpro gcpro1; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
9818 int count = SPECPDL_INDEX (); |
518 | 9819 |
9820 if (!NILP (prompt)) | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40548
diff
changeset
|
9821 CHECK_STRING (prompt); |
518 | 9822 QUIT; |
9823 | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9824 specbind (Qinput_method_exit_on_first_char, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9825 (NILP (command_loop) ? Qt : Qnil)); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9826 specbind (Qinput_method_use_echo_area, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9827 (NILP (command_loop) ? Qt : Qnil)); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9828 |
518 | 9829 bzero (keybuf, sizeof keybuf); |
9830 GCPRO1 (keybuf[0]); | |
9831 gcpro1.nvars = (sizeof keybuf/sizeof (keybuf[0])); | |
9832 | |
727 | 9833 if (NILP (continue_echo)) |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9834 { |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9835 this_command_key_count = 0; |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
9836 this_command_key_count_reset = 0; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9837 this_single_command_key_start = 0; |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
9838 } |
691
cae8c3ef1677
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
687
diff
changeset
|
9839 |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9840 #ifdef HAVE_X_WINDOWS |
36255
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
9841 if (display_hourglass_p) |
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
9842 cancel_hourglass (); |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9843 #endif |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9844 |
10539
ffef84d4d8a8
(read_key_sequence): New arg dont_downcase_last
Richard M. Stallman <rms@gnu.org>
parents:
10533
diff
changeset
|
9845 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
|
9846 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
|
9847 ! NILP (can_return_switch_frame), 0); |
518 | 9848 |
34174
f3a177a97f12
(Fread_key_sequence): Don't start the busy cursor
Gerd Moellmann <gerd@gnu.org>
parents:
34164
diff
changeset
|
9849 #if 0 /* The following is fine for code reading a key sequence and |
43024 | 9850 then proceeding with a lenghty computation, but it's not good |
34174
f3a177a97f12
(Fread_key_sequence): Don't start the busy cursor
Gerd Moellmann <gerd@gnu.org>
parents:
34164
diff
changeset
|
9851 for code reading keys in a loop, like an input method. */ |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9852 #ifdef HAVE_X_WINDOWS |
36255
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
9853 if (display_hourglass_p) |
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
9854 start_hourglass (); |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9855 #endif |
34174
f3a177a97f12
(Fread_key_sequence): Don't start the busy cursor
Gerd Moellmann <gerd@gnu.org>
parents:
34164
diff
changeset
|
9856 #endif |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9857 |
4106
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
9858 if (i == -1) |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
9859 { |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
9860 Vquit_flag = Qt; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
9861 QUIT; |
bfc21ea9a00f
(read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents:
4097
diff
changeset
|
9862 } |
518 | 9863 UNGCPRO; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9864 return unbind_to (count, make_event_array (i, keybuf)); |
518 | 9865 } |
21024 | 9866 |
9867 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
|
9868 Sread_key_sequence_vector, 1, 5, 0, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9869 doc: /* Like `read-key-sequence' but always return a vector. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9870 (prompt, continue_echo, dont_downcase_last, can_return_switch_frame, |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9871 command_loop) |
21024 | 9872 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
|
9873 Lisp_Object can_return_switch_frame, command_loop; |
21024 | 9874 { |
9875 Lisp_Object keybuf[30]; | |
9876 register int i; | |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
9877 struct gcpro gcpro1; |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
9878 int count = SPECPDL_INDEX (); |
21024 | 9879 |
9880 if (!NILP (prompt)) | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40548
diff
changeset
|
9881 CHECK_STRING (prompt); |
21024 | 9882 QUIT; |
9883 | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9884 specbind (Qinput_method_exit_on_first_char, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9885 (NILP (command_loop) ? Qt : Qnil)); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9886 specbind (Qinput_method_use_echo_area, |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9887 (NILP (command_loop) ? Qt : Qnil)); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9888 |
21024 | 9889 bzero (keybuf, sizeof keybuf); |
9890 GCPRO1 (keybuf[0]); | |
9891 gcpro1.nvars = (sizeof keybuf/sizeof (keybuf[0])); | |
9892 | |
9893 if (NILP (continue_echo)) | |
9894 { | |
9895 this_command_key_count = 0; | |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
9896 this_command_key_count_reset = 0; |
21024 | 9897 this_single_command_key_start = 0; |
9898 } | |
9899 | |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9900 #ifdef HAVE_X_WINDOWS |
36255
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
9901 if (display_hourglass_p) |
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
9902 cancel_hourglass (); |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9903 #endif |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9904 |
21024 | 9905 i = read_key_sequence (keybuf, (sizeof keybuf/sizeof (keybuf[0])), |
9906 prompt, ! NILP (dont_downcase_last), | |
9907 ! NILP (can_return_switch_frame), 0); | |
9908 | |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9909 #ifdef HAVE_X_WINDOWS |
36255
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
9910 if (display_hourglass_p) |
1890bad59762
Use display_hourglass_p, start_hourglass,
Gerd Moellmann <gerd@gnu.org>
parents:
36238
diff
changeset
|
9911 start_hourglass (); |
27862
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9912 #endif |
03d8d5f30d54
(command_loop_1): Call start_busy_cursor before
Gerd Moellmann <gerd@gnu.org>
parents:
27769
diff
changeset
|
9913 |
21024 | 9914 if (i == -1) |
9915 { | |
9916 Vquit_flag = Qt; | |
9917 QUIT; | |
9918 } | |
9919 UNGCPRO; | |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
9920 return unbind_to (count, Fvector (i, keybuf)); |
21024 | 9921 } |
518 | 9922 |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9923 DEFUN ("command-execute", Fcommand_execute, Scommand_execute, 1, 4, 0, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9924 doc: /* Execute CMD as an editor command. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9925 CMD must be a symbol that satisfies the `commandp' predicate. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9926 Optional second arg RECORD-FLAG non-nil |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9927 means unconditionally put this command in `command-history'. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9928 Otherwise, that is done only if an arg is read using the minibuffer. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9929 The argument KEYS specifies the value to use instead of (this-command-keys) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9930 when reading the arguments; if it is nil, (this-command-keys) is used. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9931 The argument SPECIAL, if non-nil, means that this command is executing |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
9932 a special event, so ignore the prefix argument and don't clear it. */) |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9933 (cmd, record_flag, keys, special) |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9934 Lisp_Object cmd, record_flag, keys, special; |
518 | 9935 { |
9936 register Lisp_Object final; | |
9937 register Lisp_Object tem; | |
9938 Lisp_Object prefixarg; | |
9939 struct backtrace backtrace; | |
9940 extern int debug_on_next_call; | |
9941 | |
9942 debug_on_next_call = 0; | |
9943 | |
14695
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9944 if (NILP (special)) |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9945 { |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9946 prefixarg = current_kboard->Vprefix_arg; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9947 Vcurrent_prefix_arg = prefixarg; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9948 current_kboard->Vprefix_arg = Qnil; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9949 } |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9950 else |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9951 prefixarg = Qnil; |
c62f7ff56c40
(Fcommand_execute): New arg SPECIAL. All callers changed.
Richard M. Stallman <rms@gnu.org>
parents:
14666
diff
changeset
|
9952 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
9953 if (SYMBOLP (cmd)) |
518 | 9954 { |
9955 tem = Fget (cmd, Qdisabled); | |
6208
db4139d43f8a
(command_loop_1, read_key_sequence, Fcommand_execute):
Richard M. Stallman <rms@gnu.org>
parents:
6204
diff
changeset
|
9956 if (!NILP (tem) && !NILP (Vrun_hooks)) |
12979
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
9957 { |
56624
05bc08d74392
Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56609
diff
changeset
|
9958 tem = Fsymbol_value (Qdisabled_command_function); |
12979
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
9959 if (!NILP (tem)) |
56624
05bc08d74392
Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56609
diff
changeset
|
9960 return call1 (Vrun_hooks, Qdisabled_command_function); |
12979
15f32c044bb8
(Fcommand_execute): Ignore `disabled' property on
Richard M. Stallman <rms@gnu.org>
parents:
12946
diff
changeset
|
9961 } |
518 | 9962 } |
9963 | |
13842
7d0b87f737f9
(Fcommand_execute): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents:
13770
diff
changeset
|
9964 while (1) |
518 | 9965 { |
68758
13c1b7c5f555
* data.c (Findirect_function): Add NOERROR arg. All callers changed
Kim F. Storm <storm@cua.dk>
parents:
68651
diff
changeset
|
9966 final = Findirect_function (cmd, Qnil); |
518 | 9967 |
9968 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
|
9969 { |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
9970 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
|
9971 |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
9972 GCPRO2 (cmd, prefixarg); |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
9973 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
|
9974 UNGCPRO; |
198c6c2846ae
(Fcommand_execute): gcpro cmd and prefixarg while calling do_autoload.
Richard M. Stallman <rms@gnu.org>
parents:
16107
diff
changeset
|
9975 } |
518 | 9976 else |
9977 break; | |
9978 } | |
9979 | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
9980 if (STRINGP (final) || VECTORP (final)) |
518 | 9981 { |
9982 /* If requested, place the macro in the command history. For | |
9983 other sorts of commands, call-interactively takes care of | |
9984 this. */ | |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
9985 if (!NILP (record_flag)) |
21726
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9986 { |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9987 Vcommand_history |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9988 = Fcons (Fcons (Qexecute_kbd_macro, |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9989 Fcons (final, Fcons (prefixarg, Qnil))), |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9990 Vcommand_history); |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9991 |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9992 /* Don't keep command history around forever. */ |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9993 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
|
9994 { |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9995 tem = Fnthcdr (Vhistory_length, Vcommand_history); |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9996 if (CONSP (tem)) |
39973
579177964efa
Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents:
39920
diff
changeset
|
9997 XSETCDR (tem, Qnil); |
21726
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9998 } |
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
9999 } |
518 | 10000 |
46885
9da9bb6c4d21
(Fcommand_execute): Update call to Fexecute_kbd_macro.
Kim F. Storm <storm@cua.dk>
parents:
46854
diff
changeset
|
10001 return Fexecute_kbd_macro (final, prefixarg, Qnil); |
518 | 10002 } |
21726
1771dc61b028
(Fcommand_execute): Truncate command-history here.
Richard M. Stallman <rms@gnu.org>
parents:
21527
diff
changeset
|
10003 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
10004 if (CONSP (final) || SUBRP (final) || COMPILEDP (final)) |
518 | 10005 { |
10006 backtrace.next = backtrace_list; | |
10007 backtrace_list = &backtrace; | |
10008 backtrace.function = &Qcall_interactively; | |
10009 backtrace.args = &cmd; | |
10010 backtrace.nargs = 1; | |
10011 backtrace.evalargs = 0; | |
55721
b0b446f1087b
(struct backtrace): Add debug_on_exit member.
Kim F. Storm <storm@cua.dk>
parents:
55659
diff
changeset
|
10012 backtrace.debug_on_exit = 0; |
518 | 10013 |
14079
2464cc0b5b3e
(Fevent_convert_list, Fcommand_execute): Harmonize arguments with
Erik Naggum <erik@naggum.no>
parents:
14036
diff
changeset
|
10014 tem = Fcall_interactively (cmd, record_flag, keys); |
518 | 10015 |
10016 backtrace_list = backtrace.next; | |
10017 return tem; | |
10018 } | |
10019 return Qnil; | |
10020 } | |
35171
bc4b6bd7103e
(Fexecute_extended_command): Use a
Gerd Moellmann <gerd@gnu.org>
parents:
35117
diff
changeset
|
10021 |
bc4b6bd7103e
(Fexecute_extended_command): Use a
Gerd Moellmann <gerd@gnu.org>
parents:
35117
diff
changeset
|
10022 |
518 | 10023 |
10024 DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10025 1, 1, "P", |
71670
3cd05625d982
(Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
70380
diff
changeset
|
10026 doc: /* Read function name, then read its arguments and call it. |
3cd05625d982
(Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
70380
diff
changeset
|
10027 |
3cd05625d982
(Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
70380
diff
changeset
|
10028 To pass a numeric argument to the command you are invoking with, specify |
3cd05625d982
(Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
70380
diff
changeset
|
10029 the numeric argument to this command. |
3cd05625d982
(Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
70380
diff
changeset
|
10030 |
3cd05625d982
(Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
70380
diff
changeset
|
10031 Noninteractively, the argument PREFIXARG is the prefix argument to |
3cd05625d982
(Fexecute_extended_command): Mention the argument PREFIXARG in the doc string.
Eli Zaretskii <eliz@gnu.org>
parents:
70380
diff
changeset
|
10032 give to the command you invoke, if it asks for an argument. */) |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10033 (prefixarg) |
518 | 10034 Lisp_Object prefixarg; |
10035 { | |
10036 Lisp_Object function; | |
10037 char buf[40]; | |
44523
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
10038 int saved_last_point_position; |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
10039 Lisp_Object saved_keys, saved_last_point_position_buffer; |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10040 Lisp_Object bindings, value; |
44523
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
10041 struct gcpro gcpro1, gcpro2, gcpro3; |
60556
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10042 #ifdef HAVE_X_WINDOWS |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10043 /* The call to Fcompleting_read wil start and cancel the hourglass, |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10044 but if the hourglass was already scheduled, this means that no |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10045 hourglass will be shown for the actual M-x command itself. |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10046 So we restart it if it is already scheduled. Note that checking |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10047 hourglass_shown_p is not enough, normally the hourglass is not shown, |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10048 just scheduled to be shown. */ |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10049 int hstarted = hourglass_started (); |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10050 #endif |
518 | 10051 |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
10052 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
|
10053 XVECTOR (this_command_keys)->contents); |
44523
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
10054 saved_last_point_position_buffer = last_point_position_buffer; |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
10055 saved_last_point_position = last_point_position; |
518 | 10056 buf[0] = 0; |
44523
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
10057 GCPRO3 (saved_keys, prefixarg, saved_last_point_position_buffer); |
518 | 10058 |
10059 if (EQ (prefixarg, Qminus)) | |
10060 strcpy (buf, "- "); | |
26164
d39ec0a27081
more XCAR/XCDR/XFLOAT_DATA uses, to help isolete lisp engine
Ken Raeburn <raeburn@raeburn.org>
parents:
26088
diff
changeset
|
10061 else if (CONSP (prefixarg) && XINT (XCAR (prefixarg)) == 4) |
518 | 10062 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
|
10063 else if (CONSP (prefixarg) && INTEGERP (XCAR (prefixarg))) |
56070
343ad07ce78b
(cancel_hourglass_unwind): Return a value.
Andreas Schwab <schwab@suse.de>
parents:
56023
diff
changeset
|
10064 sprintf (buf, "%ld ", (long) XINT (XCAR (prefixarg))); |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
10065 else if (INTEGERP (prefixarg)) |
56070
343ad07ce78b
(cancel_hourglass_unwind): Return a value.
Andreas Schwab <schwab@suse.de>
parents:
56023
diff
changeset
|
10066 sprintf (buf, "%ld ", (long) XINT (prefixarg)); |
518 | 10067 |
10068 /* This isn't strictly correct if execute-extended-command | |
10069 is bound to anything else. Perhaps it should use | |
10070 this_command_keys? */ | |
10071 strcat (buf, "M-x "); | |
10072 | |
10073 /* Prompt with buf, and then read a string, completing from and | |
10074 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
|
10075 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
|
10076 history list. */ |
518 | 10077 function = Fcompleting_read (build_string (buf), |
10078 Vobarray, Qcommandp, | |
19549
e1b1dcf77ac1
(Fexecute_extended_command): Call Fread_from_minibuffer
Kenichi Handa <handa@m17n.org>
parents:
18944
diff
changeset
|
10079 Qt, Qnil, Qextended_command_history, Qnil, |
e1b1dcf77ac1
(Fexecute_extended_command): Call Fread_from_minibuffer
Kenichi Handa <handa@m17n.org>
parents:
18944
diff
changeset
|
10080 Qnil); |
518 | 10081 |
60556
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10082 #ifdef HAVE_X_WINDOWS |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10083 if (hstarted) start_hourglass (); |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10084 #endif |
5aa4c4b8de08
* keyboard.c (Fexecute_extended_command): Restart hourglass
Jan Djärv <jan.h.d@swipnet.se>
parents:
60419
diff
changeset
|
10085 |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
10086 if (STRINGP (function) && SCHARS (function) == 0) |
13864
8389738a7792
(read_char_x_menu_prompt): HAVE_X_MENU renamed to HAVE_MENUS.
Richard M. Stallman <rms@gnu.org>
parents:
13842
diff
changeset
|
10087 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
|
10088 |
708 | 10089 /* Set this_command_keys to the concatenation of saved_keys and |
10090 function, followed by a RET. */ | |
518 | 10091 { |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
10092 Lisp_Object *keys; |
518 | 10093 int i; |
10094 | |
708 | 10095 this_command_key_count = 0; |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10096 this_command_key_count_reset = 0; |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
10097 this_single_command_key_start = 0; |
708 | 10098 |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
10099 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
|
10100 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
|
10101 add_command_key (keys[i]); |
708 | 10102 |
46451
906a7d7104f8
(echo_char, parse_modifiers_uncached, parse_solitary_modifier,
Ken Raeburn <raeburn@raeburn.org>
parents:
46427
diff
changeset
|
10103 for (i = 0; i < SCHARS (function); i++) |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
10104 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
|
10105 |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
10106 add_command_key (make_number ('\015')); |
518 | 10107 } |
10108 | |
44523
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
10109 last_point_position = saved_last_point_position; |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
10110 last_point_position_buffer = saved_last_point_position_buffer; |
5fb0858a11da
(command_loop_1): Turn off transient-mark-mode rather
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44358
diff
changeset
|
10111 |
518 | 10112 UNGCPRO; |
10113 | |
1328
c4eb3aa71303
* keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents:
1322
diff
changeset
|
10114 function = Fintern (function, Qnil); |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
10115 current_kboard->Vprefix_arg = prefixarg; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10116 Vthis_command = function; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
10117 real_this_command = function; |
518 | 10118 |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10119 /* If enabled, show which key runs this command. */ |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10120 if (!NILP (Vsuggest_key_bindings) |
61982
237065917c73
Change Vexecuting_macro to Vexecuting_kbd_macro.
Richard M. Stallman <rms@gnu.org>
parents:
61499
diff
changeset
|
10121 && NILP (Vexecuting_kbd_macro) |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10122 && SYMBOLP (function)) |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10123 bindings = Fwhere_is_internal (function, Voverriding_local_map, |
43154
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
10124 Qt, Qnil, Qnil); |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10125 else |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10126 bindings = Qnil; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10127 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10128 value = Qnil; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10129 GCPRO2 (bindings, value); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10130 value = Fcommand_execute (function, Qt, Qnil, Qnil); |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10131 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10132 /* 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
|
10133 if (!NILP (bindings) |
20431
01f1baff05d3
(Fexecute_extended_command): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
20380
diff
changeset
|
10134 && ! (VECTORP (bindings) && EQ (Faref (bindings, make_number (0)), |
01f1baff05d3
(Fexecute_extended_command): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
20380
diff
changeset
|
10135 Qmouse_movement))) |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10136 { |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10137 /* But first wait, and skip the message if there is input. */ |
71761
1055c0769159
* puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents:
71670
diff
changeset
|
10138 Lisp_Object waited; |
1055c0769159
* puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents:
71670
diff
changeset
|
10139 |
71798
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
10140 /* If this command displayed something in the echo area; |
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
10141 wait a few seconds, then display our suggestion message. */ |
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
10142 if (NILP (echo_area_buffer[0])) |
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
10143 waited = sit_for (make_number (0), 0, 2); |
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
10144 else if (NUMBERP (Vsuggest_key_bindings)) |
73318
e876a1f62fec
* dispnew.c (sit_for): Sit forever if TIMEOUT is t.
Chong Yidong <cyd@stupidchicken.com>
parents:
72889
diff
changeset
|
10145 waited = sit_for (Vsuggest_key_bindings, 0, 2); |
22835
1cda5e4bddba
(Fexecute_extended_command):
Richard M. Stallman <rms@gnu.org>
parents:
22833
diff
changeset
|
10146 else |
71798
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
10147 waited = sit_for (make_number (2), 0, 2); |
71761
1055c0769159
* puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents:
71670
diff
changeset
|
10148 |
1055c0769159
* puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents:
71670
diff
changeset
|
10149 if (!NILP (waited) && ! CONSP (Vunread_command_events)) |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10150 { |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10151 Lisp_Object binding; |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10152 char *newmessage; |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
10153 int message_p = push_message (); |
46285
3f111801efb4
Rename BINDING_STACK_SIZE to SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46181
diff
changeset
|
10154 int count = SPECPDL_INDEX (); |
35171
bc4b6bd7103e
(Fexecute_extended_command): Use a
Gerd Moellmann <gerd@gnu.org>
parents:
35117
diff
changeset
|
10155 |
47392
734e6dc4caf1
(Fexecute_extended_command): Use pop_message_unwind.
Richard M. Stallman <rms@gnu.org>
parents:
47347
diff
changeset
|
10156 record_unwind_protect (pop_message_unwind, Qnil); |
54927
7b6b4d9ae726
(Fkey_description): Change callers.
Kim F. Storm <storm@cua.dk>
parents:
54181
diff
changeset
|
10157 binding = Fkey_description (bindings, Qnil); |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10158 |
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10159 newmessage |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
10160 = (char *) alloca (SCHARS (SYMBOL_NAME (function)) |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
10161 + SBYTES (binding) |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10162 + 100); |
20270
3f3e7319341a
(Fexecute_extended_command): Fix message wording.
Karl Heuer <kwzh@gnu.org>
parents:
19947
diff
changeset
|
10163 sprintf (newmessage, "You can run the command `%s' with %s", |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
10164 SDATA (SYMBOL_NAME (function)), |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
10165 SDATA (binding)); |
20623
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
10166 message2_nolog (newmessage, |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
10167 strlen (newmessage), |
b4f792fd5e50
(echo_now): Use message2_nolog, not message1_nolog.
Richard M. Stallman <rms@gnu.org>
parents:
20539
diff
changeset
|
10168 STRING_MULTIBYTE (binding)); |
71761
1055c0769159
* puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents:
71670
diff
changeset
|
10169 if (NUMBERP (Vsuggest_key_bindings)) |
71798
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
10170 waited = sit_for (Vsuggest_key_bindings, 0, 2); |
71761
1055c0769159
* puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents:
71670
diff
changeset
|
10171 else |
71798
c4b76264d4ec
(command_loop_1, read_char, Fexecute_extended_command):
Kim F. Storm <storm@cua.dk>
parents:
71761
diff
changeset
|
10172 waited = sit_for (make_number (2), 0, 2); |
71761
1055c0769159
* puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents:
71670
diff
changeset
|
10173 |
1055c0769159
* puresize.h (BASE_PURESIZE): Increment to 1211000.
Chong Yidong <cyd@stupidchicken.com>
parents:
71670
diff
changeset
|
10174 if (!NILP (waited) && message_p) |
25352
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
10175 restore_message (); |
9d8bd4841e77
Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents:
25116
diff
changeset
|
10176 |
35171
bc4b6bd7103e
(Fexecute_extended_command): Use a
Gerd Moellmann <gerd@gnu.org>
parents:
35117
diff
changeset
|
10177 unbind_to (count, Qnil); |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10178 } |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10179 } |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10180 |
16166
05e71f2b317e
(Fexecute_extended_command): Delete junk lines.
Richard M. Stallman <rms@gnu.org>
parents:
16115
diff
changeset
|
10181 RETURN_UNGCPRO (value); |
518 | 10182 } |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
10183 |
518 | 10184 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10185 /* Return nonzero if input events are pending. */ |
518 | 10186 |
21514 | 10187 int |
518 | 10188 detect_input_pending () |
10189 { | |
10190 if (!input_pending) | |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10191 get_input_pending (&input_pending, 0); |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10192 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10193 return input_pending; |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10194 } |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10195 |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10196 /* Return nonzero if input events other than mouse movements are |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10197 pending. */ |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10198 |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10199 int |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10200 detect_input_pending_ignore_squeezables () |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10201 { |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10202 if (!input_pending) |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10203 get_input_pending (&input_pending, READABLE_EVENTS_IGNORE_SQUEEZABLES); |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10204 |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10205 return input_pending; |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10206 } |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10207 |
16017
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
10208 /* 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
|
10209 |
21514 | 10210 int |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
10211 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
|
10212 int do_display; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10213 { |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
10214 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
|
10215 |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10216 if (!input_pending) |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10217 get_input_pending (&input_pending, READABLE_EVENTS_DO_TIMERS_NOW); |
518 | 10218 |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
10219 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
|
10220 { |
35336
002c02db42d3
Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents:
35255
diff
changeset
|
10221 redisplay_preserve_echo_area (8); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10222 /* 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
|
10223 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
|
10224 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
|
10225 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
|
10226 event is processed. --gerd. */ |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10227 if (rif) |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10228 rif->flush_display (NULL); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10229 } |
14773
045d60026d13
(timers_run): New variable, incremented when a timer is
Richard M. Stallman <rms@gnu.org>
parents:
14710
diff
changeset
|
10230 |
518 | 10231 return input_pending; |
10232 } | |
10233 | |
648 | 10234 /* This is called in some cases before a possible quit. |
10235 It cases the next call to detect_input_pending to recompute input_pending. | |
10236 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
|
10237 |
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
10238 void |
648 | 10239 clear_input_pending () |
10240 { | |
10241 input_pending = 0; | |
10242 } | |
10243 | |
16017
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
10244 /* Return nonzero if there are pending requeued events. |
56729
e6e0caa7ec87
Rename wait_reading_process_input to wait_reading_process_output.
Kim F. Storm <storm@cua.dk>
parents:
56717
diff
changeset
|
10245 This isn't used yet. The hope is to make wait_reading_process_output |
44135 | 10246 call it, and return if it runs Lisp code that unreads something. |
16017
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
10247 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
|
10248 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
|
10249 |
21514 | 10250 int |
16017
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
10251 requeued_events_pending_p () |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
10252 { |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
10253 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
|
10254 } |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
10255 |
96edeb283515
(requeued_events_pending_p): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15982
diff
changeset
|
10256 |
518 | 10257 DEFUN ("input-pending-p", Finput_pending_p, Sinput_pending_p, 0, 0, 0, |
40522
dcd6a276da0d
(Finput_pending_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
40452
diff
changeset
|
10258 doc: /* Return t if command input is currently available with no wait. |
dcd6a276da0d
(Finput_pending_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
40452
diff
changeset
|
10259 Actually, the value is nil only if we can be sure that no input is available; |
dcd6a276da0d
(Finput_pending_p): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
40452
diff
changeset
|
10260 if there is a doubt, the value is t. */) |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10261 () |
518 | 10262 { |
72790
16c08056334a
(Finput_pending_p): Check Vunread_input_method_events
Kim F. Storm <storm@cua.dk>
parents:
72540
diff
changeset
|
10263 if (!NILP (Vunread_command_events) || unread_command_char != -1 |
16c08056334a
(Finput_pending_p): Check Vunread_input_method_events
Kim F. Storm <storm@cua.dk>
parents:
72540
diff
changeset
|
10264 || !NILP (Vunread_post_input_method_events) |
16c08056334a
(Finput_pending_p): Check Vunread_input_method_events
Kim F. Storm <storm@cua.dk>
parents:
72540
diff
changeset
|
10265 || !NILP (Vunread_input_method_events)) |
518 | 10266 return (Qt); |
10267 | |
59580
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10268 get_input_pending (&input_pending, |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10269 READABLE_EVENTS_DO_TIMERS_NOW |
f43d0816e9c3
* keyboard.c (READABLE_EVENTS_DO_TIMERS_NOW)
Jan Djärv <jan.h.d@swipnet.se>
parents:
59543
diff
changeset
|
10270 | READABLE_EVENTS_FILTER_EVENTS); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
10271 return input_pending > 0 ? Qt : Qnil; |
518 | 10272 } |
10273 | |
10274 DEFUN ("recent-keys", Frecent_keys, Srecent_keys, 0, 0, 0, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10275 doc: /* Return vector of last 100 events, not counting those from keyboard macros. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10276 () |
518 | 10277 { |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
10278 Lisp_Object *keys = XVECTOR (recent_keys)->contents; |
518 | 10279 Lisp_Object val; |
10280 | |
10281 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
|
10282 return Fvector (total_keys, keys); |
518 | 10283 else |
10284 { | |
1261
60b30565326c
* keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents:
1239
diff
changeset
|
10285 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
|
10286 bcopy (keys + recent_keys_index, |
518 | 10287 XVECTOR (val)->contents, |
10288 (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
|
10289 bcopy (keys, |
518 | 10290 XVECTOR (val)->contents + NUM_RECENT_KEYS - recent_keys_index, |
10291 recent_keys_index * sizeof (Lisp_Object)); | |
10292 return val; | |
10293 } | |
10294 } | |
10295 | |
10296 DEFUN ("this-command-keys", Fthis_command_keys, Sthis_command_keys, 0, 0, 0, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10297 doc: /* Return the key sequence that invoked this command. |
43271
a8329a91e9b5
(Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents:
43154
diff
changeset
|
10298 However, if the command has called `read-key-sequence', it returns |
45316
d47193939dda
(Fthis_command_keys, Fthis_command_keys_vector): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
45310
diff
changeset
|
10299 the last key sequence that has been read. |
75434
c686b42fabf5
(Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
75407
diff
changeset
|
10300 The value is a string or a vector. |
c686b42fabf5
(Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
75407
diff
changeset
|
10301 |
c686b42fabf5
(Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
75407
diff
changeset
|
10302 See also `this-command-keys-vector'. */) |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10303 () |
518 | 10304 { |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
10305 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
|
10306 XVECTOR (this_command_keys)->contents); |
518 | 10307 } |
10308 | |
21024 | 10309 DEFUN ("this-command-keys-vector", Fthis_command_keys_vector, Sthis_command_keys_vector, 0, 0, 0, |
43271
a8329a91e9b5
(Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents:
43154
diff
changeset
|
10310 doc: /* Return the key sequence that invoked this command, as a vector. |
a8329a91e9b5
(Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents:
43154
diff
changeset
|
10311 However, if the command has called `read-key-sequence', it returns |
75434
c686b42fabf5
(Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
75407
diff
changeset
|
10312 the last key sequence that has been read. |
c686b42fabf5
(Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
75407
diff
changeset
|
10313 |
c686b42fabf5
(Fthis_command_keys, Fthis_command_keys_vector): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents:
75407
diff
changeset
|
10314 See also `this-command-keys'. */) |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10315 () |
21024 | 10316 { |
10317 return Fvector (this_command_key_count, | |
10318 XVECTOR (this_command_keys)->contents); | |
10319 } | |
10320 | |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
10321 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
|
10322 Sthis_single_command_keys, 0, 0, 0, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10323 doc: /* Return the key sequence that invoked this command. |
43271
a8329a91e9b5
(Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents:
43154
diff
changeset
|
10324 More generally, it returns the last key sequence read, either by |
a8329a91e9b5
(Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents:
43154
diff
changeset
|
10325 the command loop or by `read-key-sequence'. |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10326 Unlike `this-command-keys', this function's value |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10327 does not include prefix arguments. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10328 The value is always a vector. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10329 () |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
10330 { |
21024 | 10331 return Fvector (this_command_key_count |
10332 - this_single_command_key_start, | |
10333 (XVECTOR (this_command_keys)->contents | |
10334 + this_single_command_key_start)); | |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
10335 } |
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
10336 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10337 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
|
10338 Sthis_single_command_raw_keys, 0, 0, 0, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10339 doc: /* Return the raw events that were read for this command. |
43271
a8329a91e9b5
(Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents:
43154
diff
changeset
|
10340 More generally, it returns the last key sequence read, either by |
a8329a91e9b5
(Fthis_command_keys, Fthis_command_keys_vector)
Richard M. Stallman <rms@gnu.org>
parents:
43154
diff
changeset
|
10341 the command loop or by `read-key-sequence'. |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10342 Unlike `this-single-command-keys', this function's value |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10343 shows the events before all translations (except for input methods). |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10344 The value is always a vector. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10345 () |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10346 { |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10347 return Fvector (raw_keybuf_count, |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10348 (XVECTOR (raw_keybuf)->contents)); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10349 } |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
10350 |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
10351 DEFUN ("reset-this-command-lengths", Freset_this_command_lengths, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10352 Sreset_this_command_lengths, 0, 0, 0, |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10353 doc: /* Make the unread events replace the last command and echo. |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10354 Used in `universal-argument-other-key'. |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10355 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10356 `universal-argument-other-key' rereads the event just typed. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10357 It then gets translated through `function-key-map'. |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10358 The translated event has to replace the real events, |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10359 both in the value of (this-command-keys) and in echoing. |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10360 To achieve this, `universal-argument-other-key' calls |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10361 `reset-this-command-lengths', which discards the record of reading |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10362 these events the first time. */) |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10363 () |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
10364 { |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
10365 this_command_key_count = before_command_key_count; |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
10366 if (this_command_key_count < this_single_command_key_start) |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
10367 this_single_command_key_start = this_command_key_count; |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10368 |
49593
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
10369 echo_truncate (before_command_echo_length); |
267143d204cf
(echo_now): Update before_command_echo_length.
Richard M. Stallman <rms@gnu.org>
parents:
49581
diff
changeset
|
10370 |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10371 /* Cause whatever we put into unread-command-events |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10372 to echo as if it were being freshly read from the keyboard. */ |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10373 this_command_key_count_reset = 1; |
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10374 |
23047
fc5f85abc044
(Freset_this_command_lengths): Return nil.
Richard M. Stallman <rms@gnu.org>
parents:
22989
diff
changeset
|
10375 return Qnil; |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
10376 } |
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
10377 |
23439
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
10378 DEFUN ("clear-this-command-keys", Fclear_this_command_keys, |
46947
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10379 Sclear_this_command_keys, 0, 1, 0, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10380 doc: /* Clear out the vector that `this-command-keys' returns. |
46947
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10381 Also clear the record of the last 100 events, unless optional arg |
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10382 KEEP-RECORD is non-nil. */) |
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10383 (keep_record) |
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10384 Lisp_Object keep_record; |
23439
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
10385 { |
27274
8ef20d572a68
(Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents:
26863
diff
changeset
|
10386 int i; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
10387 |
23439
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
10388 this_command_key_count = 0; |
49819
33f214d51e1f
(this_command_key_count_reset): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
49757
diff
changeset
|
10389 this_command_key_count_reset = 0; |
27274
8ef20d572a68
(Fclear_this_command_keys): Clear recent_keys
Gerd Moellmann <gerd@gnu.org>
parents:
26863
diff
changeset
|
10390 |
46947
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10391 if (NILP (keep_record)) |
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10392 { |
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10393 for (i = 0; i < XVECTOR (recent_keys)->size; ++i) |
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10394 XVECTOR (recent_keys)->contents[i] = Qnil; |
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10395 total_keys = 0; |
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10396 recent_keys_index = 0; |
775e763fdaf2
(Fclear_this_command_keys): Added optional arg
Kim F. Storm <storm@cua.dk>
parents:
46885
diff
changeset
|
10397 } |
23439
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
10398 return Qnil; |
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
10399 } |
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
10400 |
518 | 10401 DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10402 doc: /* Return the current depth in recursive edits. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10403 () |
518 | 10404 { |
10405 Lisp_Object temp; | |
9311
6e40f49dc6fb
(read_char, make_lispy_event, make_lispy_movement, parse_modifiers,
Karl Heuer <kwzh@gnu.org>
parents:
9272
diff
changeset
|
10406 XSETFASTINT (temp, command_loop_level + minibuf_level); |
518 | 10407 return temp; |
10408 } | |
10409 | |
10410 DEFUN ("open-dribble-file", Fopen_dribble_file, Sopen_dribble_file, 1, 1, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10411 "FOpen dribble file: ", |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10412 doc: /* Start writing all keyboard characters to a dribble file called FILE. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10413 If FILE is nil, close any open dribble file. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10414 (file) |
518 | 10415 Lisp_Object file; |
10416 { | |
14590
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
10417 if (dribble) |
518 | 10418 { |
14590
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
10419 fclose (dribble); |
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
10420 dribble = 0; |
518 | 10421 } |
14590
2eb3fcfa26ad
(Fopen_dribble_file): Close dribble file before
Karl Heuer <kwzh@gnu.org>
parents:
14550
diff
changeset
|
10422 if (!NILP (file)) |
518 | 10423 { |
10424 file = Fexpand_file_name (file, Qnil); | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
10425 dribble = fopen (SDATA (file), "w"); |
14591
6002d6e3aea3
(Fopen_dribble_file): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents:
14590
diff
changeset
|
10426 if (dribble == 0) |
6002d6e3aea3
(Fopen_dribble_file): Check for failure.
Karl Heuer <kwzh@gnu.org>
parents:
14590
diff
changeset
|
10427 report_file_error ("Opening dribble", Fcons (file, Qnil)); |
518 | 10428 } |
10429 return Qnil; | |
10430 } | |
10431 | |
10432 DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10433 doc: /* Discard the contents of the terminal input buffer. |
47347
28bab21524d4
(Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents:
46947
diff
changeset
|
10434 Also end any kbd macro being defined. */) |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10435 () |
518 | 10436 { |
47347
28bab21524d4
(Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents:
46947
diff
changeset
|
10437 if (!NILP (current_kboard->defining_kbd_macro)) |
28bab21524d4
(Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents:
46947
diff
changeset
|
10438 { |
28bab21524d4
(Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents:
46947
diff
changeset
|
10439 /* Discard the last command from the macro. */ |
28bab21524d4
(Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents:
46947
diff
changeset
|
10440 Fcancel_kbd_macro_events (); |
28bab21524d4
(Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents:
46947
diff
changeset
|
10441 end_kbd_macro (); |
28bab21524d4
(Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents:
46947
diff
changeset
|
10442 } |
28bab21524d4
(Fdiscard_input): If defining keyboard macro,
Kim F. Storm <storm@cua.dk>
parents:
46947
diff
changeset
|
10443 |
518 | 10444 update_mode_lines++; |
10445 | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
10446 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
|
10447 unread_command_char = -1; |
518 | 10448 |
10449 discard_tty_input (); | |
10450 | |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
10451 kbd_fetch_ptr = kbd_store_ptr; |
518 | 10452 input_pending = 0; |
10453 | |
10454 return Qnil; | |
10455 } | |
10456 | |
10457 DEFUN ("suspend-emacs", Fsuspend_emacs, Ssuspend_emacs, 0, 1, "", | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10458 doc: /* Stop Emacs and return to superior process. You can resume later. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10459 If `cannot-suspend' is non-nil, or if the system doesn't support job |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10460 control, run a subshell instead. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10461 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10462 If optional arg STUFFSTRING is non-nil, its characters are stuffed |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10463 to be read as terminal input by Emacs's parent, after suspension. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10464 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10465 Before suspending, run the normal hook `suspend-hook'. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10466 After resumption run the normal hook `suspend-resume-hook'. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10467 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10468 Some operating systems cannot stop the Emacs process and resume it later. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10469 On such systems, Emacs starts a subshell instead of suspending. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10470 (stuffstring) |
518 | 10471 Lisp_Object stuffstring; |
10472 { | |
46293
1fb8f75062c6
Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents:
46285
diff
changeset
|
10473 int count = SPECPDL_INDEX (); |
518 | 10474 int old_height, old_width; |
10475 int width, height; | |
25768
2cd7c31ce982
(Frecursive_edit): Remove unused variable.
Gerd Moellmann <gerd@gnu.org>
parents:
25671
diff
changeset
|
10476 struct gcpro gcpro1; |
518 | 10477 |
10478 if (!NILP (stuffstring)) | |
40656
cdfd4d09b79a
Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents:
40548
diff
changeset
|
10479 CHECK_STRING (stuffstring); |
1891
035c39b0b1b9
(Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents:
1888
diff
changeset
|
10480 |
2338
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
10481 /* Run the functions in suspend-hook. */ |
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
10482 if (!NILP (Vrun_hooks)) |
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
10483 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
|
10484 |
518 | 10485 GCPRO1 (stuffstring); |
765 | 10486 get_frame_size (&old_width, &old_height); |
518 | 10487 reset_sys_modes (); |
10488 /* sys_suspend can get an error if it tries to fork a subshell | |
10489 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
|
10490 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
|
10491 Qnil); |
518 | 10492 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
|
10493 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
|
10494 sys_subshell (); |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
10495 else |
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
10496 sys_suspend (); |
518 | 10497 unbind_to (count, Qnil); |
10498 | |
10499 /* Check if terminal/window size has changed. | |
10500 Note that this is not useful when we are running directly | |
10501 with a window system; but suspend should be disabled in that case. */ | |
765 | 10502 get_frame_size (&width, &height); |
518 | 10503 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
|
10504 change_frame_size (SELECTED_FRAME (), height, width, 0, 0, 0); |
518 | 10505 |
2338
36cc4399937f
* keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents:
2188
diff
changeset
|
10506 /* Run suspend-resume-hook. */ |
518 | 10507 if (!NILP (Vrun_hooks)) |
10508 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
|
10509 |
518 | 10510 UNGCPRO; |
10511 return Qnil; | |
10512 } | |
10513 | |
10514 /* 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
|
10515 Then in any case stuff anything Emacs has read ahead and not used. */ |
518 | 10516 |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
10517 void |
518 | 10518 stuff_buffered_input (stuffstring) |
10519 Lisp_Object stuffstring; | |
10520 { | |
56454
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
10521 #ifdef SIGTSTP /* stuff_char is defined if SIGTSTP. */ |
10551
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
10522 register unsigned char *p; |
7b2cb7c878d0
(the_only_perd): Define this var here.
Karl Heuer <kwzh@gnu.org>
parents:
10539
diff
changeset
|
10523 |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
10524 if (STRINGP (stuffstring)) |
518 | 10525 { |
10526 register int count; | |
10527 | |
46370
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
10528 p = SDATA (stuffstring); |
40db0673e6f0
Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents:
46368
diff
changeset
|
10529 count = SBYTES (stuffstring); |
518 | 10530 while (count-- > 0) |
10531 stuff_char (*p++); | |
10532 stuff_char ('\n'); | |
10533 } | |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
10534 |
518 | 10535 /* 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
|
10536 /* ?? What should this do when we have multiple keyboards?? |
56454
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
10537 Should we ignore anything that was typed in at the "wrong" kboard? |
56461
04a216bfa931
(not_single_kboard_state): Do nothing unless MULTI_KBOARD is defined.
Juanma Barranquero <lekktu@gmail.com>
parents:
56454
diff
changeset
|
10538 |
56454
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
10539 rms: we should stuff everything back into the kboard |
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
10540 it came from. */ |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
10541 for (; kbd_fetch_ptr != kbd_store_ptr; kbd_fetch_ptr++) |
518 | 10542 { |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
10543 |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
10544 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
|
10545 kbd_fetch_ptr = kbd_buffer; |
45803
9484de301252
Rename enum event_kind items.
Pavel Janík <Pavel@Janik.cz>
parents:
45753
diff
changeset
|
10546 if (kbd_fetch_ptr->kind == ASCII_KEYSTROKE_EVENT) |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
10547 stuff_char (kbd_fetch_ptr->code); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
10548 |
53671
12f934857d1b
(kbd_buffer_gcpro): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
53657
diff
changeset
|
10549 clear_event (kbd_fetch_ptr); |
30177
78677e36a8a3
(kbd_buffer_gcpro): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents:
30142
diff
changeset
|
10550 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
10551 |
518 | 10552 input_pending = 0; |
56454
1e0c70660fff
(not_single_kboard_state): New function.
Richard M. Stallman <rms@gnu.org>
parents:
56421
diff
changeset
|
10553 #endif /* SIGTSTP */ |
518 | 10554 } |
10555 | |
21514 | 10556 void |
648 | 10557 set_waiting_for_input (time_to_clear) |
10558 EMACS_TIME *time_to_clear; | |
518 | 10559 { |
648 | 10560 input_available_clear_time = time_to_clear; |
518 | 10561 |
10562 /* Tell interrupt_signal to throw back to read_char, */ | |
10563 waiting_for_input = 1; | |
10564 | |
10565 /* If interrupt_signal was called before and buffered a C-g, | |
10566 make it run again now, to avoid timing error. */ | |
10567 if (!NILP (Vquit_flag)) | |
10568 quit_throw_to_read_char (); | |
10569 } | |
10570 | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
10571 void |
518 | 10572 clear_waiting_for_input () |
10573 { | |
10574 /* Tell interrupt_signal not to throw back to read_char, */ | |
10575 waiting_for_input = 0; | |
648 | 10576 input_available_clear_time = 0; |
518 | 10577 } |
10578 | |
44135 | 10579 /* This routine is called at interrupt level in response to C-g. |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
10580 |
30200
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
10581 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
|
10582 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
|
10583 SIGTINT. |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
10584 |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
10585 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
|
10586 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
|
10587 |
ff33a5770282
(show_help_echo): Use eval_form. Add comment.
Gerd Moellmann <gerd@gnu.org>
parents:
30177
diff
changeset
|
10588 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
|
10589 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
|
10590 non-nil, it stops the job right away. */ |
518 | 10591 |
48349
12d250ace67f
(command_loop_1): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48229
diff
changeset
|
10592 static SIGTYPE |
10746
ea87e4d9c8ea
(input_poll_signal): Add ignored argument.
Richard M. Stallman <rms@gnu.org>
parents:
10701
diff
changeset
|
10593 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
|
10594 int signalnum; /* some compilers complain in signal calls. */ |
518 | 10595 { |
10596 char c; | |
10597 /* Must preserve main program's value of errno. */ | |
10598 int old_errno = errno; | |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
10599 struct frame *sf = SELECTED_FRAME (); |
518 | 10600 |
16115
cc8c3e2cc6ed
(input_available_signal) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents:
16111
diff
changeset
|
10601 #if defined (USG) && !defined (POSIX_SIGNALS) |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
10602 if (!read_socket_hook && NILP (Vwindow_system)) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
10603 { |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
10604 /* USG systems forget handlers when they are used; |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
10605 must reestablish each time */ |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
10606 signal (SIGINT, interrupt_signal); |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
10607 signal (SIGQUIT, interrupt_signal); |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
10608 } |
518 | 10609 #endif /* USG */ |
10610 | |
58986
59945307b86b
* syssignal.h: Declare main_thread.
Jan Djärv <jan.h.d@swipnet.se>
parents:
58967
diff
changeset
|
10611 SIGNAL_THREAD_CHECK (signalnum); |
518 | 10612 cancel_echoing (); |
10613 | |
16873
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
10614 if (!NILP (Vquit_flag) |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
10615 && (FRAME_TERMCAP_P (sf) || FRAME_MSDOS_P (sf))) |
518 | 10616 { |
16873
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
10617 /* 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
|
10618 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
|
10619 in I/O functions. */ |
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
10620 sigblock (sigmask (SIGINT)); |
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
10621 |
518 | 10622 fflush (stdout); |
10623 reset_sys_modes (); | |
16873
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
10624 |
518 | 10625 #ifdef SIGTSTP /* Support possible in later USG versions */ |
10626 /* | |
10627 * On systems which can suspend the current process and return to the original | |
10628 * shell, this command causes the user to end up back at the shell. | |
10629 * The "Auto-save" and "Abort" questions are not asked until | |
10630 * the user elects to return to emacs, at which point he can save the current | |
10631 * job and either dump core or continue. | |
10632 */ | |
10633 sys_suspend (); | |
10634 #else | |
10635 #ifdef VMS | |
10636 if (sys_suspend () == -1) | |
10637 { | |
10638 printf ("Not running as a subprocess;\n"); | |
10639 printf ("you can continue or abort.\n"); | |
10640 } | |
10641 #else /* not VMS */ | |
10642 /* Perhaps should really fork an inferior shell? | |
10643 But that would not provide any way to get back | |
10644 to the original shell, ever. */ | |
10645 printf ("No support for stopping a process on this operating system;\n"); | |
10646 printf ("you can continue or abort.\n"); | |
10647 #endif /* not VMS */ | |
10648 #endif /* not SIGTSTP */ | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10649 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10650 /* 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
|
10651 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
|
10652 cursor_to (0, 0); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10653 #endif |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10654 /* 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
|
10655 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
|
10656 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
|
10657 { |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10658 printf ("Auto-save? (y or n) "); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10659 fflush (stdout); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10660 if (((c = getchar ()) & ~040) == 'Y') |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10661 { |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10662 Fdo_auto_save (Qt, Qnil); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10663 #ifdef MSDOS |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10664 printf ("\r\nAuto-save done"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10665 #else /* not MSDOS */ |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10666 printf ("Auto-save done\n"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10667 #endif /* not MSDOS */ |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10668 } |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10669 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
|
10670 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
10671 else |
13454
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10672 { |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10673 /* 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
|
10674 Vinhibit_quit = Qnil; |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10675 #ifdef MSDOS |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10676 printf ("\r\n"); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10677 #endif /* not MSDOS */ |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10678 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
|
10679 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
|
10680 fflush (stdout); |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10681 } |
1a16700ce493
(interrupt_signal): Do special things in GC.
Richard M. Stallman <rms@gnu.org>
parents:
13413
diff
changeset
|
10682 |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10683 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10684 printf ("\r\nAbort? (y or n) "); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10685 #else /* not MSDOS */ |
518 | 10686 #ifdef VMS |
10687 printf ("Abort (and enter debugger)? (y or n) "); | |
10688 #else /* not VMS */ | |
10689 printf ("Abort (and dump core)? (y or n) "); | |
10690 #endif /* not VMS */ | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10691 #endif /* not MSDOS */ |
518 | 10692 fflush (stdout); |
10693 if (((c = getchar ()) & ~040) == 'Y') | |
10694 abort (); | |
10695 while (c != '\n') c = getchar (); | |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10696 #ifdef MSDOS |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10697 printf ("\r\nContinuing...\r\n"); |
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10698 #else /* not MSDOS */ |
518 | 10699 printf ("Continuing...\n"); |
5513
d7770758acfd
(interrupt_signal) [MSDOS]: write explicit CRs since
Richard M. Stallman <rms@gnu.org>
parents:
5394
diff
changeset
|
10700 #endif /* not MSDOS */ |
518 | 10701 fflush (stdout); |
10702 init_sys_modes (); | |
16873
205ec6c5d8f3
* (interrupt_signal): Make emergency exit work on MSDOS
Eli Zaretskii <eliz@gnu.org>
parents:
16834
diff
changeset
|
10703 sigfree (); |
518 | 10704 } |
10705 else | |
10706 { | |
10707 /* If executing a function that wants to be interrupted out of | |
10708 and the user has not deferred quitting by binding `inhibit-quit' | |
10709 then quit right away. */ | |
10710 if (immediate_quit && NILP (Vinhibit_quit)) | |
10711 { | |
21024 | 10712 struct gl_state_s saved; |
10713 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; | |
10714 | |
518 | 10715 immediate_quit = 0; |
10716 sigfree (); | |
21024 | 10717 saved = gl_state; |
10718 GCPRO4 (saved.object, saved.global_code, | |
10719 saved.current_syntax_table, saved.old_prop); | |
518 | 10720 Fsignal (Qquit, Qnil); |
21024 | 10721 gl_state = saved; |
10722 UNGCPRO; | |
518 | 10723 } |
10724 else | |
10725 /* Else request quit when it's safe */ | |
10726 Vquit_flag = Qt; | |
10727 } | |
10728 | |
10729 if (waiting_for_input && !echoing) | |
10730 quit_throw_to_read_char (); | |
10731 | |
10732 errno = old_errno; | |
10733 } | |
10734 | |
10735 /* Handle a C-g by making read_char return C-g. */ | |
10736 | |
20365
cfba77fb710b
(echo_now, record_auto_save, cmd_error_internal,
Kenichi Handa <handa@m17n.org>
parents:
20270
diff
changeset
|
10737 void |
518 | 10738 quit_throw_to_read_char () |
10739 { | |
10740 sigfree (); | |
10741 /* Prevent another signal from doing this before we finish. */ | |
650 | 10742 clear_waiting_for_input (); |
518 | 10743 input_pending = 0; |
10744 | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
10745 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
|
10746 unread_command_char = -1; |
518 | 10747 |
12309
c78f7af6cee9
(quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents:
12290
diff
changeset
|
10748 #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
|
10749 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
|
10750 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
|
10751 #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
|
10752 /* 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
|
10753 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
|
10754 abort (); |
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
10755 #endif |
12309
c78f7af6cee9
(quit_throw_to_read_char): Turn off the error check
Richard M. Stallman <rms@gnu.org>
parents:
12290
diff
changeset
|
10756 #endif |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
10757 if (FRAMEP (internal_last_event_frame) |
25671
1406380bf1e6
(command_loop_1): Change for Lisp_Object
Gerd Moellmann <gerd@gnu.org>
parents:
25657
diff
changeset
|
10758 && !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
|
10759 do_switch_frame (make_lispy_switch_frame (internal_last_event_frame), |
36808
678f9b758e49
(quit_throw_to_read_char): Change call to
Gerd Moellmann <gerd@gnu.org>
parents:
36745
diff
changeset
|
10760 0, 0); |
2340
f19f4582c04d
* keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents:
2338
diff
changeset
|
10761 |
518 | 10762 _longjmp (getcjmp, 1); |
10763 } | |
10764 | |
10765 DEFUN ("set-input-mode", Fset_input_mode, Sset_input_mode, 3, 4, 0, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10766 doc: /* Set mode of reading keyboard input. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10767 First arg INTERRUPT non-nil means use input interrupts; |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10768 nil means use CBREAK mode. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10769 Second arg FLOW non-nil means use ^S/^Q flow control for output to terminal |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10770 (no effect except in CBREAK mode). |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10771 Third arg META t means accept 8-bit input (for a Meta key). |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10772 META nil means ignore the top bit, on the assumption it is parity. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10773 Otherwise, accept 8-bit input and don't use the top bit for Meta. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10774 Optional fourth arg QUIT if non-nil specifies character to use for quitting. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10775 See also `current-input-mode'. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10776 (interrupt, flow, meta, quit) |
518 | 10777 Lisp_Object interrupt, flow, meta, quit; |
10778 { | |
10779 if (!NILP (quit) | |
9124
8ed50a8939e9
(echo_char, cmd_error_internal, command_loop_1, read_char,
Karl Heuer <kwzh@gnu.org>
parents:
8994
diff
changeset
|
10780 && (!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
|
10781 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
|
10782 |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
10783 #ifdef POLL_FOR_INPUT |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
10784 stop_polling (); |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
10785 #endif |
518 | 10786 |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10787 #ifndef DOS_NT |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
10788 /* this causes startup screen to be restored and messes with the mouse */ |
518 | 10789 reset_sys_modes (); |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
10790 #endif |
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
10791 |
518 | 10792 #ifdef SIGIO |
10793 /* 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
|
10794 if (read_socket_hook) |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
10795 { |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
10796 /* 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
|
10797 because we haven't implemented the mechanisms to support it. */ |
518 | 10798 #ifdef NO_SOCK_SIGIO |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
10799 interrupt_input = 0; |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
10800 #else /* not NO_SOCK_SIGIO */ |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
10801 interrupt_input = 1; |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
10802 #endif /* NO_SOCK_SIGIO */ |
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
10803 } |
518 | 10804 else |
10805 interrupt_input = !NILP (interrupt); | |
10806 #else /* not SIGIO */ | |
10807 interrupt_input = 0; | |
10808 #endif /* not SIGIO */ | |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
10809 |
518 | 10810 /* Our VMS input only works by interrupts, as of now. */ |
10811 #ifdef VMS | |
10812 interrupt_input = 1; | |
10813 #endif | |
11993
25aed301d8f7
(Fset_input_mode): When read_socket_hook, ignore
Karl Heuer <kwzh@gnu.org>
parents:
11832
diff
changeset
|
10814 |
518 | 10815 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
|
10816 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
|
10817 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
|
10818 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
|
10819 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
|
10820 else |
5275561e6b0a
(read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents:
2651
diff
changeset
|
10821 meta_key = 2; |
518 | 10822 if (!NILP (quit)) |
10823 /* Don't let this value be out of range. */ | |
10824 quit_char = XINT (quit) & (meta_key ? 0377 : 0177); | |
10825 | |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
10826 #ifndef DOS_NT |
518 | 10827 init_sys_modes (); |
13191
cb145d50f910
(make_lispy_event) [!USE_X_TOOLKIT]: Dragging
Richard M. Stallman <rms@gnu.org>
parents:
13189
diff
changeset
|
10828 #endif |
4471
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
10829 |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
10830 #ifdef POLL_FOR_INPUT |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
10831 poll_suppress_count = 1; |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
10832 start_polling (); |
31c5586e9d36
(Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
4417
diff
changeset
|
10833 #endif |
518 | 10834 return Qnil; |
10835 } | |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10836 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10837 DEFUN ("current-input-mode", Fcurrent_input_mode, Scurrent_input_mode, 0, 0, 0, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10838 doc: /* Return information about the way Emacs currently reads keyboard input. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10839 The value is a list of the form (INTERRUPT FLOW META QUIT), where |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10840 INTERRUPT is non-nil if Emacs is using interrupt-driven input; if |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10841 nil, Emacs is using CBREAK mode. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10842 FLOW is non-nil if Emacs uses ^S/^Q flow control for output to the |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10843 terminal; this does not apply if Emacs uses interrupt-driven input. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10844 META is t if accepting 8-bit input with 8th bit as Meta flag. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10845 META nil means ignoring the top bit, on the assumption it is parity. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10846 META is neither t nor nil if accepting 8-bit input and using |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10847 all 8 bits as the character code. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10848 QUIT is the character Emacs currently uses to quit. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10849 The elements of this list correspond to the arguments of |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10850 `set-input-mode'. */) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
10851 () |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10852 { |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10853 Lisp_Object val[4]; |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10854 |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10855 val[0] = interrupt_input ? Qt : Qnil; |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10856 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
|
10857 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
|
10858 XSETFASTINT (val[3], quit_char); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10859 |
3116
05c3ef28bb6b
(Fcurrent_input_mode): Fix the call to Flist.
Richard M. Stallman <rms@gnu.org>
parents:
3104
diff
changeset
|
10860 return Flist (sizeof (val) / sizeof (val[0]), val); |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10861 } |
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
10862 |
59543
66df67e643ac
(Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents:
59520
diff
changeset
|
10863 DEFUN ("posn-at-x-y", Fposn_at_x_y, Sposn_at_x_y, 2, 4, 0, |
55023
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10864 doc: /* Return position information for pixel coordinates X and Y. |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10865 By default, X and Y are relative to text area of the selected window. |
62753
3cf2ae5f446d
(Frecursive_edit): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
62493
diff
changeset
|
10866 Optional third arg FRAME-OR-WINDOW non-nil specifies frame or window. |
59543
66df67e643ac
(Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents:
59520
diff
changeset
|
10867 If optional fourth arg WHOLE is non-nil, X is relative to the left |
66df67e643ac
(Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents:
59520
diff
changeset
|
10868 edge of the window. |
55023
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10869 |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10870 The return value is similar to a mouse click position: |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10871 (WINDOW AREA-OR-POS (X . Y) TIMESTAMP OBJECT POS (COL . ROW) |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10872 IMAGE (DX . DY) (WIDTH . HEIGHT)) |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10873 The `posn-' functions access elements of such lists. */) |
59543
66df67e643ac
(Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents:
59520
diff
changeset
|
10874 (x, y, frame_or_window, whole) |
66df67e643ac
(Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents:
59520
diff
changeset
|
10875 Lisp_Object x, y, frame_or_window, whole; |
55023
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10876 { |
60331
9d9eca6f4905
(Fposn_at_x_y): Check integerness of X and Y.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60067
diff
changeset
|
10877 CHECK_NATNUM (x); |
9d9eca6f4905
(Fposn_at_x_y): Check integerness of X and Y.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60067
diff
changeset
|
10878 CHECK_NATNUM (y); |
9d9eca6f4905
(Fposn_at_x_y): Check integerness of X and Y.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60067
diff
changeset
|
10879 |
55023
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10880 if (NILP (frame_or_window)) |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10881 frame_or_window = selected_window; |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10882 |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10883 if (WINDOWP (frame_or_window)) |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10884 { |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10885 struct window *w; |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10886 |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10887 CHECK_LIVE_WINDOW (frame_or_window); |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10888 |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10889 w = XWINDOW (frame_or_window); |
66076
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10890 XSETINT (x, (XINT (x) |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10891 + WINDOW_LEFT_EDGE_X (w) |
59543
66df67e643ac
(Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents:
59520
diff
changeset
|
10892 + (NILP (whole) |
66df67e643ac
(Fposn_at_x_y): Add optional arg WHOLE.
Kim F. Storm <storm@cua.dk>
parents:
59520
diff
changeset
|
10893 ? window_box_left_offset (w, TEXT_AREA) |
66076
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10894 : 0))); |
55023
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10895 XSETINT (y, WINDOW_TO_FRAME_PIXEL_Y (w, XINT (y))); |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10896 frame_or_window = w->frame; |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10897 } |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10898 |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10899 CHECK_LIVE_FRAME (frame_or_window); |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10900 |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10901 return make_lispy_position (XFRAME (frame_or_window), &x, &y, 0); |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10902 } |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10903 |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10904 DEFUN ("posn-at-point", Fposn_at_point, Sposn_at_point, 0, 2, 0, |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10905 doc: /* Return position information for buffer POS in WINDOW. |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10906 POS defaults to point in WINDOW; WINDOW defaults to the selected window. |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10907 |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10908 Return nil if position is not visible in window. Otherwise, |
56023
7e63582e48f6
(Fposn_at_point): Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
55721
diff
changeset
|
10909 the return value is similar to that returned by `event-start' for |
55023
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10910 a mouse click at the upper left corner of the glyph corresponding |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10911 to the given buffer position: |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10912 (WINDOW AREA-OR-POS (X . Y) TIMESTAMP OBJECT POS (COL . ROW) |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10913 IMAGE (DX . DY) (WIDTH . HEIGHT)) |
58247
fdf2cb9626ab
(Fposn_at_point): Remove extra */ after doc string.
Kim F. Storm <storm@cua.dk>
parents:
58091
diff
changeset
|
10914 The `posn-' functions access elements of such lists. */) |
55023
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10915 (pos, window) |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10916 Lisp_Object pos, window; |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10917 { |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10918 Lisp_Object tem; |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10919 |
66076
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10920 if (NILP (window)) |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10921 window = selected_window; |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10922 |
55023
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10923 tem = Fpos_visible_in_window_p (pos, window, Qt); |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10924 if (!NILP (tem)) |
66076
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10925 { |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10926 Lisp_Object x = XCAR (tem); |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10927 Lisp_Object y = XCAR (XCDR (tem)); |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10928 |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10929 /* Point invisible due to hscrolling? */ |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10930 if (XINT (x) < 0) |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10931 return Qnil; |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10932 tem = Fposn_at_x_y (x, y, window, Qnil); |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10933 } |
33c8db02dc18
(make_lispy_position): Adjust wx for left margin if ON_TEXT.
Kim F. Storm <storm@cua.dk>
parents:
66019
diff
changeset
|
10934 |
55023
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10935 return tem; |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10936 } |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
10937 |
518 | 10938 |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
10939 /* |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10940 * 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
|
10941 */ |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
10942 void |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10943 init_kboard (kb) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10944 KBOARD *kb; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
10945 { |
12264 | 10946 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
|
10947 kb->Vlast_command = Qnil; |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
10948 kb->Vreal_last_command = Qnil; |
12118
14520fa2d792
(cmd_error, command_loop_1, Fcommand_execute)
Karl Heuer <kwzh@gnu.org>
parents:
12087
diff
changeset
|
10949 kb->Vprefix_arg = Qnil; |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
10950 kb->Vlast_prefix_arg = Qnil; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10951 kb->kbd_queue = Qnil; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10952 kb->kbd_queue_has_data = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10953 kb->immediate_echo = 0; |
43750
38729301823d
(echo_prompt, echo_char, echo_dash, echo_now)
Gerd Moellmann <gerd@gnu.org>
parents:
43713
diff
changeset
|
10954 kb->echo_string = Qnil; |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10955 kb->echo_after_prompt = -1; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10956 kb->kbd_macro_buffer = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10957 kb->kbd_macro_bufsize = 0; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10958 kb->defining_kbd_macro = Qnil; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10959 kb->Vlast_kbd_macro = Qnil; |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10960 kb->reference_count = 0; |
11543
317e5825008b
(Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents:
11540
diff
changeset
|
10961 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
|
10962 kb->system_key_syms = Qnil; |
11777
14ecddbe182f
(init_kboard): Initialize Vdefault_minibuffer_frame.
Karl Heuer <kwzh@gnu.org>
parents:
11763
diff
changeset
|
10963 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
|
10964 } |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
10965 |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
10966 /* |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10967 * Destroy the contents of a kboard object, but not the object itself. |
14036 | 10968 * 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
|
10969 * 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
|
10970 */ |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
10971 static void |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10972 wipe_kboard (kb) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10973 KBOARD *kb; |
10654
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
10974 { |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10975 if (kb->kbd_macro_buffer) |
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
10976 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
|
10977 } |
012591ef4e64
(syms_of_keyboard): Move DEFVAR_DISPLAY's here from callint.c.
Karl Heuer <kwzh@gnu.org>
parents:
10635
diff
changeset
|
10978 |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
10979 #ifdef MULTI_KBOARD |
37400
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
10980 |
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
10981 /* Free KB and memory referenced from it. */ |
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
10982 |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
10983 void |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
10984 delete_kboard (kb) |
37400
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
10985 KBOARD *kb; |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
10986 { |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
10987 KBOARD **kbp; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
10988 |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
10989 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
|
10990 if (*kbp == NULL) |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
10991 abort (); |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
10992 *kbp = kb->next_kboard; |
37400
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
10993 |
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
10994 /* Prevent a dangling reference to KB. */ |
37603
df85a76987bb
(delete_kboard): Handle the case that selected_frame
Gerd Moellmann <gerd@gnu.org>
parents:
37461
diff
changeset
|
10995 if (kb == current_kboard |
df85a76987bb
(delete_kboard): Handle the case that selected_frame
Gerd Moellmann <gerd@gnu.org>
parents:
37461
diff
changeset
|
10996 && FRAMEP (selected_frame) |
df85a76987bb
(delete_kboard): Handle the case that selected_frame
Gerd Moellmann <gerd@gnu.org>
parents:
37461
diff
changeset
|
10997 && FRAME_LIVE_P (XFRAME (selected_frame))) |
df85a76987bb
(delete_kboard): Handle the case that selected_frame
Gerd Moellmann <gerd@gnu.org>
parents:
37461
diff
changeset
|
10998 { |
df85a76987bb
(delete_kboard): Handle the case that selected_frame
Gerd Moellmann <gerd@gnu.org>
parents:
37461
diff
changeset
|
10999 current_kboard = XFRAME (selected_frame)->kboard; |
37400
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
11000 if (current_kboard == kb) |
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
11001 abort (); |
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
11002 } |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
11003 |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
11004 wipe_kboard (kb); |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
11005 xfree (kb); |
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
11006 } |
37400
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
11007 |
2ac65f4d70e5
(delete_kboard): Prevent a dangling reference
Gerd Moellmann <gerd@gnu.org>
parents:
37189
diff
changeset
|
11008 #endif /* MULTI_KBOARD */ |
11165
d5cd4e375335
(wipe_kboard): Make this function static.
Karl Heuer <kwzh@gnu.org>
parents:
11127
diff
changeset
|
11009 |
21514 | 11010 void |
518 | 11011 init_keyboard () |
11012 { | |
11013 /* This is correct before outermost invocation of the editor loop */ | |
11014 command_loop_level = -1; | |
11015 immediate_quit = 0; | |
11016 quit_char = Ctl ('g'); | |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
11017 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
|
11018 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
|
11019 EMACS_SET_SECS_USECS (timer_idleness_start_time, -1, -1); |
518 | 11020 total_keys = 0; |
1262
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
11021 recent_keys_index = 0; |
10800
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
11022 kbd_fetch_ptr = kbd_buffer; |
5bfee5ff5d18
(kbd_buffer_frame_or_window): Restored old var.
Karl Heuer <kwzh@gnu.org>
parents:
10746
diff
changeset
|
11023 kbd_store_ptr = kbd_buffer; |
9840
81829106d303
(EVENT_QUEUES_EMPTY): Only test do_mouse_tracking and mouse_moved #ifdef
Roland McGrath <roland@gnu.org>
parents:
9830
diff
changeset
|
11024 #ifdef HAVE_MOUSE |
9618
9fe4987e4896
(do_mouse_tracking): Now a FRAME_PTR.
Richard M. Stallman <rms@gnu.org>
parents:
9607
diff
changeset
|
11025 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
|
11026 #endif |
518 | 11027 input_pending = 0; |
75137
86181f7117aa
(init_keyboard): Initialize interrupt_input_blocked and
Jan Djärv <jan.h.d@swipnet.se>
parents:
74837
diff
changeset
|
11028 interrupt_input_blocked = 0; |
86181f7117aa
(init_keyboard): Initialize interrupt_input_blocked and
Jan Djärv <jan.h.d@swipnet.se>
parents:
74837
diff
changeset
|
11029 interrupt_input_pending = 0; |
518 | 11030 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
11031 /* 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
|
11032 time through. */ |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
11033 internal_last_event_frame = Qnil; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
11034 Vlast_event_frame = internal_last_event_frame; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
11035 |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
11036 #ifdef MULTI_KBOARD |
11363
f15dccd23db8
(init_keyboard): Don't malloc a new structure;
Karl Heuer <kwzh@gnu.org>
parents:
11350
diff
changeset
|
11037 current_kboard = initial_kboard; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
11038 #endif |
11363
f15dccd23db8
(init_keyboard): Don't malloc a new structure;
Karl Heuer <kwzh@gnu.org>
parents:
11350
diff
changeset
|
11039 wipe_kboard (current_kboard); |
11016
8d8eef563e13
(unlock_kboard): Renamed from unlock_display.
Karl Heuer <kwzh@gnu.org>
parents:
10997
diff
changeset
|
11040 init_kboard (current_kboard); |
1565
a681f63f93fa
* keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents:
1515
diff
changeset
|
11041 |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
11042 if (!noninteractive && !read_socket_hook && NILP (Vwindow_system)) |
518 | 11043 { |
11044 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
|
11045 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS) |
518 | 11046 /* For systems with SysV TERMIO, C-g is set up for both SIGINT and |
11047 SIGQUIT and we can't tell which one it will give us. */ | |
11048 signal (SIGQUIT, interrupt_signal); | |
11049 #endif /* HAVE_TERMIO */ | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
11050 } |
518 | 11051 /* Note SIGIO has been undef'd if FIONREAD is missing. */ |
11052 #ifdef SIGIO | |
7957
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
11053 if (!noninteractive) |
a1404ed5d012
(echo_after_prompt): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
7868
diff
changeset
|
11054 signal (SIGIO, input_available_signal); |
1008
f1df63f98e5c
* keyboard.c (init_keyboard): Changed "#endif SIGIO" to
Jim Blandy <jimb@redhat.com>
parents:
985
diff
changeset
|
11055 #endif /* SIGIO */ |
518 | 11056 |
11057 /* Use interrupt input by default, if it works and noninterrupt input | |
11058 has deficiencies. */ | |
11059 | |
11060 #ifdef INTERRUPT_INPUT | |
11061 interrupt_input = 1; | |
11062 #else | |
11063 interrupt_input = 0; | |
11064 #endif | |
11065 | |
11066 /* Our VMS input only works by interrupts, as of now. */ | |
11067 #ifdef VMS | |
11068 interrupt_input = 1; | |
11069 #endif | |
11070 | |
11071 sigfree (); | |
11072 dribble = 0; | |
11073 | |
11074 if (keyboard_init_hook) | |
11075 (*keyboard_init_hook) (); | |
11076 | |
11077 #ifdef POLL_FOR_INPUT | |
11078 poll_suppress_count = 1; | |
11079 start_polling (); | |
11080 #endif | |
11081 } | |
11082 | |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
11083 /* This type's only use is in syms_of_keyboard, to initialize the |
518 | 11084 event header symbols and put properties on them. */ |
11085 struct event_head { | |
11086 Lisp_Object *var; | |
11087 char *name; | |
11088 Lisp_Object *kind; | |
11089 }; | |
11090 | |
11091 struct event_head head_table[] = { | |
42121
3069e9eb44de
(head_table): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents:
42064
diff
changeset
|
11092 {&Qmouse_movement, "mouse-movement", &Qmouse_movement}, |
3069e9eb44de
(head_table): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents:
42064
diff
changeset
|
11093 {&Qscroll_bar_movement, "scroll-bar-movement", &Qmouse_movement}, |
3069e9eb44de
(head_table): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents:
42064
diff
changeset
|
11094 {&Qswitch_frame, "switch-frame", &Qswitch_frame}, |
3069e9eb44de
(head_table): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents:
42064
diff
changeset
|
11095 {&Qdelete_frame, "delete-frame", &Qdelete_frame}, |
3069e9eb44de
(head_table): Add missing braces around initializer.
Pavel Janík <Pavel@Janik.cz>
parents:
42064
diff
changeset
|
11096 {&Qiconify_frame, "iconify-frame", &Qiconify_frame}, |
44300
21286349d285
(Qselect_window): New symbol.
Pavel Janík <Pavel@Janik.cz>
parents:
44135
diff
changeset
|
11097 {&Qmake_frame_visible, "make-frame-visible", &Qmake_frame_visible}, |
50557
c940538354f7
(head_table): Use switch-frame as event_kind for select-window.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50556
diff
changeset
|
11098 /* `select-window' should be handled just like `switch-frame' |
c940538354f7
(head_table): Use switch-frame as event_kind for select-window.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50556
diff
changeset
|
11099 in read_key_sequence. */ |
c940538354f7
(head_table): Use switch-frame as event_kind for select-window.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50556
diff
changeset
|
11100 {&Qselect_window, "select-window", &Qswitch_frame} |
518 | 11101 }; |
11102 | |
21514 | 11103 void |
518 | 11104 syms_of_keyboard () |
11105 { | |
38751
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
11106 Vpre_help_message = Qnil; |
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
11107 staticpro (&Vpre_help_message); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
11108 |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
11109 Vlispy_mouse_stem = build_string ("mouse"); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
11110 staticpro (&Vlispy_mouse_stem); |
38751
ea3e88f0c205
(Vpre_help_message): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
38674
diff
changeset
|
11111 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
11112 /* Tool-bars. */ |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11113 QCimage = intern (":image"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11114 staticpro (&QCimage); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11115 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11116 staticpro (&Qhelp_echo); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11117 Qhelp_echo = intern ("help-echo"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11118 |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11119 staticpro (&item_properties); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11120 item_properties = Qnil; |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11121 |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25525
diff
changeset
|
11122 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
|
11123 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
|
11124 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
|
11125 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
|
11126 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11127 staticpro (&real_this_command); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11128 real_this_command = Qnil; |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11129 |
17699
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
11130 Qtimer_event_handler = intern ("timer-event-handler"); |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
11131 staticpro (&Qtimer_event_handler); |
b2629af2145e
(Qtimer_event): Variable deleted.
Richard M. Stallman <rms@gnu.org>
parents:
17389
diff
changeset
|
11132 |
56624
05bc08d74392
Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56609
diff
changeset
|
11133 Qdisabled_command_function = intern ("disabled-command-function"); |
05bc08d74392
Declare Qdisabled_command_function instead of Qdisabled_command_hook.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56609
diff
changeset
|
11134 staticpro (&Qdisabled_command_function); |
4094
1dae74fd93d2
(Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
4088
diff
changeset
|
11135 |
518 | 11136 Qself_insert_command = intern ("self-insert-command"); |
11137 staticpro (&Qself_insert_command); | |
11138 | |
11139 Qforward_char = intern ("forward-char"); | |
11140 staticpro (&Qforward_char); | |
11141 | |
11142 Qbackward_char = intern ("backward-char"); | |
11143 staticpro (&Qbackward_char); | |
11144 | |
11145 Qdisabled = intern ("disabled"); | |
11146 staticpro (&Qdisabled); | |
11147 | |
4065
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
11148 Qundefined = intern ("undefined"); |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
11149 staticpro (&Qundefined); |
adf973a863dd
(Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3994
diff
changeset
|
11150 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11151 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
|
11152 staticpro (&Qpre_command_hook); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11153 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11154 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
|
11155 staticpro (&Qpost_command_hook); |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11156 |
10070
def41008c136
(command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents:
10060
diff
changeset
|
11157 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
|
11158 staticpro (&Qdeferred_action_function); |
def41008c136
(command_loop_1): Use safe_run_hooks to run
Richard M. Stallman <rms@gnu.org>
parents:
10060
diff
changeset
|
11159 |
5674
bb8bfab97970
(read_key_sequence): Properly gcpro fkey_map while using keytran_map.
Richard M. Stallman <rms@gnu.org>
parents:
5614
diff
changeset
|
11160 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
|
11161 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
|
11162 |
518 | 11163 Qfunction_key = intern ("function-key"); |
11164 staticpro (&Qfunction_key); | |
1322
5f327f1dddd3
* keyboard.c (modify_event_symbol): Make sure that the unmodified
Jim Blandy <jimb@redhat.com>
parents:
1310
diff
changeset
|
11165 Qmouse_click = intern ("mouse-click"); |
518 | 11166 staticpro (&Qmouse_click); |
61499
f914c4fa9610
(Qlanguage_change) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
61496
diff
changeset
|
11167 #if defined (WINDOWSNT) || defined (MAC_OS) |
23798
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
11168 Qlanguage_change = intern ("language-change"); |
594b3116e1b0
(Qlanguage_change): New variable.
Geoff Voelker <voelker@cs.washington.edu>
parents:
23759
diff
changeset
|
11169 staticpro (&Qlanguage_change); |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
11170 #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
|
11171 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
|
11172 staticpro (&Qdrag_n_drop); |
518 | 11173 |
43814
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
11174 Qsave_session = intern ("save-session"); |
62753
3cf2ae5f446d
(Frecursive_edit): Fix typo in docstring.
Juanma Barranquero <lekktu@gmail.com>
parents:
62493
diff
changeset
|
11175 staticpro (&Qsave_session); |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
11176 |
67455
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
11177 #ifdef MAC_OS |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
11178 Qmac_apple_event = intern ("mac-apple-event"); |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
11179 staticpro (&Qmac_apple_event); |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
11180 #endif |
9bf079216f0e
(Qmac_apple_event) [MAC_OS]: New variable.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents:
66529
diff
changeset
|
11181 |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
11182 Qmenu_enable = intern ("menu-enable"); |
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
11183 staticpro (&Qmenu_enable); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11184 Qmenu_alias = intern ("menu-alias"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11185 staticpro (&Qmenu_alias); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11186 QCenable = intern (":enable"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11187 staticpro (&QCenable); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11188 QCvisible = intern (":visible"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11189 staticpro (&QCvisible); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11190 QChelp = intern (":help"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11191 staticpro (&QChelp); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11192 QCfilter = intern (":filter"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11193 staticpro (&QCfilter); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11194 QCbutton = intern (":button"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11195 staticpro (&QCbutton); |
21778
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
11196 QCkeys = intern (":keys"); |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
11197 staticpro (&QCkeys); |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
11198 QCkey_sequence = intern (":key-sequence"); |
bb86eac5ce79
(parse_menu_item): Support keywords :keys and
Richard M. Stallman <rms@gnu.org>
parents:
21726
diff
changeset
|
11199 staticpro (&QCkey_sequence); |
21240
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11200 QCtoggle = intern (":toggle"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11201 staticpro (&QCtoggle); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11202 QCradio = intern (":radio"); |
bff697e03fe0
Include puresize.h for CHECK_IMPURE.
Richard M. Stallman <rms@gnu.org>
parents:
21024
diff
changeset
|
11203 staticpro (&QCradio); |
2512
2a13ec10bfd7
* keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents:
2505
diff
changeset
|
11204 |
518 | 11205 Qmode_line = intern ("mode-line"); |
11206 staticpro (&Qmode_line); | |
732 | 11207 Qvertical_line = intern ("vertical-line"); |
11208 staticpro (&Qvertical_line); | |
1988
1709282a3413
* keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents:
1960
diff
changeset
|
11209 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
|
11210 staticpro (&Qvertical_scroll_bar); |
2149
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
11211 Qmenu_bar = intern ("menu-bar"); |
9e21e9f8bb0d
(syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents:
2133
diff
changeset
|
11212 staticpro (&Qmenu_bar); |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
11213 |
61163
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
11214 #ifdef HAVE_MOUSE |
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
11215 Qmouse_fixup_help_message = intern ("mouse-fixup-help-message"); |
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
11216 staticpro (&Qmouse_fixup_help_message); |
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
11217 #endif |
d4aefe343943
(Qmouse_fixup_help_message): New var.
Kim F. Storm <storm@cua.dk>
parents:
60753
diff
changeset
|
11218 |
1711
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
11219 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
|
11220 staticpro (&Qabove_handle); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
11221 Qhandle = intern ("handle"); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
11222 staticpro (&Qhandle); |
4cd44b41f1e3
* keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents:
1654
diff
changeset
|
11223 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
|
11224 staticpro (&Qbelow_handle); |
15165
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
11225 Qup = intern ("up"); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
11226 staticpro (&Qup); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
11227 Qdown = intern ("down"); |
aa3de03facd8
(Qup, Qdown): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
15129
diff
changeset
|
11228 staticpro (&Qdown); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11229 Qtop = intern ("top"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11230 staticpro (&Qtop); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11231 Qbottom = intern ("bottom"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11232 staticpro (&Qbottom); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11233 Qend_scroll = intern ("end-scroll"); |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11234 staticpro (&Qend_scroll); |
26788
5e97315b6f11
* keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26480
diff
changeset
|
11235 Qratio = intern ("ratio"); |
5e97315b6f11
* keyboard.c (Qratio): New symbol.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26480
diff
changeset
|
11236 staticpro (&Qratio); |
518 | 11237 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
11238 Qevent_kind = intern ("event-kind"); |
518 | 11239 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
|
11240 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
|
11241 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
|
11242 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
|
11243 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
|
11244 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
|
11245 staticpro (&Qmodifier_cache); |
518 | 11246 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
11247 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
|
11248 staticpro (&Qrecompute_lucid_menubar); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
11249 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
|
11250 staticpro (&Qactivate_menubar_hook); |
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
11251 |
7487
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
11252 Qpolling_period = intern ("polling-period"); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
11253 staticpro (&Qpolling_period); |
a7ff1a4b4e21
(syms_of_keyboard): Set up Qpolling_period.
Richard M. Stallman <rms@gnu.org>
parents:
7447
diff
changeset
|
11254 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11255 Qinput_method_function = intern ("input-method-function"); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11256 staticpro (&Qinput_method_function); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11257 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11258 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
|
11259 staticpro (&Qinput_method_exit_on_first_char); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11260 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
|
11261 staticpro (&Qinput_method_use_echo_area); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11262 |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11263 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
|
11264 Fset (Qinput_method_use_echo_area, Qnil); |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11265 |
30681
eed7b9be8ad3
(syms_of_keyboard): Initialize last_point_position_buffer.
Ken Raeburn <raeburn@raeburn.org>
parents:
30558
diff
changeset
|
11266 last_point_position_buffer = Qnil; |
67820
a9cbddeec059
(last_point_position_window): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
67664
diff
changeset
|
11267 last_point_position_window = Qnil; |
30681
eed7b9be8ad3
(syms_of_keyboard): Initialize last_point_position_buffer.
Ken Raeburn <raeburn@raeburn.org>
parents:
30558
diff
changeset
|
11268 |
518 | 11269 { |
11270 struct event_head *p; | |
11271 | |
11272 for (p = head_table; | |
11273 p < head_table + (sizeof (head_table) / sizeof (head_table[0])); | |
11274 p++) | |
11275 { | |
11276 *p->var = intern (p->name); | |
11277 staticpro (p->var); | |
11278 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
|
11279 Fput (*p->var, Qevent_symbol_elements, Fcons (*p->var, Qnil)); |
518 | 11280 } |
11281 } | |
11282 | |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
11283 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
|
11284 staticpro (&button_down_location); |
28479
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
11285 mouse_syms = Fmake_vector (make_number (1), Qnil); |
5e8fd5aab7a7
(lispy_mouse_names): Variable removed.
Gerd Moellmann <gerd@gnu.org>
parents:
28454
diff
changeset
|
11286 staticpro (&mouse_syms); |
51384
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
11287 wheel_syms = Fmake_vector (make_number (2), Qnil); |
de51ce646828
(Qmouse_wheel): Declare only if MAC_OSX defined.
Jason Rumney <jasonr@gnu.org>
parents:
51257
diff
changeset
|
11288 staticpro (&wheel_syms); |
1310
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
11289 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
11290 { |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
11291 int i; |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
11292 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
|
11293 |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
11294 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
|
11295 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
|
11296 if (modifier_names[i]) |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11297 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
|
11298 staticpro (&modifier_symbols); |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
11299 } |
8db103d11270
* keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents:
1262
diff
changeset
|
11300 |
1262
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
11301 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
|
11302 staticpro (&recent_keys); |
c9fc221502e4
* keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents:
1261
diff
changeset
|
11303 |
1439
b3b2d1181d3a
* keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents:
1404
diff
changeset
|
11304 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
|
11305 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
|
11306 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11307 raw_keybuf = Fmake_vector (make_number (30), Qnil); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11308 staticpro (&raw_keybuf); |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11309 |
4773
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
11310 Qextended_command_history = intern ("extended-command-history"); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
11311 Fset (Qextended_command_history, Qnil); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
11312 staticpro (&Qextended_command_history); |
ae7c67879859
(Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents:
4696
diff
changeset
|
11313 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
11314 accent_key_syms = Qnil; |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
11315 staticpro (&accent_key_syms); |
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
11316 |
518 | 11317 func_key_syms = Qnil; |
11318 staticpro (&func_key_syms); | |
11319 | |
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
|
11320 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
|
11321 staticpro (&drag_n_drop_syms); |
19697
944b7470b2a2
(kbd_buffer_get_event) [WINDOWSNT]: Support
Geoff Voelker <voelker@cs.washington.edu>
parents:
19549
diff
changeset
|
11322 |
1386
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
11323 unread_switch_frame = Qnil; |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
11324 staticpro (&unread_switch_frame); |
5845050f9d5c
* keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents:
1328
diff
changeset
|
11325 |
16229
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
11326 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
|
11327 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
|
11328 |
c7913b6ba8da
(syms_of_keyboard): Initialize and staticpro internal_last_event_frame and
Erik Naggum <erik@naggum.no>
parents:
16220
diff
changeset
|
11329 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
|
11330 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
|
11331 |
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
|
11332 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
|
11333 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
|
11334 |
64173
9e2bb087ae33
(menu_bar_items): Don't GCPRO menu_bar_items_vector here.
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
11335 menu_bar_items_vector = Qnil; |
9e2bb087ae33
(menu_bar_items): Don't GCPRO menu_bar_items_vector here.
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
11336 staticpro (&menu_bar_items_vector); |
9e2bb087ae33
(menu_bar_items): Don't GCPRO menu_bar_items_vector here.
Kim F. Storm <storm@cua.dk>
parents:
64084
diff
changeset
|
11337 |
72445
30a779a4fc54
(Fcurrent_idle_time): New function.
Richard M. Stallman <rms@gnu.org>
parents:
72402
diff
changeset
|
11338 defsubr (&Scurrent_idle_time); |
12150
64b16f71a15c
(Fevent_convert_list): Renamed from convert_event_type_list.
Karl Heuer <kwzh@gnu.org>
parents:
12144
diff
changeset
|
11339 defsubr (&Sevent_convert_list); |
518 | 11340 defsubr (&Sread_key_sequence); |
21024 | 11341 defsubr (&Sread_key_sequence_vector); |
518 | 11342 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
|
11343 #ifdef HAVE_MOUSE |
518 | 11344 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
|
11345 #endif |
518 | 11346 defsubr (&Sinput_pending_p); |
11347 defsubr (&Scommand_execute); | |
11348 defsubr (&Srecent_keys); | |
11349 defsubr (&Sthis_command_keys); | |
21024 | 11350 defsubr (&Sthis_command_keys_vector); |
15129
e48968f04ea7
(Fthis_single_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15128
diff
changeset
|
11351 defsubr (&Sthis_single_command_keys); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11352 defsubr (&Sthis_single_command_raw_keys); |
12335
0ab97d00e336
(Freset_this_command_lengths): New function.
Richard M. Stallman <rms@gnu.org>
parents:
12309
diff
changeset
|
11353 defsubr (&Sreset_this_command_lengths); |
23439
72d75218d971
(Fclear_this_command_keys): New function.
Richard M. Stallman <rms@gnu.org>
parents:
23418
diff
changeset
|
11354 defsubr (&Sclear_this_command_keys); |
518 | 11355 defsubr (&Ssuspend_emacs); |
11356 defsubr (&Sabort_recursive_edit); | |
11357 defsubr (&Sexit_recursive_edit); | |
11358 defsubr (&Srecursion_depth); | |
11359 defsubr (&Stop_level); | |
11360 defsubr (&Sdiscard_input); | |
11361 defsubr (&Sopen_dribble_file); | |
11362 defsubr (&Sset_input_mode); | |
2651
d3f05a05fe2a
Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents:
2618
diff
changeset
|
11363 defsubr (&Scurrent_input_mode); |
518 | 11364 defsubr (&Sexecute_extended_command); |
55023
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
11365 defsubr (&Sposn_at_point); |
47f04c0afbde
(Fposn_at_x_y, Fposn_at_point): New defuns.
Kim F. Storm <storm@cua.dk>
parents:
54927
diff
changeset
|
11366 defsubr (&Sposn_at_x_y); |
518 | 11367 |
11368 DEFVAR_LISP ("last-command-char", &last_command_char, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11369 doc: /* Last input event that was part of a command. */); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11370 |
8039
7cc73292df36
(syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents:
7999
diff
changeset
|
11371 DEFVAR_LISP_NOPRO ("last-command-event", &last_command_char, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11372 doc: /* Last input event that was part of a command. */); |
518 | 11373 |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
11374 DEFVAR_LISP ("last-nonmenu-event", &last_nonmenu_event, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11375 doc: /* Last input event in a command, except for mouse menu events. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11376 Mouse menus give back keys that don't look like mouse events; |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11377 this variable holds the actual mouse event that led to the menu, |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11378 so that you can determine whether the command was run by mouse or not. */); |
1083
cbbbe0a96ecc
(last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents:
1046
diff
changeset
|
11379 |
518 | 11380 DEFVAR_LISP ("last-input-char", &last_input_char, |
40548
1c539cb16416
(lucid-menu-bar-dirty-flag): Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents:
40522
diff
changeset
|
11381 doc: /* Last input event. */); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11382 |
8039
7cc73292df36
(syms_of_keyboard): Don't staticpro the same var twice.
Karl Heuer <kwzh@gnu.org>
parents:
7999
diff
changeset
|
11383 DEFVAR_LISP_NOPRO ("last-input-event", &last_input_char, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11384 doc: /* Last input event. */); |
518 | 11385 |
7168
82bb839ac5c6
(Vunread_command_events): Renamed from unread_command_events.
Richard M. Stallman <rms@gnu.org>
parents:
7098
diff
changeset
|
11386 DEFVAR_LISP ("unread-command-events", &Vunread_command_events, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11387 doc: /* List of events to be read as the command input. |
73463
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
11388 These events are processed first, before actual keyboard input. |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
11389 Events read from this list are not normally added to `this-command-keys', |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
11390 as they will already have been added once as they were read for the first time. |
346f9b4afa15
(read_char): Make an element (t . EVENT) in
Kim F. Storm <storm@cua.dk>
parents:
73318
diff
changeset
|
11391 An element of the form (t . EVENT) forces EVENT to be added to that list. */); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11392 Vunread_command_events = Qnil; |
518 | 11393 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11394 DEFVAR_INT ("unread-command-char", &unread_command_char, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11395 doc: /* If not -1, an object to be read as next command input event. */); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11396 |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11397 DEFVAR_LISP ("unread-post-input-method-events", &Vunread_post_input_method_events, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11398 doc: /* List of events to be processed as input by input methods. |
72463
c1f4fd769a94
(syms_of_keyboard): Docstring of
Kenichi Handa <handa@m17n.org>
parents:
72460
diff
changeset
|
11399 These events are processed before `unread-command-events' |
c1f4fd769a94
(syms_of_keyboard): Docstring of
Kenichi Handa <handa@m17n.org>
parents:
72460
diff
changeset
|
11400 and actual keyboard input without given to `input-method-function'. */); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11401 Vunread_post_input_method_events = Qnil; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11402 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11403 DEFVAR_LISP ("unread-input-method-events", &Vunread_input_method_events, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11404 doc: /* List of events to be processed as input by input methods. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11405 These events are processed after `unread-command-events', but |
72463
c1f4fd769a94
(syms_of_keyboard): Docstring of
Kenichi Handa <handa@m17n.org>
parents:
72460
diff
changeset
|
11406 before actual keyboard input. |
c1f4fd769a94
(syms_of_keyboard): Docstring of
Kenichi Handa <handa@m17n.org>
parents:
72460
diff
changeset
|
11407 If there's an active input method, the events are given to |
c1f4fd769a94
(syms_of_keyboard): Docstring of
Kenichi Handa <handa@m17n.org>
parents:
72460
diff
changeset
|
11408 `input-method-function'. */); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11409 Vunread_input_method_events = Qnil; |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11410 |
518 | 11411 DEFVAR_LISP ("meta-prefix-char", &meta_prefix_char, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11412 doc: /* Meta-prefix character code. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11413 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
|
11414 XSETINT (meta_prefix_char, 033); |
518 | 11415 |
12160
14d4e014f55f
(last_command): Var deleted; now part of struct kboard.
Karl Heuer <kwzh@gnu.org>
parents:
12150
diff
changeset
|
11416 DEFVAR_KBOARD ("last-command", Vlast_command, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11417 doc: /* The last command executed. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11418 Normally a symbol with a function definition, but can be whatever was found |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11419 in the keymap, or whatever the variable `this-command' was set to by that |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11420 command. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11421 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11422 The value `mode-exit' is special; it means that the previous command |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11423 read an event that told it to exit, and it did so and unread that event. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11424 In other words, the present command is the event that made the previous |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11425 command exit. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11426 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11427 The value `kill-region' is special; it means that the previous command |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11428 was a kill command. */); |
518 | 11429 |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
11430 DEFVAR_KBOARD ("real-last-command", Vreal_last_command, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11431 doc: /* Same as `last-command', but never altered by Lisp code. */); |
22384
9ec0714b3e0b
(cmd_error): Init Vlast_prefix_arg.
Richard M. Stallman <rms@gnu.org>
parents:
22335
diff
changeset
|
11432 |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11433 DEFVAR_LISP ("this-command", &Vthis_command, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11434 doc: /* The command now being executed. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11435 The command can set this variable; whatever is put here |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11436 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
|
11437 Vthis_command = Qnil; |
518 | 11438 |
43154
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
11439 DEFVAR_LISP ("this-original-command", &Vthis_original_command, |
49581
1da238f2a17d
(syms_of_keyboard) <this-original-command>: Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
49549
diff
changeset
|
11440 doc: /* The command bound to the current key sequence before remapping. |
1da238f2a17d
(syms_of_keyboard) <this-original-command>: Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
49549
diff
changeset
|
11441 It equals `this-command' if the original command was not remapped through |
1da238f2a17d
(syms_of_keyboard) <this-original-command>: Doc fix.
Kim F. Storm <storm@cua.dk>
parents:
49549
diff
changeset
|
11442 any of the active keymaps. Otherwise, the value of `this-command' is the |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49593
diff
changeset
|
11443 result of looking up the original command in the active keymaps. */); |
43154
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
11444 Vthis_original_command = Qnil; |
241310b1046a
(Vthis_original_command): New variable.
Kim F. Storm <storm@cua.dk>
parents:
43149
diff
changeset
|
11445 |
518 | 11446 DEFVAR_INT ("auto-save-interval", &auto_save_interval, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11447 doc: /* *Number of input events between auto-saves. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11448 Zero means disable autosaving due to number of characters typed. */); |
518 | 11449 auto_save_interval = 300; |
11450 | |
11451 DEFVAR_LISP ("auto-save-timeout", &Vauto_save_timeout, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11452 doc: /* *Number of seconds idle time before auto-save. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11453 Zero or nil means disable auto-saving due to idleness. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11454 After auto-saving due to this many seconds of idle time, |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11455 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
|
11456 XSETFASTINT (Vauto_save_timeout, 30); |
518 | 11457 |
27766
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
11458 DEFVAR_LISP ("echo-keystrokes", &Vecho_keystrokes, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11459 doc: /* *Nonzero means echo unfinished commands after this many seconds of pause. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11460 The value may be integer or floating point. */); |
27766
e93e898c9e70
(echo_keystrokes): Remove declaration.
Dave Love <fx@gnu.org>
parents:
27668
diff
changeset
|
11461 Vecho_keystrokes = make_number (1); |
518 | 11462 |
11463 DEFVAR_INT ("polling-period", &polling_period, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11464 doc: /* *Interval between polling for input during Lisp execution. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11465 The reason for polling is to make C-g work to stop a running program. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11466 Polling is needed only when using X windows and SIGIO does not work. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11467 Polling is automatically disabled in all other cases. */); |
518 | 11468 polling_period = 2; |
10985
d917a965cb47
(unlock_display): current_perdisplay now is never null.
Karl Heuer <kwzh@gnu.org>
parents:
10984
diff
changeset
|
11469 |
3993
992a1abeb6cd
* keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents:
3972
diff
changeset
|
11470 DEFVAR_LISP ("double-click-time", &Vdouble_click_time, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11471 doc: /* *Maximum time between mouse clicks to make a double-click. |
74754
3db81fa14de8
(syms_of_keyboard) <double-click-time>: Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
74748
diff
changeset
|
11472 Measured in milliseconds. The value nil means disable double-click |
3db81fa14de8
(syms_of_keyboard) <double-click-time>: Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents:
74748
diff
changeset
|
11473 recognition; t means double-clicks have no time limit and are detected |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11474 by position only. */); |
3994
df443e5f391e
Fix initialization of Vdouble_click_time in syms_of_keyboard.
Jim Blandy <jimb@redhat.com>
parents:
3993
diff
changeset
|
11475 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
|
11476 |
38602 | 11477 DEFVAR_INT ("double-click-fuzz", &double_click_fuzz, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11478 doc: /* *Maximum mouse movement between clicks to make a double-click. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11479 On window-system frames, value is the number of pixels the mouse may have |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11480 moved horizontally or vertically between two clicks to make a double-click. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11481 On non window-system frames, value is interpreted in units of 1/8 characters |
42064
c4fada8ce869
(syms_of_keyboard) <double-click-fuzz>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41824
diff
changeset
|
11482 instead of pixels. |
c4fada8ce869
(syms_of_keyboard) <double-click-fuzz>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41824
diff
changeset
|
11483 |
c4fada8ce869
(syms_of_keyboard) <double-click-fuzz>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41824
diff
changeset
|
11484 This variable is also the threshold for motion of the mouse |
c4fada8ce869
(syms_of_keyboard) <double-click-fuzz>: Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
41824
diff
changeset
|
11485 to count as a drag. */); |
38602 | 11486 double_click_fuzz = 3; |
49549
99be3a1e2589
Cygwin support patch.
Juanma Barranquero <lekktu@gmail.com>
parents:
49408
diff
changeset
|
11487 |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
11488 DEFVAR_BOOL ("inhibit-local-menu-bar-menus", &inhibit_local_menu_bar_menus, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11489 doc: /* *Non-nil means inhibit local map menu bar menus. */); |
9396
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
11490 inhibit_local_menu_bar_menus = 0; |
c5d9742c47b3
(inhibit_local_menu_bar_menus): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9311
diff
changeset
|
11491 |
518 | 11492 DEFVAR_INT ("num-input-keys", &num_input_keys, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11493 doc: /* Number of complete key sequences read as input so far. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11494 This includes key sequences read from keyboard macros. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11495 The number is effectively the number of interactive command invocations. */); |
518 | 11496 num_input_keys = 0; |
11497 | |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
11498 DEFVAR_INT ("num-nonmacro-input-events", &num_nonmacro_input_events, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11499 doc: /* Number of input events read from the keyboard so far. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11500 This does not include events generated by keyboard macros. */); |
17873
f5778138efc7
(num_nonmacro_input_events):
Richard M. Stallman <rms@gnu.org>
parents:
17870
diff
changeset
|
11501 num_nonmacro_input_events = 0; |
17870
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
11502 |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
11503 DEFVAR_LISP ("last-event-frame", &Vlast_event_frame, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11504 doc: /* The frame in which the most recently read event occurred. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11505 If the last event came from a keyboard macro, this is set to `macro'. */); |
10861
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
11506 Vlast_event_frame = Qnil; |
655e3daa560c
(cmd_error): Use clear_prefix_arg.
Karl Heuer <kwzh@gnu.org>
parents:
10844
diff
changeset
|
11507 |
17870
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
11508 /* This variable is set up in sysdep.c. */ |
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
11509 DEFVAR_LISP ("tty-erase-char", &Vtty_erase_char, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11510 doc: /* The ERASE character as set by the user with stty. */); |
17870
abc5e3a73109
(Vtty_erase_char): Variable defined
Richard M. Stallman <rms@gnu.org>
parents:
17738
diff
changeset
|
11511 |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
11512 DEFVAR_LISP ("help-char", &Vhelp_char, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11513 doc: /* Character to recognize as meaning Help. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11514 When it is read, do `(eval help-form)', and display result if it's a string. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11515 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
|
11516 XSETINT (Vhelp_char, Ctl ('H')); |
518 | 11517 |
12144 | 11518 DEFVAR_LISP ("help-event-list", &Vhelp_event_list, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11519 doc: /* List of input events to recognize as meaning Help. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11520 These work just like the value of `help-char' (see that). */); |
12144 | 11521 Vhelp_event_list = Qnil; |
11522 | |
518 | 11523 DEFVAR_LISP ("help-form", &Vhelp_form, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11524 doc: /* Form to execute when character `help-char' is read. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11525 If the form returns a string, that string is displayed. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11526 If `help-form' is nil, the help char is not recognized. */); |
518 | 11527 Vhelp_form = Qnil; |
11528 | |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
11529 DEFVAR_LISP ("prefix-help-command", &Vprefix_help_command, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11530 doc: /* Command to run when `help-char' character follows a prefix key. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11531 This command is used only when there is no actual binding |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11532 for that character after that prefix key. */); |
3972
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
11533 Vprefix_help_command = Qnil; |
e49ff3115e7d
(read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents:
3929
diff
changeset
|
11534 |
518 | 11535 DEFVAR_LISP ("top-level", &Vtop_level, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11536 doc: /* Form to evaluate when Emacs starts up. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11537 Useful to set before you dump a modified Emacs. */); |
518 | 11538 Vtop_level = Qnil; |
11539 | |
11540 DEFVAR_LISP ("keyboard-translate-table", &Vkeyboard_translate_table, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11541 doc: /* Translate table for keyboard input, or nil. |
56367
2616c5cc9611
(syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56173
diff
changeset
|
11542 If non-nil, the value should be a char-table. Each character read |
2616c5cc9611
(syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56173
diff
changeset
|
11543 from the keyboard is looked up in this char-table. If the value found |
2616c5cc9611
(syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56173
diff
changeset
|
11544 there is non-nil, then it is used instead of the actual input character. |
2616c5cc9611
(syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56173
diff
changeset
|
11545 |
2616c5cc9611
(syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56173
diff
changeset
|
11546 The value can also be a string or vector, but this is considered obsolete. |
2616c5cc9611
(syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56173
diff
changeset
|
11547 If it is a string or vector of length N, character codes N and up are left |
2616c5cc9611
(syms_of_keyboard): Fix `keyboard-translate-table' docstring.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56173
diff
changeset
|
11548 untranslated. In a vector, an element which is nil means "no translation". |
48229
5d4678fa4feb
(command_loop_1): Apply Vtranslation_table_for_input
Dave Love <fx@gnu.org>
parents:
48146
diff
changeset
|
11549 |
5d4678fa4feb
(command_loop_1): Apply Vtranslation_table_for_input
Dave Love <fx@gnu.org>
parents:
48146
diff
changeset
|
11550 This is applied to the characters supplied to input methods, not their |
5d4678fa4feb
(command_loop_1): Apply Vtranslation_table_for_input
Dave Love <fx@gnu.org>
parents:
48146
diff
changeset
|
11551 output. See also `translation-table-for-input'. */); |
518 | 11552 Vkeyboard_translate_table = Qnil; |
11553 | |
6101
9b32ddce536b
(Fsuspend_emacs): New variable cannot-suspend forces a subshell even if the
Karl Heuer <kwzh@gnu.org>
parents:
6096
diff
changeset
|
11554 DEFVAR_BOOL ("cannot-suspend", &cannot_suspend, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11555 doc: /* Non-nil means to always spawn a subshell instead of suspending. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11556 \(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
|
11557 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
|
11558 |
518 | 11559 DEFVAR_BOOL ("menu-prompting", &menu_prompting, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11560 doc: /* Non-nil means prompt with menus when appropriate. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11561 This is done when reading from a keymap that has a prompt string, |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11562 for elements that have prompt strings. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11563 The menu is displayed on the screen |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11564 if X menus were enabled at configuration |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11565 time and the previous event was a mouse click prefix key. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11566 Otherwise, menu prompting uses the echo area. */); |
518 | 11567 menu_prompting = 1; |
11568 | |
11569 DEFVAR_LISP ("menu-prompt-more-char", &menu_prompt_more_char, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11570 doc: /* Character to see next line of menu prompt. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11571 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
|
11572 XSETINT (menu_prompt_more_char, ' '); |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
11573 |
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
11574 DEFVAR_INT ("extra-keyboard-modifiers", &extra_keyboard_modifiers, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11575 doc: /* A mask of additional modifier keys to use with every keyboard character. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11576 Emacs applies the modifiers of the character stored here to each keyboard |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11577 character it reads. For example, after evaluating the expression |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11578 (setq extra-keyboard-modifiers ?\\C-x) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11579 all input characters will have the control modifier applied to them. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11580 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11581 Note that the character ?\\C-@, equivalent to the integer zero, does |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11582 not count as a control character; rather, it counts as a character |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11583 with no modifiers; thus, setting `extra-keyboard-modifiers' to zero |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11584 cancels any modification. */); |
1842
2cc82d6070e2
(extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents:
1821
diff
changeset
|
11585 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
|
11586 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11587 DEFVAR_LISP ("deactivate-mark", &Vdeactivate_mark, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11588 doc: /* If an editing command sets this to t, deactivate the mark afterward. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11589 The command loop sets this to nil before each command, |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11590 and tests the value when the command returns. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11591 Buffer modification stores t in this variable. */); |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11592 Vdeactivate_mark = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11593 |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
11594 DEFVAR_LISP ("command-hook-internal", &Vcommand_hook_internal, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11595 doc: /* Temporary storage of pre-command-hook or post-command-hook. */); |
5894
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
11596 Vcommand_hook_internal = Qnil; |
89c310941fcb
(syms_of_keyboard): Add a DEFVAR for command-hook-internal.
Karl Heuer <kwzh@gnu.org>
parents:
5889
diff
changeset
|
11597 |
2045
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11598 DEFVAR_LISP ("pre-command-hook", &Vpre_command_hook, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11599 doc: /* Normal hook run before each command is executed. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11600 If an unhandled error happens in running this hook, |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11601 the hook value is set to nil, since otherwise the error |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11602 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
|
11603 Vpre_command_hook = Qnil; |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11604 |
cc85a38463b8
(follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents:
1988
diff
changeset
|
11605 DEFVAR_LISP ("post-command-hook", &Vpost_command_hook, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11606 doc: /* Normal hook run after each command is executed. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11607 If an unhandled error happens in running this hook, |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11608 the hook value is set to nil, since otherwise the error |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11609 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
|
11610 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
|
11611 |
40733
2b78c1af4afa
(echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
11612 #if 0 |
2b78c1af4afa
(echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
11613 DEFVAR_LISP ("echo-area-clear-hook", ..., |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11614 doc: /* Normal hook run when clearing the echo area. */); |
40733
2b78c1af4afa
(echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
11615 #endif |
2b78c1af4afa
(echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
11616 Qecho_area_clear_hook = intern ("echo-area-clear-hook"); |
64614
482ea9d640ec
(read_char): Test gc_cons_threshold.
Richard M. Stallman <rms@gnu.org>
parents:
64270
diff
changeset
|
11617 staticpro (&Qecho_area_clear_hook); |
40733
2b78c1af4afa
(echo-area-clear-hook): Undo Oct 29 change.
Richard M. Stallman <rms@gnu.org>
parents:
40656
diff
changeset
|
11618 SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil); |
16834
ec390b34ddc0
(command_loop_1, read_char):
Richard M. Stallman <rms@gnu.org>
parents:
16750
diff
changeset
|
11619 |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
11620 DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag, |
40548
1c539cb16416
(lucid-menu-bar-dirty-flag): Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents:
40522
diff
changeset
|
11621 doc: /* Non-nil means menu bar, specified Lucid style, needs to be recomputed. */); |
2188
f74e9c948380
(command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents:
2149
diff
changeset
|
11622 Vlucid_menu_bar_dirty_flag = Qnil; |
4088
bea0be5ab35e
(Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4065
diff
changeset
|
11623 |
4115
4aafcdc3d9e7
(Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents:
4106
diff
changeset
|
11624 DEFVAR_LISP ("menu-bar-final-items", &Vmenu_bar_final_items, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11625 doc: /* List of menu bar items to move to the end of the menu bar. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11626 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
|
11627 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
|
11628 |
12264 | 11629 DEFVAR_KBOARD ("overriding-terminal-local-map", |
11630 Voverriding_terminal_local_map, | |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11631 doc: /* Per-terminal keymap that overrides all other local keymaps. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11632 If this variable is non-nil, it is used as a keymap instead of the |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11633 buffer's local map, and the minor mode keymaps and text property keymaps. |
59520
864cb3ebda07
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
59078
diff
changeset
|
11634 It also replaces `overriding-local-map'. |
864cb3ebda07
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
59078
diff
changeset
|
11635 |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11636 This variable is intended to let commands such as `universal-argument' |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11637 set up a different keymap for reading the next command. */); |
12264 | 11638 |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
11639 DEFVAR_LISP ("overriding-local-map", &Voverriding_local_map, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11640 doc: /* Keymap that overrides all other local keymaps. |
59520
864cb3ebda07
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
59078
diff
changeset
|
11641 If this variable is non-nil, it is used as a keymap--replacing the |
864cb3ebda07
(syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
59078
diff
changeset
|
11642 buffer's local map, the minor mode keymaps, and char property keymaps. */); |
5614
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
11643 Voverriding_local_map = Qnil; |
16074afb03df
(Voverriding_local_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
5588
diff
changeset
|
11644 |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
11645 DEFVAR_LISP ("overriding-local-map-menu-flag", &Voverriding_local_map_menu_flag, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11646 doc: /* Non-nil means `overriding-local-map' applies to the menu bar. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11647 Otherwise, the menu bar continues to reflect the buffer's local map |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11648 and the minor mode maps regardless of `overriding-local-map'. */); |
9607
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
11649 Voverriding_local_map_menu_flag = Qnil; |
081040eb1863
(Voverriding_local_map_menu_flag): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
11650 |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
11651 DEFVAR_LISP ("special-event-map", &Vspecial_event_map, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11652 doc: /* Keymap defining bindings for special events to execute at low level. */); |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
11653 Vspecial_event_map = Fcons (intern ("keymap"), Qnil); |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
11654 |
9881
02cd4dde69e1
(tracking_off): Test old value with NILP.
Richard M. Stallman <rms@gnu.org>
parents:
9864
diff
changeset
|
11655 DEFVAR_LISP ("track-mouse", &do_mouse_tracking, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11656 doc: /* *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
|
11657 |
11543
317e5825008b
(Vsystem_key_alist): Delete global variable.
Karl Heuer <kwzh@gnu.org>
parents:
11540
diff
changeset
|
11658 DEFVAR_KBOARD ("system-key-alist", Vsystem_key_alist, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11659 doc: /* Alist of system-specific X windows key symbols. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11660 Each element should have the form (N . SYMBOL) where N is the |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11661 numeric keysym code (sans the \"system-specific\" bit 1<<28) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11662 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
|
11663 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
11664 DEFVAR_LISP ("deferred-action-list", &Vdeferred_action_list, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11665 doc: /* List of deferred actions to be performed at a later time. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11666 The precise format isn't relevant here; we just check whether it is nil. */); |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
11667 Vdeferred_action_list = Qnil; |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
11668 |
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
11669 DEFVAR_LISP ("deferred-action-function", &Vdeferred_action_function, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11670 doc: /* Function to call to handle deferred actions, after each command. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11671 This function is called with no arguments after each command |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11672 whenever `deferred-action-list' is non-nil. */); |
8302
4e5626d0b962
(Vdeferred_action_list, Vdeferred_action_function): New variables.
Richard M. Stallman <rms@gnu.org>
parents:
8247
diff
changeset
|
11673 Vdeferred_action_function = Qnil; |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
11674 |
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
11675 DEFVAR_LISP ("suggest-key-bindings", &Vsuggest_key_bindings, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11676 doc: /* *Non-nil means show the equivalent key-binding when M-x command has one. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11677 The value can be a length of time to show the message for. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11678 If the value is non-nil and not a number, we wait 2 seconds. */); |
13108
04466bd88580
(Vsuggest_key_bindings): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
13082
diff
changeset
|
11679 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
|
11680 |
14406
7d998103f266
(Qtimer_event): New symbol.
Richard M. Stallman <rms@gnu.org>
parents:
14219
diff
changeset
|
11681 DEFVAR_LISP ("timer-list", &Vtimer_list, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11682 doc: /* 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
|
11683 Vtimer_list = Qnil; |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
11684 |
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
11685 DEFVAR_LISP ("timer-idle-list", &Vtimer_idle_list, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11686 doc: /* List of active idle-time timers in order of increasing time. */); |
14612
0019d219990c
(swallow_events): New arg DO_DISPLAY.
Karl Heuer <kwzh@gnu.org>
parents:
14592
diff
changeset
|
11687 Vtimer_idle_list = Qnil; |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11688 |
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11689 DEFVAR_LISP ("input-method-function", &Vinput_method_function, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11690 doc: /* If non-nil, the function that implements the current input method. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11691 It's called with one argument, a printing character that was just read. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11692 \(That means a character with code 040...0176.) |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11693 Typically this function uses `read-event' to read additional events. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11694 When it does so, it should first bind `input-method-function' to nil |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11695 so it will not be called recursively. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11696 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11697 The function should return a list of zero or more events |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11698 to be used as input. If it wants to put back some events |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11699 to be reconsidered, separately, by the input method, |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11700 it can add them to the beginning of `unread-command-events'. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11701 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11702 The input method function can find in `input-method-previous-method' |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11703 the previous echo area message. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11704 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11705 The input method function should refer to the variables |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11706 `input-method-use-echo-area' and `input-method-exit-on-first-char' |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11707 for guidance on what to do. */); |
22833
a3fe2af7cefb
(Qinput_method_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
22551
diff
changeset
|
11708 Vinput_method_function = Qnil; |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11709 |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11710 DEFVAR_LISP ("input-method-previous-message", |
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11711 &Vinput_method_previous_message, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11712 doc: /* When `input-method-function' is called, hold the previous echo area message. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11713 This variable exists because `read-event' clears the echo area |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11714 before running the input method. It is nil if there was no message. */); |
22945
58a8427745ec
(Vthis_command): Renamed from this_command.
Richard M. Stallman <rms@gnu.org>
parents:
22835
diff
changeset
|
11715 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
|
11716 |
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11717 DEFVAR_LISP ("show-help-function", &Vshow_help_function, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11718 doc: /* If non-nil, the function that implements the display of help. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11719 It's called with one argument, the help string to display. */); |
25022
3ea84b15b5e6
(read_char): Use message3_nolog to show help-echo.
Gerd Moellmann <gerd@gnu.org>
parents:
24889
diff
changeset
|
11720 Vshow_help_function = Qnil; |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
11721 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
11722 DEFVAR_LISP ("disable-point-adjustment", &Vdisable_point_adjustment, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11723 doc: /* If non-nil, suppress point adjustment after executing a command. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11724 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11725 After a command is executed, if point is moved into a region that has |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11726 special properties (e.g. composition, display), we adjust point to |
56572
b427147a826a
(syms_of_keyboard) <disable-point-adjustment>: Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56477
diff
changeset
|
11727 the boundary of the region. But, when a command sets this variable to |
b427147a826a
(syms_of_keyboard) <disable-point-adjustment>: Doc fix.
Luc Teirlinck <teirllm@auburn.edu>
parents:
56477
diff
changeset
|
11728 non-nil, we suppress the point adjustment. |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11729 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11730 This variable is set to nil before reading a command, and is checked |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11731 just after executing the command. */); |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
11732 Vdisable_point_adjustment = Qnil; |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
11733 |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
11734 DEFVAR_LISP ("global-disable-point-adjustment", |
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
11735 &Vglobal_disable_point_adjustment, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11736 doc: /* *If non-nil, always suppress point adjustment. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11737 |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11738 The default value is nil, in which case, point adjustment are |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11739 suppressed only after special commands that set |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11740 `disable-point-adjustment' (which see) to non-nil. */); |
26863
9fa7ffa9b04d
(Vdisable_point_adjustment): New variable.
Kenichi Handa <handa@m17n.org>
parents:
26788
diff
changeset
|
11741 Vglobal_disable_point_adjustment = Qnil; |
32140
6c61e0dbf542
(update_menu_bindings): New variable.
Gerd Moellmann <gerd@gnu.org>
parents:
31995
diff
changeset
|
11742 |
33724
b04964da2e33
(Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents:
33445
diff
changeset
|
11743 DEFVAR_LISP ("minibuffer-message-timeout", &Vminibuffer_message_timeout, |
40416
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11744 doc: /* *How long to display an echo-area message when the minibuffer is active. |
ad876851e7ce
Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents:
40142
diff
changeset
|
11745 If the value is not a number, such messages don't time out. */); |
33724
b04964da2e33
(Vminibuffer_message_timeout): New variable.
Miles Bader <miles@gnu.org>
parents:
33445
diff
changeset
|
11746 Vminibuffer_message_timeout = make_number (2); |
58965
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
11747 |
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
11748 DEFVAR_LISP ("throw-on-input", &Vthrow_on_input, |
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
11749 doc: /* If non-nil, any keyboard input throws to this symbol. |
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
11750 The value of that variable is passed to `quit-flag' and later causes a |
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
11751 peculiar kind of quitting. */); |
47204c294c8d
(Vthrow_on_input): New variable.
Kim F. Storm <storm@cua.dk>
parents:
58904
diff
changeset
|
11752 Vthrow_on_input = Qnil; |
68792
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
11753 |
71947
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
11754 DEFVAR_LISP ("command-error-function", &Vcommand_error_function, |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
11755 doc: /* If non-nil, function to output error messages. |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
11756 The arguments are the error data, a list of the form |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
11757 (SIGNALED-CONDITIONS . SIGNAL-DATA) |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
11758 such as just as `condition-case' would bind its variable to, |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
11759 the context (a string which normally goes at the start of the message), |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
11760 and the Lisp function within which the error was signaled. */); |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
11761 Vcommand_error_function = Qnil; |
4bc25e59ebd1
(Vcommand_error_function): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
71835
diff
changeset
|
11762 |
68792
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
11763 DEFVAR_LISP ("enable-disabled-menus-and-buttons", |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
11764 &Venable_disabled_menus_and_buttons, |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
11765 doc: /* If non-nil, don't ignore events produced by disabled menu items and tool-bar. |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
11766 |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
11767 Help functions bind this to allow help on disabled menu items |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
11768 and tool-bar buttons. */); |
041aa462ad58
(Venable_disabled_menus_and_buttons): New variable.
Eli Zaretskii <eliz@gnu.org>
parents:
68758
diff
changeset
|
11769 Venable_disabled_menus_and_buttons = Qnil; |
518 | 11770 } |
11771 | |
21514 | 11772 void |
518 | 11773 keys_of_keyboard () |
11774 { | |
11775 initial_define_key (global_map, Ctl ('Z'), "suspend-emacs"); | |
11776 initial_define_key (control_x_map, Ctl ('Z'), "suspend-emacs"); | |
11777 initial_define_key (meta_map, Ctl ('C'), "exit-recursive-edit"); | |
11778 initial_define_key (global_map, Ctl (']'), "abort-recursive-edit"); | |
11779 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
|
11780 |
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
11781 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
|
11782 "handle-delete-frame"); |
60753
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11783 /* Here we used to use `ignore-event' which would simple set prefix-arg to |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11784 current-prefix-arg, as is done in `handle-switch-frame'. |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11785 But `handle-switch-frame is not run from the special-map. |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11786 Commands from that map are run in a special way that automatically |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11787 preserves the prefix-arg. Restoring the prefix arg here is not just |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11788 redundant but harmful: |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11789 - C-u C-x v = |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11790 - current-prefix-arg is set to non-nil, prefix-arg is set to nil. |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11791 - after the first prompt, the exit-minibuffer-hook is run which may |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11792 iconify a frame and thus push a `iconify-frame' event. |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11793 - after running exit-minibuffer-hook, current-prefix-arg is |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11794 restored to the non-nil value it had before the prompt. |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11795 - we enter the second prompt. |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11796 current-prefix-arg is non-nil, prefix-arg is nil. |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11797 - before running the first real event, we run the special iconify-frame |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11798 event, but we pass the `special' arg to execute-command so |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11799 current-prefix-arg and prefix-arg are left untouched. |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11800 - here we foolishly copy the non-nil current-prefix-arg to prefix-arg. |
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11801 - the next key event will have a spuriously non-nil current-prefix-arg. */ |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
11802 initial_define_lispy_key (Vspecial_event_map, "iconify-frame", |
60753
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11803 "ignore"); |
12469
bec888e46e6a
(Vspecial_event_map): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
12342
diff
changeset
|
11804 initial_define_lispy_key (Vspecial_event_map, "make-frame-visible", |
60753
bbeddd423eb1
(keys_of_keyboard): Just use `ignore' instead of the redundant `ignore-event'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
60653
diff
changeset
|
11805 "ignore"); |
50556
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
11806 /* Handling it at such a low-level causes read_key_sequence to get |
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
11807 * confused because it doesn't realize that the current_buffer was |
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
11808 * changed by read_char. |
54087 | 11809 * |
50556
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
11810 * initial_define_lispy_key (Vspecial_event_map, "select-window", |
34fbfb59283f
(kbd_buffer_get_event): Don't handle SELECT_WINDOW_EVENT
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50301
diff
changeset
|
11811 * "handle-select-window"); */ |
43814
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
11812 initial_define_lispy_key (Vspecial_event_map, "save-session", |
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
11813 "handle-save-session"); |
8090818ccd53
Added Emacs event save_session_event.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43785
diff
changeset
|
11814 } |
51577
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11815 |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11816 /* Mark the pointers in the kboard objects. |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11817 Called by the Fgarbage_collector. */ |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11818 void |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11819 mark_kboards () |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11820 { |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11821 KBOARD *kb; |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11822 Lisp_Object *p; |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11823 for (kb = all_kboards; kb; kb = kb->next_kboard) |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11824 { |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11825 if (kb->kbd_macro_buffer) |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11826 for (p = kb->kbd_macro_buffer; p < kb->kbd_macro_ptr; p++) |
51767
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11827 mark_object (*p); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11828 mark_object (kb->Voverriding_terminal_local_map); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11829 mark_object (kb->Vlast_command); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11830 mark_object (kb->Vreal_last_command); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11831 mark_object (kb->Vprefix_arg); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11832 mark_object (kb->Vlast_prefix_arg); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11833 mark_object (kb->kbd_queue); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11834 mark_object (kb->defining_kbd_macro); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11835 mark_object (kb->Vlast_kbd_macro); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11836 mark_object (kb->Vsystem_key_alist); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11837 mark_object (kb->system_key_syms); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11838 mark_object (kb->Vdefault_minibuffer_frame); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11839 mark_object (kb->echo_string); |
51577
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11840 } |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11841 { |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11842 struct input_event *event; |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11843 for (event = kbd_fetch_ptr; event != kbd_store_ptr; event++) |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11844 { |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11845 if (event == kbd_buffer + KBD_BUFFER_SIZE) |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11846 event = kbd_buffer; |
57950
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
11847 if (event->kind != SELECTION_REQUEST_EVENT |
c8eda2a302f0
(kbd_buffer_store_event_hold): Remove obsolete code.
Kim F. Storm <storm@cua.dk>
parents:
57410
diff
changeset
|
11848 && event->kind != SELECTION_CLEAR_EVENT) |
55575
a71808c780ee
(mark_kboards): Don't mark x and y members
Kim F. Storm <storm@cua.dk>
parents:
55023
diff
changeset
|
11849 { |
a71808c780ee
(mark_kboards): Don't mark x and y members
Kim F. Storm <storm@cua.dk>
parents:
55023
diff
changeset
|
11850 mark_object (event->x); |
a71808c780ee
(mark_kboards): Don't mark x and y members
Kim F. Storm <storm@cua.dk>
parents:
55023
diff
changeset
|
11851 mark_object (event->y); |
a71808c780ee
(mark_kboards): Don't mark x and y members
Kim F. Storm <storm@cua.dk>
parents:
55023
diff
changeset
|
11852 } |
51767
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11853 mark_object (event->frame_or_window); |
327b4f3daf30
(mark_kboards): Update calls to mark_object.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51635
diff
changeset
|
11854 mark_object (event->arg); |
51577
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11855 } |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11856 } |
f624d43a48fb
(mark_kboards): New fun, moved from alloc.c. Mark kbd_buffer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51465
diff
changeset
|
11857 } |
52401 | 11858 |
11859 /* arch-tag: 774e34d7-6d31-42f3-8397-e079a4e4c9ca | |
11860 (do not change this comment) */ |