annotate src/keyboard.c @ 5164:04d6b9e7782a

(vc-make-backup-files): Doc fix. (vc-rcs-status): Use colon, not dash, in the string LOCKS.
author Richard M. Stallman <rms@gnu.org>
date Thu, 25 Nov 1993 03:46:27 +0000
parents 16fe8285dc2a
children e2ebd4e12279
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* Keyboard and mouse input; editor command loop.
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2 Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993 Free Software Foundation, Inc.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 /* Allow config.h to undefine symbols found here. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 #include <signal.h>
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 4600
diff changeset
23 #include <config.h>
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 #include <stdio.h>
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 #undef NULL
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 #include "termchar.h"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 #include "termopts.h"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 #include "lisp.h"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 #include "termhooks.h"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 #include "macros.h"
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
31 #include "frame.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 #include "window.h"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 #include "commands.h"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 #include "buffer.h"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 #include "disptab.h"
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
36 #include "dispextern.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 #include "keyboard.h"
2061
8fe7e77dc596 Include intervals.h.
Richard M. Stallman <rms@gnu.org>
parents: 2056
diff changeset
38 #include "intervals.h"
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
39 #include "blockinput.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 #include <setjmp.h>
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 #include <errno.h>
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42
562
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
43 #ifndef VMS
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
44 #include <sys/ioctl.h>
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
45 #endif
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
46
0d73d7b5fff0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 547
diff changeset
47 #include "syssignal.h"
1046
d4b1e5db2b2a * keyboard.c: Include "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents: 1008
diff changeset
48 #include "systty.h"
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
49 #include "systime.h"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 extern int errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
53 /* 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
54
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
55 /* Non-zero if interrupt input is blocked right now. */
2481
a7a0f89c1f64 * keyboard.c (interrupt_input_blocked, interrupt_input_pending):
Jim Blandy <jimb@redhat.com>
parents: 2439
diff changeset
56 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
57
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
58 /* 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
59 during the current critical section. */
2481
a7a0f89c1f64 * keyboard.c (interrupt_input_blocked, interrupt_input_pending):
Jim Blandy <jimb@redhat.com>
parents: 2439
diff changeset
60 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
61
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
62
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 #ifdef HAVE_X_WINDOWS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 extern Lisp_Object Vmouse_grabbed;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 /* Make all keyboard buffers much bigger when using X windows. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 #define KBD_BUFFER_SIZE 4096
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 #else /* No X-windows, character input */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 #define KBD_BUFFER_SIZE 256
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 #endif /* No X-windows */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72 /* Following definition copied from eval.c */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 struct backtrace
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 struct backtrace *next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 Lisp_Object *function;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 Lisp_Object *args; /* Points to vector of args. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79 int nargs; /* length of vector. If nargs is UNEVALLED,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 args points to slot holding list of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 unevalled args */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82 char evalargs;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85 /* Non-nil disable property on a command means
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 do not execute it; call disabled-command-hook's value instead. */
4094
1dae74fd93d2 (Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4088
diff changeset
87 Lisp_Object Qdisabled, Qdisabled_command_hook;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 #define NUM_RECENT_KEYS (100)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 int recent_keys_index; /* Index for storing next element into recent_keys */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 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
92 Lisp_Object recent_keys; /* A vector, holding the last 100 keystrokes */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
94 /* 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
95 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
96 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
97 actually mean something.
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
98 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
99 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
100 int this_command_key_count;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 extern int minbuf_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 extern struct backtrace *backtrace_list;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106 /* Nonzero means do menu prompting. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107 static int menu_prompting;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 /* Character to see next line of menu prompt. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 static Lisp_Object menu_prompt_more_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112 /* For longjmp to where kbd input is being done. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 static jmp_buf getcjmp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115 /* True while doing kbd input. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116 int waiting_for_input;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 /* True while displaying for echoing. Delays C-g throwing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 static int echoing;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121 /* Nonzero means C-G should cause immediate error-signal. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122 int immediate_quit;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 /* 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
125 Lisp_Object Vhelp_char;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 /* Form to execute when help char is typed. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 Lisp_Object Vhelp_form;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
130 /* 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
131 Lisp_Object Vprefix_help_command;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
132
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
133 /* 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
134 Lisp_Object Vmenu_bar_final_items;
4088
bea0be5ab35e (Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents: 4065
diff changeset
135
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 /* Character that causes a quit. Normally C-g.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 If we are running on an ordinary terminal, this must be an ordinary
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 ASCII char, since we want to make it our interrupt character.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 If we are not running on an ordinary terminal, it still needs to be
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 an ordinary ASCII char. This character needs to be recognized in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 the input interrupt handler. At this point, the keystroke is
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 represented as a struct input_event, while the desired quit
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 character is specified as a lispy event. The mapping from struct
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 input_events to lispy events cannot run in an interrupt handler,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 and the reverse mapping is difficult for anything but ASCII
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 keystrokes.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150 FOR THESE ELABORATE AND UNSATISFYING REASONS, quit_char must be an
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151 ASCII character. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 int quit_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 extern Lisp_Object current_global_map;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 extern int minibuf_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157 /* Current depth in recursive edits. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 int command_loop_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160 /* Total number of times command_loop has read a key sequence. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 int num_input_keys;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
162
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163 /* Last input character read as a command. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164 Lisp_Object last_command_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
166 /* 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
167 reached by the mouse. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
168 Lisp_Object last_nonmenu_event;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
169
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 /* Last input character read for any purpose. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 Lisp_Object last_input_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
173 /* If not Qnil, a list of objects to be read as subsequent command input. */
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
174 Lisp_Object unread_command_events;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
176 /* If not -1, an event to be read as subsequent command input. */
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
177 int unread_command_char;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
178
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
179 /* 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
180 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
181 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
182
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
183 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
184 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
185 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
186 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
187
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
188 /* A mask of extra modifier bits to put into every keyboard char. */
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
189 int extra_keyboard_modifiers;
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
190
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 /* Char to use as prefix when a meta character is typed in.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 This is bound on entry to minibuffer in case ESC is changed there. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 Lisp_Object meta_prefix_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 /* Last size recorded for a current buffer which is not a minibuffer. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 static int last_non_minibuf_size;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198
687
e2b747dd6a6e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 682
diff changeset
199 /* Number of idle seconds before an auto-save and garbage collection. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 static Lisp_Object Vauto_save_timeout;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202 /* Total number of times read_char has returned. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203 int num_input_chars;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
205 /* Total number of times read_char has returned, outside of macros. */
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
206 int num_nonmacro_input_chars;
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
207
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 /* Auto-save automatically when this many characters have been typed
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 since the last time. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 static int auto_save_interval;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
213 /* Value of num_nonmacro_input_chars as of last auto save. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 int last_auto_save;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 /* Last command executed by the editor command loop, not counting
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 commands that set the prefix argument. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 Lisp_Object last_command;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 /* The command being executed by the command loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 Commands may set this, and the value set will be copied into last_command
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224 instead of the actual command. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225 Lisp_Object this_command;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
227 #ifdef MULTI_FRAME
1239
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
228 /* The frame in which the last input event occurred, or Qmacro if the
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
229 last event came from a macro. We use this to determine when to
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
230 generate switch-frame events. This may be cleared by functions
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
231 like Fselect_frame, to make sure that a switch-frame event is
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
232 generated by the next character. */
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
233 Lisp_Object internal_last_event_frame;
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
234
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
235 /* A user-visible version of the above, intended to allow users to
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
236 figure out where the last event came from, if the event doesn't
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
237 carry that information itself (i.e. if it was a character). */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
238 Lisp_Object Vlast_event_frame;
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
239 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
241 /* The timestamp of the last input event we received from the X server.
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
242 X Windows wants this for selection ownership. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 unsigned long last_event_timestamp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 Lisp_Object Qself_insert_command;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 Lisp_Object Qforward_char;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 Lisp_Object Qbackward_char;
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
248 Lisp_Object Qundefined;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 /* read_key_sequence stores here the command definition of the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 key sequence that it reads. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 Lisp_Object read_key_sequence_cmd;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
254 /* Form to evaluate (if non-nil) when Emacs is started. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
255 Lisp_Object Vtop_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
257 /* User-supplied string to translate input characters through. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 Lisp_Object Vkeyboard_translate_table;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 /* Keymap mapping ASCII function key sequences onto their preferred forms. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 extern Lisp_Object Vfunction_key_map;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
263 /* Keymap mapping ASCII function key sequences onto their preferred forms. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
264 Lisp_Object Vkey_translation_map;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
265
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
266 /* 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
267 Lisp_Object Vdeactivate_mark;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
268
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
269 /* 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
270
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
271 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
272 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
273
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
274 /* Hooks to run before and after each command. */
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
275 Lisp_Object Qpre_command_hook, Qpost_command_hook;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
276 Lisp_Object Vpre_command_hook, Vpost_command_hook;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
277
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 /* File in which we write all commands we read. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 FILE *dribble;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 /* Nonzero if input is available. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282 int input_pending;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283
2690
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
284 /* 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
285 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
286
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 int meta_key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 extern char *pending_malloc_warning;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 /* Circular buffer for pre-read keyboard input. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 static struct input_event kbd_buffer[KBD_BUFFER_SIZE];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
294 /* Vector to GCPRO the frames and windows mentioned in kbd_buffer.
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
295
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
296 The interrupt-level event handlers will never enqueue an event on a
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
297 frame which is not in Vframe_list, and once an event is dequeued,
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
298 internal_last_event_frame or the event itself points to the frame.
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
299 So that's all fine.
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
300
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
301 But while the event is sitting in the queue, it's completely
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
302 unprotected. Suppose the user types one command which will run for
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
303 a while and then delete a frame, and then types another event at
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
304 the frame that will be deleted, before the command gets around to
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
305 it. Suppose there are no references to this frame elsewhere in
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
306 Emacs, and a GC occurs before the second event is dequeued. Now we
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
307 have an event referring to a freed frame, which will crash Emacs
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
308 when it is dequeued.
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
309
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
310 Similar things happen when an event on a scroll bar is enqueued; the
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
311 window may be deleted while the event is in the queue.
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
312
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
313 So, we use this vector to protect the frame_or_window field in the
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
314 event queue. That way, they'll be dequeued as dead frames or
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
315 windows, but still valid lisp objects.
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
316
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
317 If kbd_buffer[i].kind != no_event, then
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
318 (XVECTOR (kbd_buffer_frame_or_window)->contents[i]
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
319 == kbd_buffer[i].frame_or_window. */
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
320 static Lisp_Object kbd_buffer_frame_or_window;
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
321
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 /* Pointer to next available character in kbd_buffer.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 If kbd_fetch_ptr == kbd_store_ptr, the buffer is empty.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 This may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 next available char is in kbd_buffer[0]. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 static struct input_event *kbd_fetch_ptr;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 /* Pointer to next place to store character in kbd_buffer. This
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 may be kbd_buffer + KBD_BUFFER_SIZE, meaning that the next
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 character should go in kbd_buffer[0]. */
1654
fe6f6e55182f * keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents: 1590
diff changeset
331 #ifdef __STDC__
fe6f6e55182f * keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents: 1590
diff changeset
332 volatile
fe6f6e55182f * keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents: 1590
diff changeset
333 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334 static struct input_event *kbd_store_ptr;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 /* The above pair of variables forms a "queue empty" flag. When we
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 enqueue a non-hook event, we increment kbd_write_count. When we
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 dequeue a non-hook event, we increment kbd_read_count. We say that
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
339 there is input available iff the two counters are not equal.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341 Why not just have a flag set and cleared by the enqueuing and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
342 dequeuing functions? Such a flag could be screwed up by interrupts
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343 at inopportune times. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
344
2719
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
345 /* If this flag is non-zero, we check mouse_moved to see when the
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
346 mouse moves, and motion events will appear in the input stream. If
2719
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
347 it is zero, mouse motion is ignored. */
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
348 static int do_mouse_tracking;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
349
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350 /* The window system handling code should set this if the mouse has
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351 moved since the last call to the mouse_position_hook. Calling that
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 hook should clear this. Code assumes that if this is set, it can
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 call mouse_position_hook to get the promised position, so don't set
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354 it unless you're prepared to substantiate the claim! */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355 int mouse_moved;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
356
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357 /* True iff there is an event in kbd_buffer, or if mouse tracking is
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 enabled and there is a new mouse position in the mouse movement
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359 buffer. Note that if this is false, that doesn't mean that there
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 is readable input; all the events in the queue might be button-up
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 events, and do_mouse_tracking might be off. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 #define EVENT_QUEUES_EMPTY \
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
363 ((kbd_fetch_ptr == kbd_store_ptr) && (!do_mouse_tracking || !mouse_moved))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 /* Symbols to head events. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 Lisp_Object Qmouse_movement;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
368 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
369 Lisp_Object Qswitch_frame;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
370
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371 /* Symbols to denote kinds of events. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372 Lisp_Object Qfunction_key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373 Lisp_Object Qmouse_click;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
374 /* Lisp_Object Qmouse_movement; - also an event header */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 /* Properties of event headers. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 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
378 Lisp_Object Qevent_symbol_elements;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
380 Lisp_Object Qmenu_enable;
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
381
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
382 /* 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
383 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
384 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
385 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
386 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
387 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
388
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
389 /* 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
390 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
391 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
392 apply_modifiers. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
393 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
394
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
395 /* Symbols to use for parts of windows. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
396 Lisp_Object Qmode_line;
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
397 Lisp_Object Qvertical_line;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
398 Lisp_Object Qvertical_scroll_bar;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
399 Lisp_Object Qmenu_bar;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
400
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
401 extern Lisp_Object Qmenu_enable;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
402
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
403 Lisp_Object recursive_edit_unwind (), command_loop ();
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
404 Lisp_Object Fthis_command_keys ();
4773
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
405 Lisp_Object Qextended_command_history;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
406
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
407 /* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
408 happens. */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
409 EMACS_TIME *input_available_clear_time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
411 /* Nonzero means use SIGIO interrupts; zero means use CBREAK mode.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
412 Default is 1 if INTERRUPT_INPUT is defined. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
413 int interrupt_input;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
415 /* Nonzero while interrupts are temporarily deferred during redisplay. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
416 int interrupts_deferred;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
418 /* nonzero means use ^S/^Q for flow control. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419 int flow_control;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
420
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
421 /* Allow m- file to inhibit use of FIONREAD. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 #ifdef BROKEN_FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
423 #undef FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426 /* We are unable to use interrupts if FIONREAD is not available,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
427 so flush SIGIO so we won't try. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428 #ifndef FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 #undef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
434 /* If we support X Windows, turn on the code to poll periodically
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
435 to detect C-g. It isn't actually used when doing interrupt input. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 #ifdef HAVE_X_WINDOWS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 #define POLL_FOR_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
439
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
440 /* Global variable declarations. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 /* Function for init_keyboard to call with no args (if nonzero). */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
443 void (*keyboard_init_hook) ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445 static int read_avail_input ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 static void get_input_pending ();
4282
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
447 static int readable_events ();
3453
1fd89e975a78 (read_char_menu_prompt): Now static. Add declaration.
Richard M. Stallman <rms@gnu.org>
parents: 3452
diff changeset
448 static Lisp_Object read_char_menu_prompt ();
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
449 static Lisp_Object make_lispy_event ();
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
450 static Lisp_Object make_lispy_movement ();
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
451 static Lisp_Object modify_event_symbol ();
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
452 static Lisp_Object make_lispy_switch_frame ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
453
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 /* > 0 if we are to echo keystrokes. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
455 static int echo_keystrokes;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
457 /* Nonzero means echo each character as typed. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
458 static int immediate_echo;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
459
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
460 /* The text we're echoing in the modeline - partial key sequences,
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
461 usually. '\0'-terminated. This really shouldn't have a fixed size. */
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
462 static char echobuf[300];
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464 /* Where to append more text to echobuf if we want to. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
465 static char *echoptr;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
467 #define min(a,b) ((a)<(b)?(a):(b))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
468 #define max(a,b) ((a)>(b)?(a):(b))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
469
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
470 /* Install the string STR as the beginning of the string of echoing,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
471 so that it serves as a prompt for the next character.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472 Also start echoing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
473
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474 echo_prompt (str)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
475 char *str;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
476 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477 int len = strlen (str);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
478 if (len > sizeof echobuf - 4)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479 len = sizeof echobuf - 4;
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
480 bcopy (str, echobuf, len);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481 echoptr = echobuf + len;
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
482 *echoptr = '\0';
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484 echo ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
485 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
486
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
487 /* Add C to the echo string, if echoing is going on.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
488 C can be a character, which is printed prettily ("M-C-x" and all that
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 jazz), or a symbol, whose name is printed. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
490
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
491 echo_char (c)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
492 Lisp_Object c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
493 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494 extern char *push_key_description ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
495
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
496 if (immediate_echo)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
497 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498 char *ptr = echoptr;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 if (ptr != echobuf)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501 *ptr++ = ' ';
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
503 /* 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
504 c = EVENT_HEAD (c);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506 if (XTYPE (c) == Lisp_Int)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508 if (ptr - echobuf > sizeof echobuf - 6)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
511 ptr = push_key_description (XINT (c), ptr);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 else if (XTYPE (c) == Lisp_Symbol)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 struct Lisp_String *name = XSYMBOL (c)->name;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 if (((ptr - echobuf) + name->size + 4) > sizeof echobuf)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 bcopy (name->data, ptr, name->size);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519 ptr += name->size;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
522 if (echoptr == echobuf && EQ (c, Vhelp_char))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
523 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
524 strcpy (ptr, " (Type ? for further options)");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
525 ptr += strlen (ptr);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
526 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
528 *ptr = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 echoptr = ptr;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 echo ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
534
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
535 /* Temporarily add a dash to the end of the echo string if it's not
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
536 empty, so that it serves as a mini-prompt for the very next character. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
537
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
538 echo_dash ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
539 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
540 if (!immediate_echo && echoptr == echobuf)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
541 return;
2505
c0a13d078f68 * keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents: 2482
diff changeset
542 /* Do nothing if not echoing at all. */
c0a13d078f68 * keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents: 2482
diff changeset
543 if (echoptr == 0)
c0a13d078f68 * keyboard.c (echo_dash): Do nothing if echoptr is 0.
Jim Blandy <jimb@redhat.com>
parents: 2482
diff changeset
544 return;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
546 /* Put a dash at the end of the buffer temporarily,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
547 but make it go away when the next character is added. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
548 echoptr[0] = '-';
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
549 echoptr[1] = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
550
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
551 echo ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
552 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
553
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
554 /* Display the current echo string, and begin echoing if not already
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555 doing so. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
557 echo ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559 if (!immediate_echo)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
560 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
561 int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
562 immediate_echo = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
563
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
564 for (i = 0; i < this_command_key_count; i++)
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
565 echo_char (XVECTOR (this_command_keys)->contents[i]);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
566 echo_dash ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
567 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
568
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
569 echoing = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
570 message1 (echobuf);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
571 echoing = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
572
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
573 if (waiting_for_input && !NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
574 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
575 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
576
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
577 /* Turn off echoing, for the start of a new command. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
578
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
579 cancel_echoing ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
580 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
581 immediate_echo = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
582 echoptr = echobuf;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
584
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
585 /* Return the length of the current echo string. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
586
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
587 static int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588 echo_length ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
589 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
590 return echoptr - echobuf;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
591 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
592
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
593 /* Truncate the current echo message to its first LEN chars.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 This and echo_char get used by read_key_sequence when the user
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
595 switches frames while entering a key sequence. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
596
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
597 static void
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598 echo_truncate (len)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
599 int len;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
600 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
601 echobuf[len] = '\0';
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
602 echoptr = echobuf + len;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
603 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
604
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
605
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
606 /* Functions for manipulating this_command_keys. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607 static void
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
608 add_command_key (key)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
609 Lisp_Object key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
610 {
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
611 int size = XVECTOR (this_command_keys)->size;
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
612
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
613 if (this_command_key_count >= size)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
614 {
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
615 Lisp_Object new_keys = Fmake_vector (make_number (size * 2), Qnil);
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
616
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
617 bcopy (XVECTOR (this_command_keys)->contents,
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
618 XVECTOR (new_keys)->contents,
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
619 size * sizeof (Lisp_Object));
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
620
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
621 this_command_keys = new_keys;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622 }
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
623
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
624 XVECTOR (this_command_keys)->contents[this_command_key_count++] = key;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
625 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
626
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
627 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
628 recursive_edit_1 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
629 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
630 int count = specpdl_ptr - specpdl;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
631 Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
632
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
633 if (command_loop_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
634 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
635 specbind (Qstandard_output, Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
636 specbind (Qstandard_input, Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
637 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
638
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
639 val = command_loop ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
640 if (EQ (val, Qt))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
641 Fsignal (Qquit, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
642
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
643 return unbind_to (count, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
644 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
645
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
646 /* When an auto-save happens, record the "time", and don't do again soon. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
647 record_auto_save ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
648 {
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
649 last_auto_save = num_nonmacro_input_chars;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
650 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
651
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
652 DEFUN ("recursive-edit", Frecursive_edit, Srecursive_edit, 0, 0, "",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
653 "Invoke the editor command loop recursively.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
654 To get out of the recursive edit, a command can do `(throw 'exit nil)';\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
655 that tells this function to return.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
656 Alternately, `(throw 'exit t)' makes this function signal an error.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
657 This function is called by the editor initialization to begin editing.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
658 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
659 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
660 int count = specpdl_ptr - specpdl;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
661 Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
662
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
663 command_loop_level++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
664 update_mode_lines = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
665
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
666 record_unwind_protect (recursive_edit_unwind,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
667 (command_loop_level
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
668 && current_buffer != XBUFFER (XWINDOW (selected_window)->buffer))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
669 ? Fcurrent_buffer ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
670 : Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
671 recursive_edit_1 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
672 return unbind_to (count, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
673 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
674
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
675 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
676 recursive_edit_unwind (buffer)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
677 Lisp_Object buffer;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
678 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
679 if (!NILP (buffer))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
680 Fset_buffer (buffer);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
681
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
682 command_loop_level--;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
683 update_mode_lines = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
684 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
685 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
686
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
687 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
688 cmd_error (data)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
689 Lisp_Object data;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
690 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
691 Lisp_Object errmsg, tail, errname, file_error;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
692 Lisp_Object stream;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
693 struct gcpro gcpro1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
694 int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
695
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
696 Vquit_flag = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
697 Vinhibit_quit = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
698 Vstandard_output = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
699 Vstandard_input = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
700 Vexecuting_macro = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
701 echo_area_glyphs = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
702
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
703 /* If the window system or terminal frame hasn't been initialized
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
704 yet, or we're not interactive, it's best to dump this message out
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
705 to stderr and exit. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
706 if (! FRAME_MESSAGE_BUF (selected_frame)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
707 || noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
708 stream = Qexternal_debugging_output;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
709 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
710 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
711 Fdiscard_input ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
712 bitch_at_user ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
713 stream = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
714 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
715
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
716 errname = Fcar (data);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
717
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
718 if (EQ (errname, Qerror))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
719 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
720 data = Fcdr (data);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
721 if (!CONSP (data)) data = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
722 errmsg = Fcar (data);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
723 file_error = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
725 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
726 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
727 errmsg = Fget (errname, Qerror_message);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
728 file_error = Fmemq (Qfile_error,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
729 Fget (errname, Qerror_conditions));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
731
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
732 /* Print an error message including the data items.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
733 This is done by printing it into a scratch buffer
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 and then making a copy of the text in the buffer. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
735
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
736 if (!CONSP (data)) data = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
737 tail = Fcdr (data);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
738 GCPRO1 (tail);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
739
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
740 /* For file-error, make error message by concatenating
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
741 all the data items. They are all strings. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
742 if (!NILP (file_error) && !NILP (tail))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743 errmsg = XCONS (tail)->car, tail = XCONS (tail)->cdr;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
745 if (XTYPE (errmsg) == Lisp_String)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
746 Fprinc (errmsg, stream);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
747 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
748 write_string_1 ("peculiar error", -1, stream);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
749
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
750 for (i = 0; CONSP (tail); tail = Fcdr (tail), i++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
751 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
752 write_string_1 (i ? ", " : ": ", 2, stream);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
753 if (!NILP (file_error))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
754 Fprinc (Fcar (tail), stream);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
755 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
756 Fprin1 (Fcar (tail), stream);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
757 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
758 UNGCPRO;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
759
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
760 /* If the window system or terminal frame hasn't been initialized
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
761 yet, or we're in -batch mode, this error should cause Emacs to exit. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
762 if (! FRAME_MESSAGE_BUF (selected_frame)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
763 || noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
764 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765 Fterpri (stream);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
766 Fkill_emacs (make_number (-1));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
767 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
769 Vquit_flag = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
770
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
771 Vinhibit_quit = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
772 return make_number (0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
773 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
774
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
775 Lisp_Object command_loop_1 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
776 Lisp_Object command_loop_2 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
777 Lisp_Object top_level_1 ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
778
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
779 /* Entry to editor-command-loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
780 This level has the catches for exiting/returning to editor command loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
781 It returns nil to exit recursive edit, t to abort it. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
782
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
784 command_loop ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
785 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
786 if (command_loop_level > 0 || minibuf_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
787 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
788 return internal_catch (Qexit, command_loop_2, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
789 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
790 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
791 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
792 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
793 internal_catch (Qtop_level, top_level_1, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
794 internal_catch (Qtop_level, command_loop_2, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
795
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
796 /* End of file in -batch run causes exit here. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
797 if (noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
798 Fkill_emacs (Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
799 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
800 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
801
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
802 /* Here we catch errors in execution of commands within the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
803 editing loop, and reenter the editing loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
804 When there is an error, cmd_error runs and returns a non-nil
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
805 value to us. A value of nil means that cmd_loop_1 itself
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
806 returned due to end of file (or end of kbd macro). */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
807
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
809 command_loop_2 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
810 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
811 register Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
812
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
813 do
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 val = internal_condition_case (command_loop_1, Qerror, cmd_error);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
815 while (!NILP (val));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
816
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
817 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
818 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
819
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
820 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
821 top_level_2 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
822 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
823 return Feval (Vtop_level);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
824 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
825
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
826 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
827 top_level_1 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
828 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
829 /* On entry to the outer level, run the startup file */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
830 if (!NILP (Vtop_level))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
831 internal_condition_case (top_level_2, Qerror, cmd_error);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
832 else if (!NILP (Vpurify_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
833 message ("Bare impure Emacs (standard Lisp code not loaded)");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
834 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
835 message ("Bare Emacs (standard Lisp code not loaded)");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
836 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
837 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
838
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
839 DEFUN ("top-level", Ftop_level, Stop_level, 0, 0, "",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840 "Exit all recursive editing levels.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
841 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
842 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
843 Fthrow (Qtop_level, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
844 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
845
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
846 DEFUN ("exit-recursive-edit", Fexit_recursive_edit, Sexit_recursive_edit, 0, 0, "",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
847 "Exit from the innermost recursive edit or minibuffer.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
848 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
849 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
850 if (command_loop_level > 0 || minibuf_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
851 Fthrow (Qexit, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
852
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
853 error ("No recursive edit is in progress");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
854 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
855
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
856 DEFUN ("abort-recursive-edit", Fabort_recursive_edit, Sabort_recursive_edit, 0, 0, "",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
857 "Abort the command that requested this recursive edit or minibuffer input.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
858 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
859 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
860 if (command_loop_level > 0 || minibuf_level > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
861 Fthrow (Qexit, Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
862
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
863 error ("No recursive edit is in progress");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
864 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
865
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
866 /* This is the actual command reading loop,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
867 sans error-handling encapsulation. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
868
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
869 Lisp_Object Fcommand_execute ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
870 static int read_key_sequence ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
871
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
872 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
873 command_loop_1 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
874 {
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
875 Lisp_Object cmd, tem;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
876 int lose;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
877 int nonundocount;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
878 Lisp_Object keybuf[30];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
879 int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
880 int no_redisplay;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
881 int no_direct;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
882 int prev_modiff;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
883 struct buffer *prev_buffer;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
884
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
885 Vprefix_arg = Qnil;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
886 Vdeactivate_mark = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
887 waiting_for_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
888 cancel_echoing ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
889
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
890 /* Don't clear out last_command at the beginning of a macro. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
891 if (XTYPE (Vexecuting_macro) != Lisp_String)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
892 last_command = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
893
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
894 nonundocount = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
895 no_redisplay = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
896 this_command_key_count = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
897
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
898 /* Make sure this hook runs after commands that get errors and
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
899 throw to top level. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
900 if (!NILP (Vpost_command_hook))
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
901 call1 (Vrun_hooks, Qpost_command_hook);
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
902
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
903 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
904 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
905 /* Install chars successfully executed in kbd macro. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
906
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
907 if (defining_kbd_macro && NILP (Vprefix_arg))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
908 finalize_kbd_macro_chars ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
909
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
910 /* Make sure the current window's buffer is selected. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
911 if (XBUFFER (XWINDOW (selected_window)->buffer) != current_buffer)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
912 set_buffer_internal (XBUFFER (XWINDOW (selected_window)->buffer));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
913
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
914 /* Display any malloc warning that just came out. Use while because
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
915 displaying one warning can cause another. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
916
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
917 while (pending_malloc_warning)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
918 display_malloc_warning ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
919
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
920 no_direct = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
921
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
922 Vdeactivate_mark = Qnil;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
923
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
924 /* If minibuffer on and echo area in use,
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3538
diff changeset
925 wait 2 sec and redraw minibuffer. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
926
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
927 if (minibuf_level && echo_area_glyphs)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
928 {
1097
d9efc1c88574 (command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents: 1083
diff changeset
929 /* 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
930 rather than quitting back to the minibuffer. */
d9efc1c88574 (command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents: 1083
diff changeset
931 int count = specpdl_ptr - specpdl;
d9efc1c88574 (command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents: 1083
diff changeset
932 specbind (Qinhibit_quit, Qt);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
933 Fsit_for (make_number (2), Qnil, Qnil);
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
934 unbind_to (count, Qnil);
1097
d9efc1c88574 (command_loop_1): Bind inhibit-quit to t when in Fsit_for.
Richard M. Stallman <rms@gnu.org>
parents: 1083
diff changeset
935
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
936 echo_area_glyphs = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
937 no_direct = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
938 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
939 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
940 Vquit_flag = Qnil;
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
941 unread_command_events = Fcons (make_number (quit_char), Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
942 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
943 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
944
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
945 #ifdef C_ALLOCA
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946 alloca (0); /* Cause a garbage collection now */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
947 /* Since we can free the most stuff here. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948 #endif /* C_ALLOCA */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
949
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
950 #if 0
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
951 #ifdef MULTI_FRAME
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
952 /* 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
953 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
954 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
955 Is this a good idea? */
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
956 if (XTYPE (internal_last_event_frame) == Lisp_Frame
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
957 && XFRAME (internal_last_event_frame) != selected_frame)
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
958 Fselect_frame (internal_last_event_frame, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
959 #endif
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
960 #endif
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
961 /* 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
962 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
963 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
964 && !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
965 call0 (Qrecompute_lucid_menubar);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
966
2789
6ec57c1558da (command_loop_1): Don't do it here.
Richard M. Stallman <rms@gnu.org>
parents: 2756
diff changeset
967 #if 0 /* This is done in xdisp.c now. */
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
968 #ifdef MULTI_FRAME
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
969 for (tem = Vframe_list; CONSP (tem); tem = XCONS (tem)->cdr)
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
970 {
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
971 struct frame *f = XFRAME (XCONS (tem)->car);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
972 struct window *w = XWINDOW (FRAME_SELECTED_WINDOW (f));
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
973
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
974 /* If the user has switched buffers or windows, we need to
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
975 recompute to reflect the new bindings. But we'll
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
976 recompute when update_mode_lines is set too; that means
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
977 that people can use force-mode-line-update to request
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
978 that the menu bar be recomputed. The adverse effect on
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
979 the rest of the redisplay algorithm is about the same as
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
980 windows_or_buffers_changed anyway. */
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
981 if (windows_or_buffers_changed
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
982 || update_mode_lines
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
983 || (XFASTINT (w->last_modified) < MODIFF
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
984 && (XFASTINT (w->last_modified)
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
985 <= XBUFFER (w->buffer)->save_modified)))
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
986 {
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
987 struct buffer *prev = current_buffer;
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
988 current_buffer = XBUFFER (w->buffer);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
989 FRAME_MENU_BAR_ITEMS (f) = menu_bar_items ();
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
990 current_buffer = prev;
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
991 }
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
992 }
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
993 #endif /* MULTI_FRAME */
2789
6ec57c1558da (command_loop_1): Don't do it here.
Richard M. Stallman <rms@gnu.org>
parents: 2756
diff changeset
994 #endif /* 0 */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
995
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
996 /* Read next key sequence; i gets its length. */
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
997 i = read_key_sequence (keybuf, (sizeof keybuf / sizeof (keybuf[0])), Qnil);
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
998
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
999 ++num_input_keys;
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1000
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1001 /* Now we have read a key sequence of length I,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1002 or else I is 0 and we found end of file. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1003
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1004 if (i == 0) /* End of file -- happens only in */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1005 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
1006 /* -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
1007 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
1008 if (i == -1)
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1009 {
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1010 cancel_echoing ();
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1011 this_command_key_count = 0;
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1012 continue;
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1013 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1014
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1015 last_command_char = keybuf[i - 1];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1016
2406
465732c007f4 (command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents: 2340
diff changeset
1017 /* 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
1018 forget about that, in case this command moves point far away
465732c007f4 (command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents: 2340
diff changeset
1019 from that position. */
465732c007f4 (command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents: 2340
diff changeset
1020 XWINDOW (selected_window)->force_start = Qnil;
465732c007f4 (command_loop_1): Clear force_start of selected_window
Richard M. Stallman <rms@gnu.org>
parents: 2340
diff changeset
1021
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1022 cmd = read_key_sequence_cmd;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1023 if (!NILP (Vexecuting_macro))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1024 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1025 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1026 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1027 Vexecuting_macro = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1028 QUIT; /* Make some noise. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1029 /* Will return since macro now empty. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1030 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1031 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1032
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1033 /* Do redisplay processing after this command except in special
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1034 cases identified below that set no_redisplay to 1. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1035 no_redisplay = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1036
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1037 prev_buffer = current_buffer;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1038 prev_modiff = MODIFF;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1039
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1040 /* Execute the command. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1041
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1042 this_command = cmd;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1043 if (!NILP (Vpre_command_hook))
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1044 call1 (Vrun_hooks, Qpre_command_hook);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1045
2924
6e233798a3f7 (read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents: 2898
diff changeset
1046 if (NILP (this_command))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1047 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1048 /* nil means key is undefined. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1049 bitch_at_user ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1050 defining_kbd_macro = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1051 update_mode_lines = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1052 Vprefix_arg = Qnil;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1053
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1054 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1055 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1056 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1057 if (NILP (Vprefix_arg) && ! no_direct)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1058 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1059 /* Recognize some common commands in common situations and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1060 do them directly. */
2924
6e233798a3f7 (read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents: 2898
diff changeset
1061 if (EQ (this_command, Qforward_char) && point < ZV)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1062 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1063 struct Lisp_Vector *dp
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1064 = window_display_table (XWINDOW (selected_window));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1065 lose = FETCH_CHAR (point);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1066 SET_PT (point + 1);
2097
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1067 if ((dp
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1068 ? (XTYPE (DISP_CHAR_VECTOR (dp, lose)) != Lisp_Vector
2133
63d15b0e048e (command_loop_1): Typo in last change.
Richard M. Stallman <rms@gnu.org>
parents: 2097
diff changeset
1069 && XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1)
2097
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1070 : (lose >= 0x20 && lose < 0x7f))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1071 && (XFASTINT (XWINDOW (selected_window)->last_modified)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1072 >= MODIFF)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1073 && (XFASTINT (XWINDOW (selected_window)->last_point)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1074 == point - 1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1075 && !windows_or_buffers_changed
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1076 && EQ (current_buffer->selective_display, Qnil)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1077 && !detect_input_pending ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1078 && NILP (Vexecuting_macro))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1079 no_redisplay = direct_output_forward_char (1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1080 goto directly_done;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1081 }
2924
6e233798a3f7 (read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents: 2898
diff changeset
1082 else if (EQ (this_command, Qbackward_char) && point > BEGV)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1083 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1084 struct Lisp_Vector *dp
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1085 = window_display_table (XWINDOW (selected_window));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1086 SET_PT (point - 1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1087 lose = FETCH_CHAR (point);
2097
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1088 if ((dp
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1089 ? (XTYPE (DISP_CHAR_VECTOR (dp, lose)) != Lisp_Vector
2133
63d15b0e048e (command_loop_1): Typo in last change.
Richard M. Stallman <rms@gnu.org>
parents: 2097
diff changeset
1090 && XVECTOR (DISP_CHAR_VECTOR (dp, lose))->size == 1)
2097
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1091 : (lose >= 0x20 && lose < 0x7f))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1092 && (XFASTINT (XWINDOW (selected_window)->last_modified)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1093 >= MODIFF)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1094 && (XFASTINT (XWINDOW (selected_window)->last_point)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1095 == point + 1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1096 && !windows_or_buffers_changed
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1097 && EQ (current_buffer->selective_display, Qnil)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1098 && !detect_input_pending ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1099 && NILP (Vexecuting_macro))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1100 no_redisplay = direct_output_forward_char (-1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1101 goto directly_done;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1102 }
2924
6e233798a3f7 (read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents: 2898
diff changeset
1103 else if (EQ (this_command, Qself_insert_command)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1104 /* Try this optimization only on ascii keystrokes. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1105 && XTYPE (last_command_char) == Lisp_Int)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1106 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1107 unsigned char c = XINT (last_command_char);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1108
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1109 if (NILP (Vexecuting_macro) &&
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1110 !EQ (minibuf_window, selected_window))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1111 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1112 if (!nonundocount || nonundocount >= 20)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1113 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1114 Fundo_boundary ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1115 nonundocount = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1116 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1117 nonundocount++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1118 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1119 lose = (XFASTINT (XWINDOW (selected_window)->last_modified)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1120 < MODIFF)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1121 || (XFASTINT (XWINDOW (selected_window)->last_point)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1122 != point)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1123 || MODIFF <= current_buffer->save_modified
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1124 || windows_or_buffers_changed
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1125 || !EQ (current_buffer->selective_display, Qnil)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1126 || detect_input_pending ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1127 || !NILP (Vexecuting_macro);
3677
597bde558c91 (read_char): Set c properly as a Lisp int.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1128 if (internal_self_insert (c, 0))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1129 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1130 lose = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1131 nonundocount = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1132 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1133 if (!lose &&
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1134 (point == ZV || FETCH_CHAR (point) == '\n'))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1135 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1136 struct Lisp_Vector *dp
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1137 = window_display_table (XWINDOW (selected_window));
3677
597bde558c91 (read_char): Set c properly as a Lisp int.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
1138 int lose = c;
2097
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1139
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1140 if (dp)
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1141 {
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1142 Lisp_Object obj = DISP_CHAR_VECTOR (dp, lose);
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1143
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1144 if (XTYPE (obj) == Lisp_Vector
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1145 && XVECTOR (obj)->size == 1
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1146 && (XTYPE (obj = XVECTOR (obj)->contents[0])
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1147 == Lisp_Int))
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1148 no_redisplay =
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1149 direct_output_for_insert (XINT (obj));
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1150 }
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1151 else
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1152 {
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1153 if (lose >= 0x20 && lose <= 0x7e)
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1154 no_redisplay = direct_output_for_insert (lose);
dd4410e55081 * keyboard.c (command_loop_1): Adjust to the fact that display
Jim Blandy <jimb@redhat.com>
parents: 2061
diff changeset
1155 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1156 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1157 goto directly_done;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1158 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1159 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1160
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1161 /* Here for a command that isn't executed directly */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1162
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1163 nonundocount = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1164 if (NILP (Vprefix_arg))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1165 Fundo_boundary ();
2924
6e233798a3f7 (read_key_sequence): Reexamine this_command
Richard M. Stallman <rms@gnu.org>
parents: 2898
diff changeset
1166 Fcommand_execute (this_command, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1167
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1168 }
547
1856d835aac3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 518
diff changeset
1169 directly_done: ;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1170
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1171 if (!NILP (Vpost_command_hook))
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1172 call1 (Vrun_hooks, Qpost_command_hook);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1173
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1174 /* If there is a prefix argument,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1175 1) We don't want last_command to be ``universal-argument''
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1176 (that would be dumb), so don't set last_command,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1177 2) we want to leave echoing on so that the prefix will be
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1178 echoed as part of this key sequence, so don't call
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1179 cancel_echoing, and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1180 3) we want to leave this_command_key_count non-zero, so that
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1181 read_char will realize that it is re-reading a character, and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1182 not echo it a second time. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1183 if (NILP (Vprefix_arg))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1184 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1185 last_command = this_command;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1186 cancel_echoing ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1187 this_command_key_count = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1188 }
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1189
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1190 if (!NILP (current_buffer->mark_active))
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1191 {
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1192 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
1193 {
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1194 current_buffer->mark_active = Qnil;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1195 call1 (Vrun_hooks, intern ("deactivate-mark-hook"));
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1196 }
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1197 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
1198 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
1199 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1200 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1201 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1202
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1203 /* Number of seconds between polling for input. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1204 int polling_period;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1205
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3538
diff changeset
1206 /* Nonzero means polling for input is temporarily suppressed. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1207 int poll_suppress_count;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1208
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1209 #ifdef POLL_FOR_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1210 int polling_for_input;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1211
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1212 /* Handle an alarm once each second and read pending input
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1213 so as to handle a C-g if it comces in. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1214
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1215 SIGTYPE
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1216 input_poll_signal ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1217 {
2439
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
1218 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
1219 && !waiting_for_input)
b6c62e4abf59 Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents: 2436
diff changeset
1220 read_avail_input (0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1221 signal (SIGALRM, input_poll_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1222 alarm (polling_period);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1223 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1224
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1225 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1226
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1227 /* Begin signals to poll for input, if they are appropriate.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1228 This function is called unconditionally from various places. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1229
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1230 start_polling ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1231 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1232 #ifdef POLL_FOR_INPUT
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
1233 if (read_socket_hook && !interrupt_input)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1234 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1235 poll_suppress_count--;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1236 if (poll_suppress_count == 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1237 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1238 signal (SIGALRM, input_poll_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1239 polling_for_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1240 alarm (polling_period);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1241 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1242 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1243 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1244 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1245
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1246 /* Turn off polling. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1247
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1248 stop_polling ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1249 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1250 #ifdef POLL_FOR_INPUT
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
1251 if (read_socket_hook && !interrupt_input)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1252 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1253 if (poll_suppress_count == 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1254 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1255 polling_for_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1256 alarm (0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1257 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1258 poll_suppress_count++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1259 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1260 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1261 }
4475
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1262
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1263 /* 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
1264 and start or stop polling accordingly. */
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1265
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1266 void
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1267 set_poll_suppress_count (count)
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1268 int count;
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1269 {
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1270 #ifdef POLL_FOR_INPUT
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1271 if (count == 0 && poll_suppress_count != 0)
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1272 {
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1273 poll_suppress_count = 1;
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1274 start_polling ();
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1275 }
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1276 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
1277 {
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1278 stop_polling ();
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1279 }
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1280 poll_suppress_count = count;
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1281 #endif
e9389ba6e04c (set_poll_suppress_count): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4471
diff changeset
1282 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1283
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1284 /* Applying the control modifier to CHARACTER. */
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1285 int
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1286 make_ctrl_char (c)
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1287 int c;
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1288 {
2954
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1289 /* Save the upper bits here. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1290 int upper = c & ~0177;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1291
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1292 c &= 0177;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1293
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1294 /* Everything in the columns containing the upper-case letters
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1295 denotes a control character. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1296 if (c >= 0100 && c < 0140)
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1297 {
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1298 int oc = c;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1299 c &= ~0140;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1300 /* Set the shift modifier for a control char
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1301 made from a shifted letter. But only for letters! */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1302 if (oc >= 'A' && oc <= 'Z')
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1303 c |= shift_modifier;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1304 }
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1305
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1306 /* The lower-case letters denote control characters too. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1307 else if (c >= 'a' && c <= 'z')
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1308 c &= ~0140;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1309
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1310 /* Include the bits for control and shift
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1311 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
1312 else if (c >= ' ')
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1313 c |= ctrl_modifier;
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1314
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1315 /* Replace the high bits. */
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
1316 c |= (upper & ~ctrl_modifier);
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1317
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1318 return c;
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1319 }
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1320
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1321
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1322
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1323 /* Input of single characters from keyboard */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1324
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1325 Lisp_Object print_help ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1326 static Lisp_Object kbd_buffer_get_event ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1327
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1328 /* read a character from the keyboard; call the redisplay if needed */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1329 /* commandflag 0 means do not do auto-saving, but do do redisplay.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1330 -1 means do not do redisplay, but do do autosaving.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1331 1 means do both. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1332
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1333 /* 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
1334 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
1335
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1336 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
1337 the first event of a key sequence.
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1338
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
1339 If USED_MOUSE_MENU is non-zero, then we set *USED_MOUSE_MENU to 1
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
1340 if we used a mouse menu to read the input, or zero otherwise. If
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1341 USED_MOUSE_MENU is zero, *USED_MOUSE_MENU is left alone.
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1342
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
1343 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
1344
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1345 Lisp_Object
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1346 read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1347 int commandflag;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1348 int nmaps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1349 Lisp_Object *maps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1350 Lisp_Object prev_event;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1351 int *used_mouse_menu;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1352 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1353 register Lisp_Object c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1354 int count;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1355 jmp_buf save_jump;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1356
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
1357 if (CONSP (unread_command_events))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1358 {
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
1359 c = XCONS (unread_command_events)->car;
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
1360 unread_command_events = XCONS (unread_command_events)->cdr;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1361
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1362 if (this_command_key_count == 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1363 goto reread_first;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1364 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1365 goto reread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1366 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1367
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1368 if (unread_command_char != -1)
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1369 {
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1370 XSET (c, Lisp_Int, unread_command_char);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1371 unread_command_char = -1;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1372
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1373 if (this_command_key_count == 0)
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1374 goto reread_first;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1375 else
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1376 goto reread;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1377 }
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1378
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1379 if (!NILP (Vexecuting_macro))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1380 {
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
1381 #ifdef MULTI_FRAME
1239
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
1382 /* 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
1383 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
1384 remain unchanged.
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
1385
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
1386 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
1387 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
1388 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
1389 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
1390 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
1391 selected. */
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
1392 Vlast_event_frame = internal_last_event_frame = Qmacro;
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
1393 #endif
1239
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
1394
2719
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
1395 /* 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
1396 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
1397 to force an early exit. */
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
1398 if (EQ (Vexecuting_macro, Qt)
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
1399 || executing_macro_index >= XFASTINT (Flength (Vexecuting_macro)))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1400 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1401 XSET (c, Lisp_Int, -1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1402 return c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1403 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1404
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1405 c = Faref (Vexecuting_macro, make_number (executing_macro_index));
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1406 if (XTYPE (Vexecuting_macro) == Lisp_String
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1407 && (XINT (c) & 0x80))
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1408 XFASTINT (c) = CHAR_META | (XINT (c) & ~0x80);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1409
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1410 executing_macro_index++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1411
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1412 goto from_macro;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1413 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1414
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1415 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
1416 {
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1417 c = unread_switch_frame;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1418 unread_switch_frame = Qnil;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1419
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1420 /* This event should make it into this_command_keys, and get echoed
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
1421 again, so we go to reread_first, rather than reread. */
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
1422 goto reread_first;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1423 }
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1424
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1425 /* Save outer setjmp data, in case called recursively. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
1426 save_getcjmp (save_jump);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1427
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1428 stop_polling ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1429
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1430 if (commandflag >= 0 && !input_pending && !detect_input_pending ())
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1431 redisplay ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1432
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1433 if (_setjmp (getcjmp))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1434 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1435 XSET (c, Lisp_Int, quit_char);
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
1436 #ifdef MULTI_FRAME
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
1437 XSET (internal_last_event_frame, Lisp_Frame, selected_frame);
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
1438 Vlast_event_frame = internal_last_event_frame;
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
1439 #endif
2434
39c696510c64 (read_char): Clear Vquit_flag when we return C-g for it.
Richard M. Stallman <rms@gnu.org>
parents: 2406
diff changeset
1440 /* 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
1441 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
1442 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
1443 Vquit_flag = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1444
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1445 goto non_reread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1446 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1447
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1448 /* Message turns off echoing unless more keystrokes turn it on again. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1449 if (echo_area_glyphs && *echo_area_glyphs && echo_area_glyphs != echobuf)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1450 cancel_echoing ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1451 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1452 /* If already echoing, continue. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1453 echo_dash ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1454
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1455 /* If in middle of key sequence and minibuffer not active,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1456 start echoing if enough time elapses. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1457 if (minibuf_level == 0 && !immediate_echo && this_command_key_count > 0
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1458 && ! noninteractive
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1459 && echo_keystrokes > 0
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1460 && (echo_area_glyphs == 0 || *echo_area_glyphs == 0))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1461 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1462 Lisp_Object tem0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1463
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1464 /* After a mouse event, start echoing right away.
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1465 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
1466 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
1467 if (EVENT_HAS_PARAMETERS (prev_event))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1468 echo ();
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1469 else
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1470 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1471 tem0 = sit_for (echo_keystrokes, 0, 1, 1);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1472 if (EQ (tem0, Qt))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1473 echo ();
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1474 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1475 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1476
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1477 /* Maybe auto save due to number of keystrokes or idle time. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1478
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1479 if (commandflag != 0
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1480 && auto_save_interval > 0
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
1481 && num_nonmacro_input_chars - last_auto_save > max (auto_save_interval, 20)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1482 && !detect_input_pending ())
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1483 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1484 jmp_buf temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1485 save_getcjmp (temp);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1486 Fdo_auto_save (Qnil, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1487 restore_getcjmp (temp);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1488 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1489
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1490 /* Try reading a character via menu prompting.
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1491 Try this before the sit-for, because the sit-for
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1492 would do the wrong thing if we are supposed to do
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1493 menu prompting. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1494 c = Qnil;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1495 if (INTERACTIVE && !NILP (prev_event))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1496 c = read_char_menu_prompt (nmaps, maps, prev_event, used_mouse_menu);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1497
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1498 /* Slow down auto saves logarithmically in size of current buffer,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1499 and garbage collect while we're at it. */
3920
81d29cf5b232 * keyboard.c (read_char): Don't do idle autosaves if we're not
Jim Blandy <jimb@redhat.com>
parents: 3887
diff changeset
1500 if (INTERACTIVE && NILP (c))
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1501 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1502 int delay_level, buffer_size;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1503
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1504 if (! MINI_WINDOW_P (XWINDOW (selected_window)))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1505 last_non_minibuf_size = Z - BEG;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1506 buffer_size = (last_non_minibuf_size >> 8) + 1;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1507 delay_level = 0;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1508 while (buffer_size > 64)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1509 delay_level++, buffer_size -= buffer_size >> 2;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1510 if (delay_level < 4) delay_level = 4;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1511 /* 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
1512 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
1513
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1514 /* 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
1515 if (commandflag != 0
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
1516 && num_nonmacro_input_chars > last_auto_save
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1517 && XTYPE (Vauto_save_timeout) == Lisp_Int
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1518 && XINT (Vauto_save_timeout) > 0)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1519 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1520 Lisp_Object tem0;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1521 int delay = delay_level * XFASTINT (Vauto_save_timeout) / 4;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1522 tem0 = sit_for (delay, 0, 1, 1);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1523 if (EQ (tem0, Qt))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1524 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1525 jmp_buf temp;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1526 save_getcjmp (temp);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1527 Fdo_auto_save (Qnil, Qnil);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1528 restore_getcjmp (temp);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1529
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1530 /* 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
1531 available, garbage collect if there has been enough
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1532 consing going on to make it worthwhile. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1533 if (!detect_input_pending ()
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1534 && consing_since_gc > gc_cons_threshold / 2)
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
1535 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
1536 Fgarbage_collect ();
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
1537 redisplay ();
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
1538 }
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1539 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1540 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1541 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1542
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1543 /* Actually read a character, waiting if necessary. */
3174
719776bc7f7d (read_char): Correct previous change.
Richard M. Stallman <rms@gnu.org>
parents: 3117
diff changeset
1544 while (NILP (c))
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1545 {
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1546 c = kbd_buffer_get_event ();
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1547 if (!NILP (c))
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1548 break;
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1549 if (commandflag >= 0 && !input_pending && !detect_input_pending ())
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1550 redisplay ();
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1551 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1552
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1553 /* Terminate Emacs in batch mode if at eof. */
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1554 if (noninteractive && XTYPE (c) == Lisp_Int && XINT (c) < 0)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1555 Fkill_emacs (make_number (1));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1556
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
1557 if (XTYPE (c) == Lisp_Int)
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
1558 {
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
1559 /* Add in any extra modifiers, where appropriate. */
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
1560 if ((extra_keyboard_modifiers & CHAR_CTL)
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
1561 || ((extra_keyboard_modifiers & 0177) < ' '
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
1562 && (extra_keyboard_modifiers & 0177) != 0))
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1563 XSETINT (c, make_ctrl_char (XINT (c)));
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
1564
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
1565 /* Transfer any other modifier bits directly from
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
1566 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
1567 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
1568 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
1569 }
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
1570
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1571 non_reread:
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1572
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
1573 restore_getcjmp (save_jump);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1574
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1575 start_polling ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1576
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1577 echo_area_glyphs = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1578
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1579 /* Handle things that only apply to characters. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1580 if (XTYPE (c) == Lisp_Int)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1581 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1582 /* 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
1583 if (XINT (c) == -1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1584 return c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1585
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1586 if (XTYPE (Vkeyboard_translate_table) == Lisp_String
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
1587 && XSTRING (Vkeyboard_translate_table)->size > XFASTINT (c))
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
1588 XSETINT (c, XSTRING (Vkeyboard_translate_table)->data[XFASTINT (c)]);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1589 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1590
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1591 total_keys++;
1261
60b30565326c * keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents: 1239
diff changeset
1592 XVECTOR (recent_keys)->contents[recent_keys_index] = c;
60b30565326c * keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents: 1239
diff changeset
1593 if (++recent_keys_index >= NUM_RECENT_KEYS)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1594 recent_keys_index = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1595
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1596 /* Write c to the dribble file. If c is a lispy event, write
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1597 the event's symbol to the dribble file, in <brackets>. Bleaugh.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1598 If you, dear reader, have a better idea, you've got the source. :-) */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1599 if (dribble)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1600 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1601 if (XTYPE (c) == Lisp_Int)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
1602 putc (XINT (c), dribble);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1603 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1604 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1605 Lisp_Object dribblee = c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1606
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1607 /* If it's a structured event, take the event header. */
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
1608 dribblee = EVENT_HEAD (dribblee);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1609
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1610 if (XTYPE (dribblee) == Lisp_Symbol)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1611 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1612 putc ('<', dribble);
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1613 fwrite (XSYMBOL (dribblee)->name->data, sizeof (char),
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
1614 XSYMBOL (dribblee)->name->size,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1615 dribble);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1616 putc ('>', dribble);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1617 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1618 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1619
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1620 fflush (dribble);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1621 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1622
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1623 store_kbd_macro_char (c);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1624
1104
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
1625 num_nonmacro_input_chars++;
f3a7122a68e1 (num_nonmacro_input_chars): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 1097
diff changeset
1626
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1627 from_macro:
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1628 reread_first:
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1629
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1630 /* Record this character as part of the current key.
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1631 Don't record mouse motion; it should never matter. */
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1632 if (! (EVENT_HAS_PARAMETERS (c)
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1633 && EQ (EVENT_HEAD_KIND (EVENT_HEAD (c)), Qmouse_movement)))
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
1634 {
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
1635 echo_char (c);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
1636 add_command_key (c);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
1637 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1638
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1639 /* Re-reading in the middle of a command */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1640 reread:
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1641 last_input_char = c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1642 num_input_chars++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1643
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1644 /* Process the help character specially if enabled */
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
1645 if (EQ (c, Vhelp_char) && !NILP (Vhelp_form))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1646 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1647 Lisp_Object tem0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1648 count = specpdl_ptr - specpdl;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1649
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1650 record_unwind_protect (Fset_window_configuration,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1651 Fcurrent_window_configuration (Qnil));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1652
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1653 tem0 = Feval (Vhelp_form);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1654 if (XTYPE (tem0) == Lisp_String)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1655 internal_with_output_to_temp_buffer ("*Help*", print_help, tem0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1656
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1657 cancel_echoing ();
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
1658 c = read_char (0, 0, 0, Qnil, 0);
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
1659 /* Remove the help from the frame */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1660 unbind_to (count, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1661 redisplay ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1662 if (EQ (c, make_number (040)))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1663 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1664 cancel_echoing ();
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
1665 c = read_char (0, 0, 0, Qnil, 0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1666 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1667 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1668
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1669 return c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1670 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1671
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1672 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1673 print_help (object)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1674 Lisp_Object object;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1675 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1676 Fprinc (object, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1677 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1678 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1679
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1680 /* Copy out or in the info on where C-g should throw to.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1681 This is used when running Lisp code from within get_char,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1682 in case get_char is called recursively.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1683 See read_process_output. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1684
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1685 save_getcjmp (temp)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1686 jmp_buf temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1687 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1688 bcopy (getcjmp, temp, sizeof getcjmp);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1689 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1690
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1691 restore_getcjmp (temp)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1692 jmp_buf temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1693 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1694 bcopy (temp, getcjmp, sizeof getcjmp);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1695 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1696
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1697
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1698 /* Restore mouse tracking enablement. See Ftrack_mouse for the only use
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1699 of this function. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1700 static Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1701 tracking_off (old_value)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1702 Lisp_Object old_value;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1703 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1704 if (! XFASTINT (old_value))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1705 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1706 do_mouse_tracking = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1707
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1708 /* Redisplay may have been preempted because there was input
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1709 available, and it assumes it will be called again after the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1710 input has been processed. If the only input available was
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1711 the sort that we have just disabled, then we need to call
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1712 redisplay. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1713 if (!readable_events ())
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1714 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1715 redisplay_preserve_echo_area ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1716 get_input_pending (&input_pending);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1717 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1718 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1719 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1720
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1721 DEFUN ("track-mouse", Ftrack_mouse, Strack_mouse, 0, UNEVALLED, 0,
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1722 "Evaluate BODY with mouse movement events enabled.\n\
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1723 Within a `track-mouse' form, mouse motion generates input events that\n\
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1724 you can read with `read-event'.\n\
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1725 Normally, mouse motion is ignored.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1726 (args)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1727 Lisp_Object args;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1728 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1729 int count = specpdl_ptr - specpdl;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1730 Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1731
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1732 XSET (val, Lisp_Int, do_mouse_tracking);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1733 record_unwind_protect (tracking_off, val);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1734
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1735 do_mouse_tracking = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1736
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1737 val = Fprogn (args);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1738 return unbind_to (count, val);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1739 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1740
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1741 /* 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
1742 kbd_buffer_store_event places events in kbd_buffer, and
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1743 kbd_buffer_get_event retrieves them.
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1744 mouse_moved indicates when the mouse has moved again, and
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1745 *mouse_position_hook provides the mouse position. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1746
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1747 /* 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
1748 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
1749 static int
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1750 readable_events ()
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1751 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1752 return ! EVENT_QUEUES_EMPTY;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1753 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1754
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1755 /* 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
1756 int stop_character;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1757
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1758 /* Store an event obtained at interrupt level into kbd_buffer, fifo */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1759
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1760 void
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1761 kbd_buffer_store_event (event)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1762 register struct input_event *event;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1763 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1764 if (event->kind == no_event)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1765 abort ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1766
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1767 if (event->kind == ascii_keystroke)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1768 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1769 register int c = XFASTINT (event->code) & 0377;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1770
2950
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1771 if (event->modifiers & ctrl_modifier)
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1772 c = make_ctrl_char (c);
6dee690ddac5 * keyboard.c (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2924
diff changeset
1773
4282
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
1774 c |= (event->modifiers
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
1775 & (meta_modifier | alt_modifier
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
1776 | hyper_modifier | super_modifier));
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
1777
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
1778 if (c == quit_char)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1779 {
985
952aa214a3d0 * keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents: 966
diff changeset
1780 extern SIGTYPE interrupt_signal ();
952aa214a3d0 * keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents: 966
diff changeset
1781
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
1782 #ifdef MULTI_FRAME
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1783 /* 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
1784 input, set Vlast_event_frame properly. If this doesn't
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1785 get returned to Emacs as an event, the next event read
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
1786 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
1787 {
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1788 Lisp_Object focus
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1789 = 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
1790
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1791 if (NILP (focus))
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
1792 internal_last_event_frame = event->frame_or_window;
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1793 else
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
1794 internal_last_event_frame = focus;
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
1795 Vlast_event_frame = internal_last_event_frame;
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1796 }
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
1797 #endif
985
952aa214a3d0 * keyboard.c (Fexecute_mouse_event): dyked-out function deleted.
Jim Blandy <jimb@redhat.com>
parents: 966
diff changeset
1798
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
1799 last_event_timestamp = event->timestamp;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1800 interrupt_signal ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1801 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1802 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1803
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1804 if (c && c == stop_character)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1805 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1806 sys_suspend ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1807 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1808 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1809 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1810
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1811 if (kbd_store_ptr - kbd_buffer == KBD_BUFFER_SIZE)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1812 kbd_store_ptr = kbd_buffer;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1813
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1814 /* Don't let the very last slot in the buffer become full,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1815 since that would make the two pointers equal,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1816 and that is indistinguishable from an empty buffer.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1817 Discard the event if it would fill the last slot. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1818 if (kbd_fetch_ptr - 1 != kbd_store_ptr)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1819 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1820 kbd_store_ptr->kind = event->kind;
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1821 if (event->kind == selection_request_event)
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1822 {
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1823 /* We must not use the ordinary copying code for this case,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1824 since `part' is an enum and copying it might not copy enough
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1825 in this case. */
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1826 bcopy (event, kbd_store_ptr, sizeof (*event));
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1827 }
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1828 else
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1829 {
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1830 kbd_store_ptr->code = event->code;
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1831 kbd_store_ptr->part = event->part;
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1832 kbd_store_ptr->frame_or_window = event->frame_or_window;
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1833 kbd_store_ptr->modifiers = event->modifiers;
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1834 kbd_store_ptr->x = event->x;
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1835 kbd_store_ptr->y = event->y;
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1836 kbd_store_ptr->timestamp = event->timestamp;
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
1837 }
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
1838 (XVECTOR (kbd_buffer_frame_or_window)->contents[kbd_store_ptr
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
1839 - kbd_buffer]
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
1840 = event->frame_or_window);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1841
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1842 kbd_store_ptr++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1843 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1844 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1845
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1846 /* 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
1847 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
1848 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
1849 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
1850 We always read and discard one event. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1851
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1852 static Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1853 kbd_buffer_get_event ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1854 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1855 register int c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1856 Lisp_Object obj;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1857
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1858 if (noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1859 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1860 c = getchar ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1861 XSET (obj, Lisp_Int, c);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1862 return obj;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1863 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1864
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1865 /* Wait until there is input available. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1866 for (;;)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1867 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1868 if (!EVENT_QUEUES_EMPTY)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1869 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1870
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1871 /* If the quit flag is set, then read_char will return
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1872 quit_char, so that counts as "available input." */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1873 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1874 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1875
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1876 /* One way or another, wait until input is available; then, if
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1877 interrupt handlers have not read it, read it now. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1878
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1879 #ifdef OLDVMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1880 wait_for_kbd_input ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1881 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1882 /* Note SIGIO has been undef'd if FIONREAD is missing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1883 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1884 gobble_input (0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1885 #endif /* SIGIO */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1886 if (EVENT_QUEUES_EMPTY)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1887 {
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
1888 Lisp_Object minus_one;
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
1889
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
1890 XSET (minus_one, Lisp_Int, -1);
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
1891 wait_reading_process_input (0, 0, minus_one, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1892
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1893 if (!interrupt_input && EVENT_QUEUES_EMPTY)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1894 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1895 read_avail_input (0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1896 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1897 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1898 #endif /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1899 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1900
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1901 /* At this point, we know that there is a readable event available
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1902 somewhere. If the event queue is empty, then there must be a
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1903 mouse movement enabled and available. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1904 if (kbd_fetch_ptr != kbd_store_ptr)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1905 {
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1906 struct input_event *event;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1907
1404
1c2080f78a36 * keyboard.c (kbd_buffer_get_event): Fix fencepost bug in
Jim Blandy <jimb@redhat.com>
parents: 1402
diff changeset
1908 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE)
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1909 ? kbd_fetch_ptr
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1910 : kbd_buffer);
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1911
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
1912 last_event_timestamp = event->timestamp;
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
1913
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1914 obj = Qnil;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1915
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1916 /* 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
1917 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
1918 We return nil for them. */
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1919 if (event->kind == selection_request_event)
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1920 {
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
1921 #ifdef HAVE_X11
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1922 x_handle_selection_request (event);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1923 kbd_fetch_ptr = event + 1;
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
1924 #else
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
1925 /* 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
1926 a window system. */
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
1927 abort ();
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
1928 #endif
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1929 }
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1930
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1931 else if (event->kind == selection_clear_event)
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1932 {
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
1933 #ifdef HAVE_X11
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1934 x_handle_selection_clear (event);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1935 kbd_fetch_ptr = event + 1;
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
1936 #else
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
1937 /* 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
1938 a window system. */
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
1939 abort ();
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
1940 #endif
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1941 }
5133
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1942 #ifdef HAVE_X11
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1943 else if (event->kind == delete_window_event)
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1944 {
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1945 Lisp_Object value;
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1946
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1947 Fdelete_frame (event->frame_or_window, Qt);
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1948 kbd_fetch_ptr = event + 1;
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1949
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1950 value = Fvisible_frame_list ();
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1951 if (! CONSP (value))
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1952 kill (getpid (), SIGHUP);
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1953 }
16fe8285dc2a (kbd_buffer_get_event): Handle delete_window_event's.
Richard M. Stallman <rms@gnu.org>
parents: 5078
diff changeset
1954 #endif
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1955 /* Just discard these, by returning nil.
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1956 (They shouldn't be found in the buffer,
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1957 but on some machines it appears they do show up.) */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1958 else if (event->kind == no_event)
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1959 kbd_fetch_ptr = event + 1;
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
1960
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1961 /* If this event is on a different frame, return a switch-frame this
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
1962 time, and leave the event in the queue for next time. */
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1963 else
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1964 {
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
1965 #ifdef MULTI_FRAME
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1966 Lisp_Object frame = event->frame_or_window;
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1967 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
1968
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1969 if (XTYPE (frame) == Lisp_Window)
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1970 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
1971
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1972 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
1973 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
1974 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
1975
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1976 if (! EQ (frame, internal_last_event_frame)
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1977 && XFRAME (frame) != selected_frame)
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1978 obj = make_lispy_switch_frame (frame);
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1979 internal_last_event_frame = frame;
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
1980 #endif /* MULTI_FRAME */
3101
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1981
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1982 /* 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
1983 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
1984
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1985 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
1986 {
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1987 obj = make_lispy_event (event);
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1988
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1989 /* Wipe out this event, to catch bugs. */
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1990 event->kind = no_event;
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1991 (XVECTOR (kbd_buffer_frame_or_window)->contents[event - kbd_buffer]
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1992 = Qnil);
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1993
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1994 kbd_fetch_ptr = event + 1;
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1995 }
9de5bf724302 (read_char): If kbd_buffer_get_event returns nil, redisplay and retry.
Richard M. Stallman <rms@gnu.org>
parents: 3067
diff changeset
1996 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1997 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
1998 /* Try generating a mouse motion event. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1999 else if (do_mouse_tracking && mouse_moved)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2000 {
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
2001 FRAME_PTR f = 0;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2002 Lisp_Object bar_window;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2003 enum scroll_bar_part part;
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
2004 Lisp_Object x, y;
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
2005 unsigned long time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2006
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2007 (*mouse_position_hook) (&f, &bar_window, &part, &x, &y, &time);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2008
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2009 obj = Qnil;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2010
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
2011 #ifdef MULTI_FRAME
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2012 /* 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
2013 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
2014 frames. */
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2015 if (f)
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2016 {
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2017 Lisp_Object frame = FRAME_FOCUS_FRAME (f);
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2018
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2019 if (NILP (frame))
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2020 XSET (frame, Lisp_Frame, f);
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2021
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2022 if (! EQ (frame, internal_last_event_frame)
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2023 && XFRAME (frame) != selected_frame)
3929
d620db2bc420 * keyboard.c (kbd_buffer_get_event): Correctly generate
Jim Blandy <jimb@redhat.com>
parents: 3920
diff changeset
2024 obj = make_lispy_switch_frame (frame);
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2025 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
2026 }
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
2027 #endif
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2028
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2029 /* If we didn't decide to make a switch-frame event, go ahead and
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2030 return a mouse-motion event. */
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2031 if (NILP (obj))
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2032 obj = make_lispy_movement (f, bar_window, part, x, y, time);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2033 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2034 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2035 /* We were promised by the above while loop that there was
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2036 something for us to read! */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2037 abort ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2038
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2039 input_pending = readable_events ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2040
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2041 #ifdef MULTI_FRAME
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2042 Vlast_event_frame = internal_last_event_frame;
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2043 #endif
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2044
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2045 return (obj);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2046 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2047
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2048 /* 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
2049 then return, without reading any user-visible events. */
3104
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2050
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2051 void
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2052 swallow_events ()
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2053 {
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2054 while (kbd_fetch_ptr != kbd_store_ptr)
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2055 {
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2056 struct input_event *event;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2057
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2058 event = ((kbd_fetch_ptr < kbd_buffer + KBD_BUFFER_SIZE)
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2059 ? kbd_fetch_ptr
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2060 : kbd_buffer);
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2061
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2062 last_event_timestamp = event->timestamp;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2063
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2064 /* These two kinds of events get special handling
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2065 and don't actually appear to the command loop. */
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2066 if (event->kind == selection_request_event)
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2067 {
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2068 #ifdef HAVE_X11
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2069 x_handle_selection_request (event);
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2070 kbd_fetch_ptr = event + 1;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2071 #else
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2072 /* 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
2073 a window system. */
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2074 abort ();
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2075 #endif
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2076 }
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2077
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2078 else if (event->kind == selection_clear_event)
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2079 {
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2080 #ifdef HAVE_X11
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2081 x_handle_selection_clear (event);
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2082 kbd_fetch_ptr = event + 1;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2083 #else
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2084 /* 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
2085 a window system. */
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2086 abort ();
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2087 #endif
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2088 }
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2089 else
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2090 break;
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2091 }
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2092
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2093 get_input_pending (&input_pending);
3c6fccdf8257 (swallow_events): New function.
Richard M. Stallman <rms@gnu.org>
parents: 3101
diff changeset
2094 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
2095
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2096 /* Caches for modify_event_symbol. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2097 static Lisp_Object func_key_syms;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2098 static Lisp_Object mouse_syms;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2099
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2100 /* You'll notice that this table is arranged to be conveniently
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2101 indexed by X Windows keysym values. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2102 static char *lispy_function_keys[] =
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2103 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2104 /* X Keysym value */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2105
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
2106 "remove", 0, 0, 0, 0, 0, 0, 0, /* 0xff00 */
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2107 "backspace",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2108 "tab",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2109 "linefeed",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2110 "clear",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2111 0,
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2112 "return",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2113 0, 0,
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2114 0, 0, 0, /* 0xff10 */
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2115 "pause",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2116 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
2117 "escape",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2118 0, 0, 0, 0,
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2119 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xff20...2f */
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2120 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xff30...3f */
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2121 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
2122
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2123 "home", /* 0xff50 */ /* IsCursorKey */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2124 "left",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2125 "up",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2126 "right",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2127 "down",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2128 "prior",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2129 "next",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2130 "end",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2131 "begin",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2132 0, /* 0xff59 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2133 0, 0, 0, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2134 "select", /* 0xff60 */ /* IsMiscFunctionKey */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2135 "print",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2136 "execute",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2137 "insert",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2138 0, /* 0xff64 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2139 "undo",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2140 "redo",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2141 "menu",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2142 "find",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2143 "cancel",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2144 "help",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2145 "break", /* 0xff6b */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2146
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2147 /* Here are some keys found mostly on HP keyboards. The X event
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2148 handling code will strip bit 29, which flags vendor-specific
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2149 keysyms. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2150 "reset", /* 0x1000ff6c */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2151 "system",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2152 "user",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2153 "clearline",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2154 "insertline",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2155 "deleteline",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2156 "insertchar",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2157 "deletechar",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2158 "backtab",
3054
57814bb76b37 (lispy_function_keys): Add kp-numlock. Fix kp-backspace.
Richard M. Stallman <rms@gnu.org>
parents: 3042
diff changeset
2159 "kp-backtab", /* 0x1000ff75 */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2160 0, /* 0xff76 */
3054
57814bb76b37 (lispy_function_keys): Add kp-numlock. Fix kp-backspace.
Richard M. Stallman <rms@gnu.org>
parents: 3042
diff changeset
2161 0, 0, 0, 0, 0, 0, 0, 0, "kp-numlock", /* 0xff7f */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2162 "kp-space", /* 0xff80 */ /* IsKeypadKey */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2163 0, 0, 0, 0, 0, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2164 "kp-tab", /* 0xff89 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2165 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2166 "kp-enter", /* 0xff8d */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2167 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2168 "kp-f1", /* 0xff91 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2169 "kp-f2",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2170 "kp-f3",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2171 "kp-f4",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2172 0, /* 0xff95 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2173 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2174 "kp-multiply", /* 0xffaa */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2175 "kp-add",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2176 "kp-separator",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2177 "kp-subtract",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2178 "kp-decimal",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2179 "kp-divide", /* 0xffaf */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2180 "kp-0", /* 0xffb0 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2181 "kp-1", "kp-2", "kp-3", "kp-4", "kp-5", "kp-6", "kp-7", "kp-8", "kp-9",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2182 0, /* 0xffba */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2183 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2184 "kp-equal", /* 0xffbd */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2185 "f1", /* 0xffbe */ /* IsFunctionKey */
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2186 "f2",
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2187 "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
2188 "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
2189 "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
2190 "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
2191 "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
2192 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
2193 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
2194 0, 0, 0, 0, 0, 0, 0, "delete"
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2195 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2196
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2197 static char *lispy_mouse_names[] =
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2198 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2199 "mouse-1", "mouse-2", "mouse-3", "mouse-4", "mouse-5"
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2200 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2201
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2202 /* Scroll bar parts. */
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2203 Lisp_Object Qabove_handle, Qhandle, Qbelow_handle;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2204
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2205 /* 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
2206 Lisp_Object *scroll_bar_parts[] = {
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2207 &Qabove_handle, &Qhandle, &Qbelow_handle
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2208 };
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2209
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2210
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2211 /* 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
2212 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
2213
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2214 The elements have the form
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2215 (BUTTON-NUMBER MODIFIER-MASK . REST)
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2216 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
2217
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2218 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
2219 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
2220 location to be included in drag events. */
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2221
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2222 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
2223
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2224 /* 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
2225 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
2226
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2227 static int last_mouse_button;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2228 static int last_mouse_x;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2229 static int last_mouse_y;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2230 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
2231
3993
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
2232 /* The maximum time between clicks to make a double-click,
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
2233 or Qnil to disable double-click detection,
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
2234 or Qt for no time limit. */
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
2235 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
2236
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2237 /* 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
2238
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2239 int double_click_count;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2240
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2241 /* Given a struct input_event, build the lisp event which represents
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2242 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
2243 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
2244
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2245 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
2246 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
2247 in order to build drag events when the button is released. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2248
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2249 static Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2250 make_lispy_event (event)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2251 struct input_event *event;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2252 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2253 #ifdef SWITCH_ENUM_BUG
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2254 switch ((int) event->kind)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2255 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2256 switch (event->kind)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2257 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2258 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2259 /* A simple keystroke. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2260 case ascii_keystroke:
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2261 {
4558
bd83da57b726 (make_lispy_event): Clear all but 0377 in event->code.
Richard M. Stallman <rms@gnu.org>
parents: 4475
diff changeset
2262 int c = XFASTINT (event->code) & 0377;
2867
5b72eb2483e7 * xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents: 2789
diff changeset
2263 /* 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
2264 when proper. */
5b72eb2483e7 * xterm.c (XTread_socket): Turn off ControlMask for XLookupString.
Jim Blandy <jimb@redhat.com>
parents: 2789
diff changeset
2265 if (event->modifiers & ctrl_modifier)
2954
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2266 c = make_ctrl_char (c);
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2267
0dfd1927264e (make_ctrl_char): New function.
Jim Blandy <jimb@redhat.com>
parents: 2950
diff changeset
2268 /* 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
2269 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
2270 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
2271 c |= (event->modifiers
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2272 & (meta_modifier | alt_modifier
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2273 | hyper_modifier | super_modifier));
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2274 button_down_time = 0;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2275 return c;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2276 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2277
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2278 /* A function key. The symbol may need to have modifier prefixes
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2279 tacked onto it. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2280 case non_ascii_keystroke:
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2281 button_down_time = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2282 return modify_event_symbol (XFASTINT (event->code), event->modifiers,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2283 Qfunction_key,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2284 lispy_function_keys, &func_key_syms,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2285 (sizeof (lispy_function_keys)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2286 / sizeof (lispy_function_keys[0])));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2287 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2288
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2289 /* A mouse click. Figure out where it is, decide whether it's
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2290 a press, click or drag, and build the appropriate structure. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2291 case mouse_click:
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2292 case scroll_bar_click:
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2293 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2294 int button = XFASTINT (event->code);
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2295 int is_double;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2296 Lisp_Object position;
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2297 Lisp_Object *start_pos_ptr;
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2298 Lisp_Object start_pos;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2299
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2300 if (button < 0 || button >= NUM_MOUSE_BUTTONS)
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2301 abort ();
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2302
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2303 /* Build the position as appropriate for this mouse click. */
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2304 if (event->kind == mouse_click)
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2305 {
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2306 int part;
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
2307 FRAME_PTR f = XFRAME (event->frame_or_window);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2308 Lisp_Object window
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2309 = window_from_coordinates (f, XINT (event->x), XINT (event->y),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2310 &part);
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2311 Lisp_Object posn;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2312
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2313 if (XINT (event->y) < FRAME_MENU_BAR_LINES (f))
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2314 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2315 int hpos;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2316 Lisp_Object items;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2317 items = FRAME_MENU_BAR_ITEMS (f);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2318 for (; CONSP (items); items = XCONS (items)->cdr)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2319 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2320 Lisp_Object pos, string;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2321 pos = Fcdr (Fcdr (Fcar (items)));
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2322 string = Fcar (Fcdr (Fcar (items)));
3117
1d3a6f78266f (make_lispy_event): Fix off-by-1 error with hpos in menu bar.
Richard M. Stallman <rms@gnu.org>
parents: 3116
diff changeset
2323 if (XINT (event->x) >= XINT (pos)
1d3a6f78266f (make_lispy_event): Fix off-by-1 error with hpos in menu bar.
Richard M. Stallman <rms@gnu.org>
parents: 3116
diff changeset
2324 && XINT (event->x) < XINT (pos) + XSTRING (string)->size)
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2325 break;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2326 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2327 position
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2328 = Fcons (event->frame_or_window,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2329 Fcons (Qmenu_bar,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2330 Fcons (Fcons (event->x, event->y),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2331 Fcons (make_number (event->timestamp),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2332 Qnil))));
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2333
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2334 if (CONSP (items))
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2335 return Fcons (Fcar (Fcar (items)),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2336 Fcons (position, Qnil));
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2337 else
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2338 return Fcons (Qnil, Fcons (position, Qnil));
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2339 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2340 else if (XTYPE (window) != Lisp_Window)
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2341 posn = Qnil;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2342 else
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2343 {
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2344 XSETINT (event->x,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2345 (XINT (event->x) - XINT (XWINDOW (window)->left)));
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2346 XSETINT (event->y,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2347 (XINT (event->y) - XINT (XWINDOW (window)->top)));
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2348
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2349 if (part == 1)
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2350 posn = Qmode_line;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2351 else if (part == 2)
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2352 posn = Qvertical_line;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2353 else
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2354 XSET (posn, Lisp_Int,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2355 buffer_posn_from_coords (XWINDOW (window),
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2356 XINT (event->x),
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2357 XINT (event->y)));
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2358 }
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2359
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2360 position
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2361 = Fcons (window,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2362 Fcons (posn,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2363 Fcons (Fcons (event->x, event->y),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2364 Fcons (make_number (event->timestamp),
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2365 Qnil))));
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2366 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2367 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2368 {
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2369 Lisp_Object window = event->frame_or_window;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2370 Lisp_Object portion_whole = Fcons (event->x, event->y);
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2371 Lisp_Object 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
2372
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2373 position =
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2374 Fcons (window,
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2375 Fcons (Qvertical_scroll_bar,
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2376 Fcons (portion_whole,
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2377 Fcons (make_number (event->timestamp),
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2378 Fcons (part,
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2379 Qnil)))));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2380 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2381
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2382 start_pos_ptr = &XVECTOR (button_down_location)->contents[button];
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2383
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2384 start_pos = *start_pos_ptr;
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2385 *start_pos_ptr = Qnil;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2386
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2387 is_double = (button == last_mouse_button
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2388 && XINT (event->x) == last_mouse_x
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2389 && XINT (event->y) == last_mouse_y
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2390 && button_down_time != 0
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2391 && (EQ (Vdouble_click_time, Qt)
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2392 || (INTEGERP (Vdouble_click_time)
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2393 && ((int)(event->timestamp - button_down_time)
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2394 < XINT (Vdouble_click_time)))));
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2395 last_mouse_button = button;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2396 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
2397 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
2398
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2399 /* 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
2400 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
2401 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
2402 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2403 if (is_double)
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2404 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2405 double_click_count++;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2406 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
2407 ? triple_modifier
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2408 : double_modifier);
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2409 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2410 else
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2411 double_click_count = 1;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2412 button_down_time = event->timestamp;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2413 *start_pos_ptr = Fcopy_alist (position);
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2414 }
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2415
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2416 /* 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
2417 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
2418 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
2419 {
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2420 /* If we did not see a down before this up,
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2421 ignore the up. Probably this happened because
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2422 the down event chose a menu item.
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2423 It would be an annoyance to treat the release
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2424 of the button that chose the menu item
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2425 as a separate event. */
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2426
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2427 if (XTYPE (start_pos) != Lisp_Cons)
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2428 return Qnil;
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2429
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2430 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
2431 #if 0 /* Formerly we treated an up with no down as a click event. */
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2432 if (XTYPE (start_pos) != Lisp_Cons)
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2433 event->modifiers |= click_modifier;
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2434 else
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2435 #endif
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2436 {
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2437 /* The third element of every position should be the (x,y)
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2438 pair. */
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2439 Lisp_Object down = Fnth (make_number (2), start_pos);
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2440
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2441 if (EQ (event->x, XCONS (down)->car)
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2442 && EQ (event->y, XCONS (down)->cdr))
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2443 {
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2444 if (is_double && double_click_count > 1)
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2445 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
2446 ? triple_modifier
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2447 : double_modifier);
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2448 else
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2449 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
2450 }
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2451 else
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2452 {
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
2453 button_down_time = 0;
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2454 event->modifiers |= drag_modifier;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2455 }
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2456 }
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2457 }
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2458 else
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2459 /* 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
2460 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
2461 abort ();
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2462
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2463 {
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2464 /* Get the symbol we should use for the mouse click. */
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2465 Lisp_Object head
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2466 = modify_event_symbol (button,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2467 event->modifiers,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2468 Qmouse_click,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2469 lispy_mouse_names, &mouse_syms,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2470 (sizeof (lispy_mouse_names)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
2471 / sizeof (lispy_mouse_names[0])));
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2472
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2473 if (event->modifiers & drag_modifier)
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2474 return Fcons (head,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2475 Fcons (start_pos,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2476 Fcons (position,
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
2477 Qnil)));
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2478 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
2479 return Fcons (head,
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2480 Fcons (position,
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2481 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
2482 Qnil)));
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2483 else
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2484 return Fcons (head,
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2485 Fcons (position,
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2486 Qnil));
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2487 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2488 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2489
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2490 /* The 'kind' field of the event is something we don't recognize. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2491 default:
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
2492 abort ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2493 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2494 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2495
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2496 static Lisp_Object
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2497 make_lispy_movement (frame, bar_window, part, x, y, time)
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
2498 FRAME_PTR frame;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2499 Lisp_Object bar_window;
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2500 enum scroll_bar_part part;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2501 Lisp_Object x, y;
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
2502 unsigned long time;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2503 {
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2504 /* Is it a scroll bar movement? */
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2505 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
2506 {
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2507 Lisp_Object part_sym = *scroll_bar_parts[(int) part];
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2508
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2509 return Fcons (Qscroll_bar_movement,
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2510 (Fcons (Fcons (bar_window,
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
2511 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
2512 Fcons (Fcons (x, y),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2513 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
2514 Fcons (part_sym,
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2515 Qnil))))),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2516 Qnil)));
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2517 }
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2518
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2519 /* Or is it an ordinary mouse movement? */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2520 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2521 {
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2522 int area;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2523 Lisp_Object window =
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2524 (frame
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2525 ? window_from_coordinates (frame, XINT (x), XINT (y), &area)
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2526 : Qnil);
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2527 Lisp_Object posn;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2528
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2529 if (XTYPE (window) == Lisp_Window)
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2530 {
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2531 XSETINT (x, XINT (x) - XINT (XWINDOW (window)->left));
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2532 XSETINT (y, XINT (y) - XINT (XWINDOW (window)->top));
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2533
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2534 if (area == 1)
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2535 posn = Qmode_line;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2536 else if (area == 2)
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2537 posn = Qvertical_line;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2538 else
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2539 XSET (posn, Lisp_Int,
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2540 buffer_posn_from_coords (XWINDOW (window),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2541 XINT (x), XINT (y)));
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2542 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2543 else
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2544 {
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2545 window = Qnil;
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2546 posn = Qnil;
2980
654eebe93c27 * keyboard.c (make_lispy_movement): Deal properly with mouse
Jim Blandy <jimb@redhat.com>
parents: 2956
diff changeset
2547 XFASTINT (x) = 0;
654eebe93c27 * keyboard.c (make_lispy_movement): Deal properly with mouse
Jim Blandy <jimb@redhat.com>
parents: 2956
diff changeset
2548 XFASTINT (y) = 0;
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2549 }
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2550
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2551 return Fcons (Qmouse_movement,
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2552 Fcons (Fcons (window,
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2553 Fcons (posn,
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2554 Fcons (Fcons (x, y),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2555 Fcons (make_number (time),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2556 Qnil)))),
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2557 Qnil));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2558 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2559 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2560
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2561 /* 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
2562 static Lisp_Object
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2563 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
2564 Lisp_Object frame;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2565 {
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2566 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
2567 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2568
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2569 /* Manipulating modifiers. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2570
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2571 /* 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
2572
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2573 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
2574 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
2575 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
2576
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2577 This doesn't use any caches. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2578 static int
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2579 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
2580 Lisp_Object symbol;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2581 int *modifier_end;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2582 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2583 struct Lisp_String *name;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2584 int i;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2585 int modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2586
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2587 CHECK_SYMBOL (symbol, 1);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2588
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2589 modifiers = 0;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2590 name = XSYMBOL (symbol)->name;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2591
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2592
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2593 for (i = 0; i+2 <= name->size; )
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2594 switch (name->data[i])
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2595 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2596 #define SINGLE_LETTER_MOD(bit) \
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2597 if (name->data[i+1] != '-') \
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2598 goto no_more_modifiers; \
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2599 modifiers |= bit; \
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2600 i += 2;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2601
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2602 case 'A':
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2603 SINGLE_LETTER_MOD (alt_modifier);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2604 break;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2605
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2606 case 'C':
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2607 SINGLE_LETTER_MOD (ctrl_modifier);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2608 break;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2609
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2610 case 'H':
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2611 SINGLE_LETTER_MOD (hyper_modifier);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2612 break;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2613
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2614 case 'M':
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2615 SINGLE_LETTER_MOD (meta_modifier);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2616 break;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2617
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2618 case 'S':
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2619 SINGLE_LETTER_MOD (shift_modifier);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2620 break;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2621
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2622 case 's':
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
2623 SINGLE_LETTER_MOD (super_modifier);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2624 break;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2625
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2626 case 'd':
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2627 if (i + 5 > name->size)
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2628 goto no_more_modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2629 if (! strncmp (name->data + i, "drag-", 5))
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2630 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2631 modifiers |= drag_modifier;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2632 i += 5;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2633 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2634 else if (! strncmp (name->data + i, "down-", 5))
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2635 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2636 modifiers |= down_modifier;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2637 i += 5;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2638 }
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2639 else if (i + 7 <= name->size
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2640 && ! strncmp (name->data + i, "double-", 7))
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2641 {
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2642 modifiers |= double_modifier;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2643 i += 7;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2644 }
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2645 else
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2646 goto no_more_modifiers;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2647 break;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2648
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2649 case 't':
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2650 if (i + 7 > name->size)
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2651 goto no_more_modifiers;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2652 if (! strncmp (name->data + i, "triple-", 7))
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2653 {
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2654 modifiers |= triple_modifier;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2655 i += 7;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2656 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2657 else
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2658 goto no_more_modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2659 break;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2660
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2661 default:
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2662 goto no_more_modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2663
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2664 #undef SINGLE_LETTER_MOD
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2665 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2666 no_more_modifiers:
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2667
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2668 /* 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
2669 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
2670 | 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
2671 && i + 7 == name->size
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
2672 && strncmp (name->data + i, "mouse-", 6) == 0
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
2673 && ('0' <= name->data[i + 6] && name->data[i + 6] <= '9'))
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2674 modifiers |= click_modifier;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2675
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2676 if (modifier_end)
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2677 *modifier_end = i;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2678
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2679 return modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2680 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2681
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2682
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2683 /* 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
2684 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
2685 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
2686 static Lisp_Object
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2687 apply_modifiers_uncached (modifiers, base, base_len)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2688 int modifiers;
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2689 char *base;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2690 int base_len;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2691 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2692 /* 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
2693 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
2694 reference to it. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2695 char *new_mods =
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2696 (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
2697 int mod_len;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2698
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2699 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2700 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
2701
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2702 /* 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
2703 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
2704 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
2705 abort ();
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2706
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2707 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
2708 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
2709 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
2710 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
2711 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
2712 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
2713 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
2714 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
2715 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
2716 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
2717 /* 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
2718
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2719 *p = '\0';
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2720
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2721 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
2722 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2723
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2724 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2725 Lisp_Object new_name = make_uninit_string (mod_len + base_len);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2726
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2727 bcopy (new_mods, XSTRING (new_name)->data, mod_len);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2728 bcopy (base, XSTRING (new_name)->data + mod_len, base_len);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2729
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2730 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
2731 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2732 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2733
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2734
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2735 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
2736 {
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
2737 "up", "down", "drag", "click", "double", "triple", 0, 0,
2956
d25ffad42426 (modifier_names): Update to match *_modifier in termhooks.
Richard M. Stallman <rms@gnu.org>
parents: 2954
diff changeset
2738 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
2739 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
2740 };
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2741 #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
2742
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2743 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
2744
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2745 /* 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
2746 static Lisp_Object
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2747 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
2748 int modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2749 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2750 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
2751 int i;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2752
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2753 modifier_list = Qnil;
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2754 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
2755 if (modifiers & (1<<i))
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2756 modifier_list = Fcons (XVECTOR (modifier_symbols)->contents[i],
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2757 modifier_list);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2758
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2759 return modifier_list;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2760 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2761
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2762
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2763 /* 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
2764 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
2765 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
2766 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
2767 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
2768 Qevent_symbol_elements property. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2769 static Lisp_Object
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2770 parse_modifiers (symbol)
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2771 Lisp_Object symbol;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2772 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2773 Lisp_Object elements = Fget (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
2774
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2775 if (CONSP (elements))
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2776 return elements;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2777 else
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2778 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2779 int end;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2780 int modifiers = parse_modifiers_uncached (symbol, &end);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2781 Lisp_Object unmodified
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2782 = Fintern (make_string (XSYMBOL (symbol)->name->data + end,
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2783 XSYMBOL (symbol)->name->size - end),
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2784 Qnil);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2785 Lisp_Object mask;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2786
2436
80aafda1127b * keyboard.c (parse_modifiers, apply_modifiers): Make sure we're
Jim Blandy <jimb@redhat.com>
parents: 2434
diff changeset
2787 if (modifiers & ~((1<<VALBITS) - 1))
80aafda1127b * keyboard.c (parse_modifiers, apply_modifiers): Make sure we're
Jim Blandy <jimb@redhat.com>
parents: 2434
diff changeset
2788 abort ();
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2789 XFASTINT (mask) = modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2790 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
2791
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2792 /* 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
2793 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
2794 elements);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2795 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
2796 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
2797
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2798 /* 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
2799 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
2800 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
2801 canonical. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2802
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2803 return elements;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2804 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2805 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2806
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2807 /* 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
2808 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
2809
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2810 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
2811 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
2812 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
2813
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
2814 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
2815 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
2816 static Lisp_Object
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2817 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
2818 int modifiers;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2819 Lisp_Object base;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2820 {
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2821 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
2822
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2823 /* Mask out upper bits. We don't know where this value's been. */
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2824 modifiers &= (1<<VALBITS) - 1;
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
2825
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2826 /* 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
2827 cache = Fget (base, Qmodifier_cache);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2828 XFASTINT (index) = (modifiers & ~click_modifier);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2829 entry = Fassq (index, cache);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2830
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2831 if (CONSP (entry))
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2832 new_symbol = XCONS (entry)->cdr;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2833 else
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2834 {
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2835 /* We have to create the symbol ourselves. */
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2836 new_symbol = apply_modifiers_uncached (modifiers,
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2837 XSYMBOL (base)->name->data,
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2838 XSYMBOL (base)->name->size);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2839
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2840 /* 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
2841 entry = Fcons (index, new_symbol);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2842 Fput (base, Qmodifier_cache, Fcons (entry, cache));
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2843
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2844 /* We have the parsing info now for free, so add it to the caches. */
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2845 XFASTINT (index) = modifiers;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2846 Fput (new_symbol, Qevent_symbol_element_mask,
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2847 Fcons (base, Fcons (index, Qnil)));
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2848 Fput (new_symbol, Qevent_symbol_elements,
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2849 Fcons (base, lispy_modifier_list (modifiers)));
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2850 }
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2851
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2852 /* Make sure this symbol is of the same kind as BASE.
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2853
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2854 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
2855 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
2856 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
2857 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
2858 Qevent_kind set right as well. */
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2859 if (NILP (Fget (new_symbol, Qevent_kind)))
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2860 {
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2861 Lisp_Object kind = Fget (base, Qevent_kind);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2862
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2863 if (! NILP (kind))
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2864 Fput (new_symbol, Qevent_kind, kind);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2865 }
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2866
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
2867 return new_symbol;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2868 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2869
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2870
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2871 /* Given a symbol whose name begins with modifiers ("C-", "M-", etc),
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2872 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
2873 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
2874 always come last. The 'click' modifier is never written out.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2875
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2876 Fdefine_key calls this to make sure that (for example) C-M-foo
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2877 and M-C-foo end up being equivalent in the keymap. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2878
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2879 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2880 reorder_modifiers (symbol)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2881 Lisp_Object symbol;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2882 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2883 /* 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
2884 will soon be in caches, and no consing will be done at all. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2885 Lisp_Object parsed = parse_modifiers (symbol);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2886
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2887 return apply_modifiers (XCONS (XCONS (parsed)->cdr)->car,
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2888 XCONS (parsed)->car);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2889 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2890
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2891
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2892 /* For handling events, we often want to produce a symbol whose name
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2893 is a series of modifier key prefixes ("M-", "C-", etcetera) attached
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2894 to some base, like the name of a function key or mouse button.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2895 modify_event_symbol produces symbols of this sort.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2896
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2897 NAME_TABLE should point to an array of strings, such that NAME_TABLE[i]
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2898 is the name of the i'th symbol. TABLE_SIZE is the number of elements
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2899 in the table.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2900
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2901 SYMBOL_TABLE should be a pointer to a Lisp_Object whose value will
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2902 persist between calls to modify_event_symbol that it can use to
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2903 store a cache of the symbols it's generated for this NAME_TABLE
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2904 before.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2905
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2906 SYMBOL_NUM is the number of the base name we want from NAME_TABLE.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2907
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2908 MODIFIERS is a set of modifier bits (as given in struct input_events)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2909 whose prefixes should be applied to the symbol name.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2910
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2911 SYMBOL_KIND is the value to be placed in the event_kind property of
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2912 the returned symbol.
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2913
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2914 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
2915 `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
2916 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
2917
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2918 static Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2919 modify_event_symbol (symbol_num, modifiers, symbol_kind, name_table,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2920 symbol_table, table_size)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2921 int symbol_num;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2922 unsigned modifiers;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2923 Lisp_Object symbol_kind;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2924 char **name_table;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2925 Lisp_Object *symbol_table;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2926 int table_size;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2927 {
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2928 Lisp_Object *slot;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2929
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2930 /* 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
2931 if (symbol_num < 0 || symbol_num >= table_size)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2932 abort ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2933
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2934 /* 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
2935 *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
2936 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
2937 we've never used that symbol before. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2938 if (XTYPE (*symbol_table) != Lisp_Vector
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2939 || XVECTOR (*symbol_table)->size != table_size)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2940 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2941 Lisp_Object size;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2942
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2943 XFASTINT (size) = table_size;
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2944 *symbol_table = Fmake_vector (size, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2945 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2946
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2947 slot = & XVECTOR (*symbol_table)->contents[symbol_num];
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2948
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2949 /* Have we already used this symbol before? */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2950 if (NILP (*slot))
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2951 {
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2952 /* No; let's create it. */
3042
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
2953 if (name_table[symbol_num])
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
2954 *slot = intern (name_table[symbol_num]);
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
2955 else
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
2956 {
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
2957 char buf[20];
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
2958 sprintf (buf, "key-%d", symbol_num);
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
2959 *slot = intern (buf);
793f7e0dc66b (modify_event_symbol): If a name_table elt is null,
Richard M. Stallman <rms@gnu.org>
parents: 2980
diff changeset
2960 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2961
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2962 /* Fill in the cache entries for this symbol; this also
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2963 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
2964 cares about. */
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
2965 apply_modifiers (modifiers & click_modifier, *slot);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2966 Fput (*slot, 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
2967 }
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
2968
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2969 /* Apply modifiers to that symbol. */
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2970 return apply_modifiers (modifiers, *slot);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2971 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
2972
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2973
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2974 /* Store into *addr a value nonzero if terminal input chars are available.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2975 Serves the purpose of ioctl (0, FIONREAD, addr)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2976 but works even if FIONREAD does not exist.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2977 (In fact, this may actually read some input.) */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2978
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2979 static void
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2980 get_input_pending (addr)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2981 int *addr;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2982 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2983 /* First of all, have we already counted some input? */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2984 *addr = !NILP (Vquit_flag) || readable_events ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2985
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2986 /* If input is being read as it arrives, and we have none, there is none. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2987 if (*addr > 0 || (interrupt_input && ! interrupts_deferred))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2988 return;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2989
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2990 /* Try to read some input and see how much we get. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2991 gobble_input (0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2992 *addr = !NILP (Vquit_flag) || readable_events ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2993 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2994
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2995 /* Interface to read_avail_input, blocking SIGIO if necessary. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2996
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2997 int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2998 gobble_input (expected)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2999 int expected;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3000 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3001 #ifndef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3002 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3003 if (interrupt_input)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3004 {
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 586
diff changeset
3005 SIGMASKTYPE mask;
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 624
diff changeset
3006 mask = sigblockx (SIGIO);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3007 read_avail_input (expected);
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 624
diff changeset
3008 sigsetmask (mask);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3009 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3010 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3011 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3012 read_avail_input (expected);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3013 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3014 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3015
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3016 #ifndef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3017
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3018 /* Read any terminal input already buffered up by the system
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3019 into the kbd_buffer, but do not wait.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3020
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3021 EXPECTED should be nonzero if the caller knows there is some input.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3022
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3023 Except on VMS, all input is read by this function.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3024 If interrupt_input is nonzero, this function MUST be called
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3025 only when SIGIO is blocked.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3026
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3027 Returns the number of keyboard chars read, or -1 meaning
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3028 this is a bad time to try to read input. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3029
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3030 static int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3031 read_avail_input (expected)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3032 int expected;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3033 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3034 struct input_event buf[KBD_BUFFER_SIZE];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3035 register int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3036 int nread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3037
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3038 if (read_socket_hook)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3039 /* No need for FIONREAD or fcntl; just say don't wait. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3040 nread = (*read_socket_hook) (0, buf, KBD_BUFFER_SIZE, expected, expected);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3041 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3042 {
5032
2802aff49c77 (read_avail_input): Make cbuf 1 char shorter.
Richard M. Stallman <rms@gnu.org>
parents: 4996
diff changeset
3043 /* 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
3044 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
3045 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
3046 unsigned char cbuf[KBD_BUFFER_SIZE - 1];
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3047
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3048 #ifdef FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3049 /* Find out how much input is available. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3050 if (ioctl (0, FIONREAD, &nread) < 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3051 /* Formerly simply reported no input, but that sometimes led to
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3052 a failure of Emacs to terminate.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3053 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
3054 /* ??? 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
3055 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
3056 Perhaps on systems with FIONREAD Emacs is alone in its group. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3057 kill (getpid (), SIGHUP);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3058 if (nread == 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3059 return 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3060 if (nread > sizeof cbuf)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3061 nread = sizeof cbuf;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3062 #else /* no FIONREAD */
4996
4414ceac33dc (read_avail_input) [no FIONREAD]: On DGUX, as on USG,
Richard M. Stallman <rms@gnu.org>
parents: 4988
diff changeset
3063 #if defined(USG) || defined(DGUX)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3064 /* Read some input if available, but don't wait. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3065 nread = sizeof cbuf;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3066 fcntl (fileno (stdin), F_SETFL, O_NDELAY);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3067 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3068 you lose;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3069 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3070 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3071
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3072 /* Now read; for one reason or another, this will not block. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3073 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3074 {
5064
e1843fccd1f2 (read_avail_input): Don't set nread to -1
Richard M. Stallman <rms@gnu.org>
parents: 5032
diff changeset
3075 int value = read (fileno (stdin), cbuf, nread);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3076 #ifdef AIX
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3077 /* The kernel sometimes fails to deliver SIGHUP for ptys.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3078 This looks incorrect, but it isn't, because _BSD causes
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3079 O_NDELAY to be defined in fcntl.h as O_NONBLOCK,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3080 and that causes a value other than 0 when there is no input. */
5064
e1843fccd1f2 (read_avail_input): Don't set nread to -1
Richard M. Stallman <rms@gnu.org>
parents: 5032
diff changeset
3081 if (value == 0)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3082 kill (SIGHUP, 0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3083 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3084 /* Retry the read if it is interrupted. */
5064
e1843fccd1f2 (read_avail_input): Don't set nread to -1
Richard M. Stallman <rms@gnu.org>
parents: 5032
diff changeset
3085 if (value >= 0
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3086 || ! (errno == EAGAIN || errno == EFAULT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3087 #ifdef EBADSLT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3088 || errno == EBADSLT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3089 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3090 ))
5064
e1843fccd1f2 (read_avail_input): Don't set nread to -1
Richard M. Stallman <rms@gnu.org>
parents: 5032
diff changeset
3091 {
e1843fccd1f2 (read_avail_input): Don't set nread to -1
Richard M. Stallman <rms@gnu.org>
parents: 5032
diff changeset
3092 nread = value;
e1843fccd1f2 (read_avail_input): Don't set nread to -1
Richard M. Stallman <rms@gnu.org>
parents: 5032
diff changeset
3093 break;
e1843fccd1f2 (read_avail_input): Don't set nread to -1
Richard M. Stallman <rms@gnu.org>
parents: 5032
diff changeset
3094 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3095 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3096
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3097 #ifndef FIONREAD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3098 #ifdef USG
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3099 fcntl (fileno (stdin), F_SETFL, 0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3100 #endif /* USG */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3101 #endif /* no FIONREAD */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3102 for (i = 0; i < nread; i++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3103 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3104 buf[i].kind = ascii_keystroke;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3105 buf[i].modifiers = 0;
2690
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
3106 if (meta_key == 1 && (cbuf[i] & 0x80))
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3107 buf[i].modifiers = meta_modifier;
2690
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
3108 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
3109 cbuf[i] &= ~0x80;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3110
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3111 XSET (buf[i].code, Lisp_Int, cbuf[i]);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3112 #ifdef MULTI_FRAME
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3113 XSET (buf[i].frame_or_window, Lisp_Frame, selected_frame);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3114 #else
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3115 buf[i].frame_or_window = Qnil;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3116 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3117 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3118 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3119
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3120 /* Scan the chars for C-g and store them in kbd_buffer. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3121 for (i = 0; i < nread; i++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3122 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3123 kbd_buffer_store_event (&buf[i]);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3124 /* Don't look at input that follows a C-g too closely.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3125 This reduces lossage due to autorepeat on C-g. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3126 if (buf[i].kind == ascii_keystroke
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3127 && XINT(buf[i].code) == quit_char)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3128 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3129 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3130
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3131 return nread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3132 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3133 #endif /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3134
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3135 #ifdef SIGIO /* for entire page */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3136 /* Note SIGIO has been undef'd if FIONREAD is missing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3137
1119
5d315d54b8b4 * keyboard.c (kbd_buffer_get_event): When performing the
Jim Blandy <jimb@redhat.com>
parents: 1104
diff changeset
3138 SIGTYPE
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3139 input_available_signal (signo)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3140 int signo;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3141 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3142 /* Must preserve main program's value of errno. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3143 int old_errno = errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3144 #ifdef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3145 extern int select_alarmed;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3146 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3147
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3148 #ifdef USG
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3149 /* USG systems forget handlers when they are used;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3150 must reestablish each time */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3151 signal (signo, input_available_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3152 #endif /* USG */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3153
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3154 #ifdef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3155 sigisheld (SIGIO);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3156 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3157
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3158 if (input_available_clear_time)
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3159 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3160
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3161 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3162 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3163 int nread;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3164 nread = read_avail_input (1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3165 /* -1 means it's not ok to read the input now.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3166 UNBLOCK_INPUT will read it later; now, avoid infinite loop.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3167 0 means there was no keyboard input available. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3168 if (nread <= 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3169 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3170
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3171 #ifdef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3172 select_alarmed = 1; /* Force the select emulator back to life */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3173 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3174 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3175
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3176 #ifdef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3177 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3178 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3179 errno = old_errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3180 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3181 #endif /* SIGIO */
2726
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3182
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3183 /* Send ourselves a SIGIO.
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3184
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3185 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
3186 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
3187 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
3188 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
3189 void
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3190 reinvoke_input_signal ()
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3191 {
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3192 #ifdef SIGIO
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3193 kill (0, SIGIO);
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3194 #endif
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3195 }
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3196
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
3197
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3198
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3199 /* Return the prompt-string of a sparse keymap.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3200 This is the first element which is a string.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3201 Return nil if there is none. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3202
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3203 Lisp_Object
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3204 map_prompt (map)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3205 Lisp_Object map;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3206 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3207 while (CONSP (map))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3208 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3209 register Lisp_Object tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3210 tem = Fcar (map);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3211 if (XTYPE (tem) == Lisp_String)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3212 return tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3213 map = Fcdr (map);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3214 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3215 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3216 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3217
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3218 static Lisp_Object menu_bar_item ();
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3219 static Lisp_Object menu_bar_one_keymap ();
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3220
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3221 /* Return a list of menu items for a menu bar, appropriate
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3222 to the current buffer.
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3223 The elements have the form (KEY STRING . nil). */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3224
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3225 Lisp_Object
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3226 menu_bar_items ()
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3227 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3228 /* 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
3229 keymaps we have allocated space for. */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3230 int nmaps;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3231
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3232 /* 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
3233 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
3234 Lisp_Object *maps;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3235
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
3236 Lisp_Object def, tem, tail;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3237
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3238 Lisp_Object result;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3239
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3240 int mapno;
3255
b04e2b131ef0 (menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents: 3209
diff changeset
3241 Lisp_Object oquit;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3242
3209
1166db56c752 * keyboard.c (menu_bar_items): Bind Qinhibit_quit to Qt while we
Jim Blandy <jimb@redhat.com>
parents: 3174
diff changeset
3243 /* 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
3244 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
3245 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
3246 quitting while building the menus.
b04e2b131ef0 (menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents: 3209
diff changeset
3247 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
3248 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
3249 oquit = Vinhibit_quit;
b04e2b131ef0 (menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents: 3209
diff changeset
3250 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
3251
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3252 /* Build our list of keymaps.
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3253 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
3254 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
3255 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
3256 the initial keymaps from the current buffer. */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3257 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3258 Lisp_Object *tmaps;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3259
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3260 nmaps = current_minor_maps (0, &tmaps) + 2;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3261 maps = (Lisp_Object *) alloca (nmaps * sizeof (maps[0]));
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3262 bcopy (tmaps, maps, (nmaps - 2) * sizeof (maps[0]));
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3263 #ifdef USE_TEXT_PROPERTIES
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3264 maps[nmaps-2] = get_local_map (PT, current_buffer);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3265 #else
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
3266 maps[nmaps-2] = current_buffer->keymap;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3267 #endif
3887
d8eb17d07558 * keyboard.c (menu_bar_items, read_key_sequence): Use
Jim Blandy <jimb@redhat.com>
parents: 3861
diff changeset
3268 maps[nmaps-1] = current_global_map;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3269 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3270
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3271 /* 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
3272
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3273 result = Qnil;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3274
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3275 for (mapno = nmaps - 1; mapno >= 0; mapno--)
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3276 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3277 if (! NILP (maps[mapno]))
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
3278 def = get_keyelt (access_keymap (maps[mapno], Qmenu_bar, 1, 0));
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3279 else
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3280 def = Qnil;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3281
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3282 tem = Fkeymapp (def);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3283 if (!NILP (tem))
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3284 result = menu_bar_one_keymap (def, result);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3285 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3286
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
3287 for (tail = Vmenu_bar_final_items; CONSP (tail); tail = XCONS (tail)->cdr)
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
3288 {
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
3289 Lisp_Object elt;
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
3290
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
3291 elt = Fassq (XCONS (tail)->car, result);
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
3292 if (!NILP (elt))
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
3293 result = Fcons (elt, Fdelq (elt, result));
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
3294 }
4088
bea0be5ab35e (Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents: 4065
diff changeset
3295
3276
4a1d8a111149 (menu_bar_items): Call Fnreverse before restoring Vinhibit_quit.
Richard M. Stallman <rms@gnu.org>
parents: 3255
diff changeset
3296 result = Fnreverse (result);
3255
b04e2b131ef0 (menu_bar_items): Save Vinhibit_quit by hand
Richard M. Stallman <rms@gnu.org>
parents: 3209
diff changeset
3297 Vinhibit_quit = oquit;
3276
4a1d8a111149 (menu_bar_items): Call Fnreverse before restoring Vinhibit_quit.
Richard M. Stallman <rms@gnu.org>
parents: 3255
diff changeset
3298 return result;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3299 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3300
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3301 /* Scan one map KEYMAP, accumulating any menu items it defines
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3302 that have not yet been seen in RESULT. Return the updated RESULT. */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3303
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3304 static Lisp_Object
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3305 menu_bar_one_keymap (keymap, result)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3306 Lisp_Object keymap, result;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3307 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3308 Lisp_Object tail, item, key, binding, item_string, table;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3309
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3310 /* Loop over all keymap entries that have menu strings. */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3311 for (tail = keymap; XTYPE (tail) == Lisp_Cons; tail = XCONS (tail)->cdr)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3312 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3313 item = XCONS (tail)->car;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3314 if (XTYPE (item) == Lisp_Cons)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3315 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3316 key = XCONS (item)->car;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3317 binding = XCONS (item)->cdr;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3318 if (XTYPE (binding) == Lisp_Cons)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3319 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3320 item_string = XCONS (binding)->car;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3321 if (XTYPE (item_string) == Lisp_String)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3322 result = menu_bar_item (key, item_string,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3323 Fcdr (binding), result);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3324 }
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3325 else if (EQ (binding, Qundefined))
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3326 result = menu_bar_item (key, item_string,
4097
15c4c0c37fe2 * keyboard.c (menu_bar_one_keymap): If the key's binding is the
Jim Blandy <jimb@redhat.com>
parents: 4094
diff changeset
3327 binding, result);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3328 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3329 else if (XTYPE (item) == Lisp_Vector)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3330 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3331 /* Loop over the char values represented in the vector. */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3332 int len = XVECTOR (item)->size;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3333 int c;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3334 for (c = 0; c < len; c++)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3335 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3336 Lisp_Object character;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3337 XFASTINT (character) = c;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3338 binding = XVECTOR (item)->contents[c];
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3339 if (XTYPE (binding) == Lisp_Cons)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3340 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3341 item_string = XCONS (binding)->car;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3342 if (XTYPE (item_string) == Lisp_String)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3343 result = menu_bar_item (key, item_string,
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3344 Fcdr (binding), result);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3345 }
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3346 else if (EQ (binding, Qundefined))
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3347 result = menu_bar_item (key, item_string,
4097
15c4c0c37fe2 * keyboard.c (menu_bar_one_keymap): If the key's binding is the
Jim Blandy <jimb@redhat.com>
parents: 4094
diff changeset
3348 binding, result);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3349 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3350 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3351 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3352
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3353 return result;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3354 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3355
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3356 static Lisp_Object
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3357 menu_bar_item (key, item_string, def, result)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3358 Lisp_Object key, item_string, def, result;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3359 {
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3360 Lisp_Object tem;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3361 Lisp_Object enabled;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3362
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3363 if (EQ (def, Qundefined))
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3364 {
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3365 /* If a map has an explicit nil as definition,
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3366 discard any previously made menu bar item. */
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3367 tem = Fassq (key, result);
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3368 return Fdelq (tem, result);
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3369 }
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3370
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3371 /* See if this entry is enabled. */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3372 enabled = Qt;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3373
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3374 if (XTYPE (def) == Lisp_Symbol)
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3375 {
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3376 /* No property, or nil, means enable.
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3377 Otherwise, enable if value is not nil. */
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3378 tem = Fget (def, Qmenu_enable);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3379 if (!NILP (tem))
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3380 enabled = Feval (tem);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3381 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3382
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3383 /* Add an entry for this key and string
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3384 if there is none yet. */
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3385 tem = Fassq (key, result);
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
3386 if (!NILP (enabled) && NILP (tem))
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3387 result = Fcons (Fcons (key, Fcons (item_string, Qnil)), result);
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3388
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3389 return result;
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3390 }
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
3391
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3392 static int echo_flag;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3393 static int echo_now;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3394
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
3395 /* 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
3396 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
3397 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
3398
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3399 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
3400 the first event of a key sequence.
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3401
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
3402 If USED_MOUSE_MENU is non-zero, then we set *USED_MOUSE_MENU to 1
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
3403 if we used a mouse menu to read the input, or zero otherwise. If
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
3404 USED_MOUSE_MENU is zero, *USED_MOUSE_MENU is left alone.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3405
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3406 The prompting is done based on the prompt-string of the map
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3407 and the strings associated with various map elements. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3408
3453
1fd89e975a78 (read_char_menu_prompt): Now static. Add declaration.
Richard M. Stallman <rms@gnu.org>
parents: 3452
diff changeset
3409 static Lisp_Object
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3410 read_char_menu_prompt (nmaps, maps, prev_event, used_mouse_menu)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3411 int nmaps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3412 Lisp_Object *maps;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3413 Lisp_Object prev_event;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3414 int *used_mouse_menu;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3415 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3416 int mapno;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3417 register Lisp_Object name;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3418 int nlength;
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
3419 int width = FRAME_WIDTH (selected_frame) - 4;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3420 char *menu = (char *) alloca (width + 4);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3421 int idx = -1;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3422 Lisp_Object rest, vector;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3423
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
3424 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
3425 *used_mouse_menu = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3426
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3427 /* Use local over global Menu maps */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3428
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3429 if (! menu_prompting)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3430 return Qnil;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3431
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3432 /* 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
3433 for (mapno = 0; mapno < nmaps; mapno++)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3434 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3435 name = map_prompt (maps[mapno]);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3436 if (!NILP (name))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3437 break;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3438 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3439
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3440 /* If we don't have any menus, just read a character normally. */
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3441 if (mapno >= nmaps)
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3442 return Qnil;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3443
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3444 #ifdef HAVE_X_WINDOWS
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3445 #ifdef HAVE_X_MENU
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3446 /* 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
3447 use a real menu for mouse selection. */
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3448 if (EVENT_HAS_PARAMETERS (prev_event))
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3449 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3450 /* Display the menu and get the selection. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3451 Lisp_Object *realmaps
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3452 = (Lisp_Object *) alloca (nmaps * sizeof (Lisp_Object));
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3453 Lisp_Object value;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3454 int nmaps1 = 0;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3455
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3456 /* Use the maps that are not nil. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3457 for (mapno = 0; mapno < nmaps; mapno++)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3458 if (!NILP (maps[mapno]))
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3459 realmaps[nmaps1++] = maps[mapno];
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3460
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3461 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
3462 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
3463 {
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
3464 /* 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
3465 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
3466 Return just the first event now. */
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
3467 unread_command_events
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
3468 = nconc2 (XCONS (value)->cdr, unread_command_events);
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
3469 value = XCONS (value)->car;
340d7c6c8790 * keyboard.c (read_char): Exit kbd macro if Vexecuting_macro is t.
Jim Blandy <jimb@redhat.com>
parents: 2690
diff changeset
3470 }
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3471 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
3472 value = Qt;
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
3473 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
3474 *used_mouse_menu = 1;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3475 return value;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3476 }
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3477 #endif /* HAVE_X_MENU */
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
3478 #endif /* HAVE_X_WINDOWS */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3479
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3480 /* Prompt string always starts with map's prompt, and a space. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3481 strcpy (menu, XSTRING (name)->data);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3482 nlength = XSTRING (name)->size;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3483 menu[nlength++] = ':';
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3484 menu[nlength++] = ' ';
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3485 menu[nlength] = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3486
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3487 /* Start prompting at start of first map. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3488 mapno = 0;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3489 rest = maps[mapno];
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3490
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3491 /* Present the documented bindings, a line at a time. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3492 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3493 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3494 int notfirst = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3495 int i = nlength;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3496 Lisp_Object obj;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3497 int ch;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3498
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3499 /* Loop over elements of map. */
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3500 while (i < width)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3501 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3502 Lisp_Object s, elt;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3503
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3504 /* If reached end of map, start at beginning of next map. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3505 if (NILP (rest))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3506 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3507 mapno++;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3508 /* At end of last map, wrap around to first map if just starting,
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3509 or end this line if already have something on it. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3510 if (mapno == nmaps)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3511 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3512 if (notfirst)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3513 break;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3514 else
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3515 mapno = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3516 }
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3517 rest = maps[mapno];
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3518 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3519
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3520 /* Look at the next element of the map. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3521 if (idx >= 0)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3522 elt = XVECTOR (vector)->contents[idx];
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3523 else
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3524 elt = Fcar_safe (rest);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3525
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3526 if (idx < 0 && XTYPE (elt) == Lisp_Vector)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3527 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3528 /* If we found a dense table in the keymap,
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3529 advanced past it, but start scanning its contents. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3530 rest = Fcdr_safe (rest);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3531 vector = elt;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3532 idx = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3533 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3534 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3535 {
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3536 /* An ordinary element. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3537 s = Fcar_safe (Fcdr_safe (elt));
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3538 if (XTYPE (s) != Lisp_String)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3539 /* Ignore the element if it has no prompt string. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3540 ;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3541 /* If we have room for the prompt string, add it to this line.
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3542 If this is the first on the line, always add it. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3543 else if (XSTRING (s)->size + i < width
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3544 || !notfirst)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3545 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3546 int thiswidth;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3547
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3548 /* Punctuate between strings. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3549 if (notfirst)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3550 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3551 strcpy (menu + i, ", ");
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3552 i += 2;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3553 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3554 notfirst = 1;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3555
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3556 /* Add as much of string as fits. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3557 thiswidth = XSTRING (s)->size;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3558 if (thiswidth + i > width)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3559 thiswidth = width - i;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3560 bcopy (XSTRING (s)->data, menu + i, thiswidth);
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3561 i += thiswidth;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3562 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3563 else
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3564 {
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3565 /* If this element does not fit, end the line now,
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3566 and save the element for the next line. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3567 strcpy (menu + i, "...");
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3568 break;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3569 }
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3570
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3571 /* Move past this element. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3572 if (idx >= 0 && idx + 1 >= XVECTOR (rest)->size)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3573 /* Handle reaching end of dense table. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3574 idx = -1;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3575 if (idx >= 0)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3576 idx++;
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3577 else
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3578 rest = Fcdr_safe (rest);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3579 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3580 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3581
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3582 /* Prompt with that and read response. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3583 message1 (menu);
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3584 obj = read_char (1, 0, 0, Qnil, 0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3585
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3586 if (XTYPE (obj) != Lisp_Int)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3587 return obj;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3588 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3589 ch = XINT (obj);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3590
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3591 if (! EQ (obj, menu_prompt_more_char)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3592 && (XTYPE (menu_prompt_more_char) != Lisp_Int
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3593 || ! EQ (obj, make_number (Ctl (XINT (menu_prompt_more_char))))))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3594 return obj;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3595 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3596 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3597
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3598 /* Reading key sequences. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3599
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3600 /* Follow KEY in the maps in CURRENT[0..NMAPS-1], placing its bindings
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3601 in DEFS[0..NMAPS-1]. Set NEXT[i] to DEFS[i] if DEFS[i] is a
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3602 keymap, or nil otherwise. Return the index of the first keymap in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3603 which KEY has any binding, or NMAPS if no map has a binding.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3604
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3605 If KEY is a meta ASCII character, treat it like meta-prefix-char
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3606 followed by the corresponding non-meta character. Keymaps in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3607 CURRENT with non-prefix bindings for meta-prefix-char become nil in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3608 NEXT.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3609
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3610 When KEY is not defined in any of the keymaps, if it is an upper
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3611 case letter and there are bindings for the corresponding lower-case
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3612 letter, return the bindings for the lower-case letter.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3613
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3614 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
3615 unmodified.
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
3616
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3617 NEXT may == CURRENT. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3618
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3619 static int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3620 follow_key (key, nmaps, current, defs, next)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3621 Lisp_Object key;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3622 Lisp_Object *current, *defs, *next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3623 int nmaps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3624 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3625 int i, first_binding;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3626
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3627 /* If KEY is a meta ASCII character, treat it like meta-prefix-char
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3628 followed by the corresponding non-meta character. */
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3629 if (XTYPE (key) == Lisp_Int && (XINT (key) & CHAR_META))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3630 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3631 for (i = 0; i < nmaps; i++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3632 if (! NILP (current[i]))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3633 {
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
3634 next[i] =
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
3635 get_keyelt (access_keymap (current[i], meta_prefix_char, 1, 0));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3636
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3637 /* Note that since we pass the resulting bindings through
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3638 get_keymap_1, non-prefix bindings for meta-prefix-char
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3639 disappear. */
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3640 next[i] = get_keymap_1 (next[i], 0, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3641 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3642 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3643 next[i] = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3644
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3645 current = next;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3646 XSET (key, Lisp_Int, XFASTINT (key) & ~CHAR_META);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3647 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3648
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3649 first_binding = nmaps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3650 for (i = nmaps - 1; i >= 0; i--)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3651 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3652 if (! NILP (current[i]))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3653 {
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
3654 defs[i] = get_keyelt (access_keymap (current[i], key, 1, 0));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3655 if (! NILP (defs[i]))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3656 first_binding = i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3657 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3658 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3659 defs[i] = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3660 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3661
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3662 /* When KEY is not defined in any of the keymaps, if it is an upper
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3663 case letter and there are bindings for the corresponding
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3664 lower-case letter, return the bindings for the lower-case letter. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3665 if (first_binding == nmaps
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3666 && XTYPE (key) == Lisp_Int
2892
7ff263825550 (follow_key): Check char in range before UPPERCASEP.
Richard M. Stallman <rms@gnu.org>
parents: 2868
diff changeset
3667 && ((((XINT (key) & 0x3ffff)
7ff263825550 (follow_key): Check char in range before UPPERCASEP.
Richard M. Stallman <rms@gnu.org>
parents: 2868
diff changeset
3668 < XSTRING (current_buffer->downcase_table)->size)
7ff263825550 (follow_key): Check char in range before UPPERCASEP.
Richard M. Stallman <rms@gnu.org>
parents: 2868
diff changeset
3669 && UPPERCASEP (XINT (key) & 0x3ffff))
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3670 || (XINT (key) & shift_modifier)))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3671 {
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3672 if (XINT (key) & shift_modifier)
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3673 XSETINT (key, XINT (key) & ~shift_modifier);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3674 else
5078
698acfd3faa3 (follow_key): When downcasing, downcase just the
Richard M. Stallman <rms@gnu.org>
parents: 5077
diff changeset
3675 XSETINT (key, (DOWNCASE (XINT (key) & 0x3ffff)
698acfd3faa3 (follow_key): When downcasing, downcase just the
Richard M. Stallman <rms@gnu.org>
parents: 5077
diff changeset
3676 | (XINT (key) & ~0x3ffff)));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3677
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3678 first_binding = nmaps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3679 for (i = nmaps - 1; i >= 0; i--)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3680 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3681 if (! NILP (current[i]))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3682 {
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
3683 defs[i] = get_keyelt (access_keymap (current[i], key, 1, 0));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3684 if (! NILP (defs[i]))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3685 first_binding = i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3686 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3687 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3688 defs[i] = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3689 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3690 }
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3691
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3692 /* 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
3693 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
3694 for (i = 0; i < nmaps; i++)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3695 next[i] = NILP (defs[i]) ? Qnil : get_keymap_1 (defs[i], 0, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3696
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3697 return first_binding;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3698 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3699
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3700 /* Read a sequence of keys that ends with a non prefix character,
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3701 storing it in KEYBUF, a buffer of size BUFSIZE.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3702 Prompt with PROMPT.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3703 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
3704 Return -1 if the user rejected a command menu.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3705
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3706 Echo starting immediately unless `prompt' is 0.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3707
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3708 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
3709 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
3710 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
3711
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3712 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
3713 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
3714 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
3715 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
3716
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
3717 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
3718 `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
3719 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
3720 then into clicks.
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3721
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3722 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
3723 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
3724 symbol denoting that area - `mode-line', `vertical-line', or
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3725 whatever.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3726
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3727 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
3728 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
3729
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3730 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
3731 off the switch-frame event until later; the next call to
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3732 read_char will return it. */
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
3733
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3734 static int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3735 read_key_sequence (keybuf, bufsize, prompt)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3736 Lisp_Object *keybuf;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3737 int bufsize;
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
3738 Lisp_Object prompt;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3739 {
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3740 int count = specpdl_ptr - specpdl;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3741
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3742 /* How many keys there are in the current key sequence. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3743 int t;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3744
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3745 /* The length of the echo buffer when we started reading, and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3746 the length of this_command_keys when we started reading. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3747 int echo_start;
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3748 int keys_start;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3749
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3750 /* The number of keymaps we're scanning right now, and the number of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3751 keymaps we have allocated space for. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3752 int nmaps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3753 int nmaps_allocated = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3754
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3755 /* defs[0..nmaps-1] are the definitions of KEYBUF[0..t-1] in
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3756 the current keymaps. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3757 Lisp_Object *defs;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3758
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3759 /* 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
3760 in the current keymaps, or nil where it is not a prefix. */
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3761 Lisp_Object *submaps;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3762
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3763 /* 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
3764 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
3765 defs[i] is non-nil. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3766 int first_binding;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3767
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3768 /* If t < mock_input, then KEYBUF[t] should be read as the next
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3769 input key.
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3770
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3771 We use this to recover after recognizing a function key. Once we
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3772 realize that a suffix of the current key sequence is actually a
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3773 function key's escape sequence, we replace the suffix with the
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3774 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
3775 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
3776 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
3777 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
3778 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
3779 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
3780 reading characters from the keyboard. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3781 int mock_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3782
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3783 /* If the sequence is unbound in submaps[], then
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3784 keybuf[fkey_start..fkey_end-1] is a prefix in Vfunction_key_map,
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3785 and fkey_map is its binding.
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3786
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3787 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
3788 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
3789 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
3790 key's again in Vfunction_key_map. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3791 int fkey_start = 0, fkey_end = 0;
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3792 Lisp_Object fkey_map;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3793
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3794 /* Likewise, for key_translation_map. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3795 int keytran_start = 0, keytran_end = 0;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3796 Lisp_Object keytran_map;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3797
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
3798 /* If we receive a ``switch-frame'' event in the middle of a key sequence,
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
3799 we put it off for later. While we're reading, we keep the event here. */
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3800 Lisp_Object delayed_switch_frame;
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3801
4823
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
3802 /* 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
3803 #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
3804 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
3805 #endif
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3806
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
3807 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
3808
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3809 int junk;
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3810
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3811 last_nonmenu_event = Qnil;
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3812
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3813 delayed_switch_frame = Qnil;
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3814 fkey_map = Vfunction_key_map;
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3815 keytran_map = Vkey_translation_map;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3816
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3817 /* If there is no function-key-map, turn off function key scanning. */
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3818 if (NILP (Fkeymapp (Vfunction_key_map)))
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3819 fkey_start = fkey_end = bufsize + 1;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3820
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3821 /* If there is no key-translation-map, turn off scanning. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3822 if (NILP (Fkeymapp (Vkey_translation_map)))
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3823 keytran_start = keytran_end = bufsize + 1;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3824
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3825 if (INTERACTIVE)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3826 {
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
3827 if (!NILP (prompt))
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
3828 echo_prompt (XSTRING (prompt)->data);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3829 else if (cursor_in_echo_area)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3830 /* This doesn't put in a dash if the echo buffer is empty, so
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3831 you don't always see a dash hanging out in the minibuffer. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3832 echo_dash ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3833 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3834
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3835 /* 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
3836 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
3837 if (INTERACTIVE)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3838 echo_start = echo_length ();
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3839 keys_start = this_command_key_count;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3840
4823
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
3841 #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
3842 /* 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
3843 does cannot safely be bypassed. It seems too risky to try to make
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
3844 this work right. */
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
3845
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3846 /* 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
3847 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
3848 first_event = read_char (NILP (prompt), 0, submaps, last_nonmenu_event,
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3849 &junk);
4823
ec62e93360d1 (read_key_sequence): Don't declare first_event; it is no longer used.
Brian Fox <bfox@gnu.org>
parents: 4773
diff changeset
3850 #endif /* GOBBLE_FIRST_EVENT */
3294
4a10e4c34b11 (read_key_sequence): Read the first char specially
Richard M. Stallman <rms@gnu.org>
parents: 3276
diff changeset
3851
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3852 /* 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
3853 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
3854 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
3855 replay_sequence:
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3856
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
3857 starting_buffer = current_buffer;
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
3858
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3859 /* Build our list of keymaps.
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
3860 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
3861 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
3862 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
3863 the initial keymaps from the current buffer. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3864 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3865 Lisp_Object *maps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3866
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3867 nmaps = current_minor_maps (0, &maps) + 2;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3868 if (nmaps > nmaps_allocated)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3869 {
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3870 submaps = (Lisp_Object *) alloca (nmaps * sizeof (submaps[0]));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3871 defs = (Lisp_Object *) alloca (nmaps * sizeof (defs[0]));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3872 nmaps_allocated = nmaps;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3873 }
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3874 bcopy (maps, submaps, (nmaps - 2) * sizeof (submaps[0]));
2061
8fe7e77dc596 Include intervals.h.
Richard M. Stallman <rms@gnu.org>
parents: 2056
diff changeset
3875 #ifdef USE_TEXT_PROPERTIES
8fe7e77dc596 Include intervals.h.
Richard M. Stallman <rms@gnu.org>
parents: 2056
diff changeset
3876 submaps[nmaps-2] = get_local_map (PT, current_buffer);
8fe7e77dc596 Include intervals.h.
Richard M. Stallman <rms@gnu.org>
parents: 2056
diff changeset
3877 #else
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
3878 submaps[nmaps-2] = current_buffer->keymap;
2061
8fe7e77dc596 Include intervals.h.
Richard M. Stallman <rms@gnu.org>
parents: 2056
diff changeset
3879 #endif
3887
d8eb17d07558 * keyboard.c (menu_bar_items, read_key_sequence): Use
Jim Blandy <jimb@redhat.com>
parents: 3861
diff changeset
3880 submaps[nmaps-1] = current_global_map;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3881 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3882
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3883 /* Find an accurate initial value for first_binding. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3884 for (first_binding = 0; first_binding < nmaps; first_binding++)
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3885 if (! NILP (submaps[first_binding]))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3886 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3887
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
3888 /* Start from the beginning in keybuf. */
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3889 t = 0;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3890
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3891 /* 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
3892 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
3893 this_command_key_count = keys_start;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3894 if (INTERACTIVE)
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3895 echo_truncate (echo_start);
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3896
3809
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
3897 /* 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
3898 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
3899 reading. */
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3900 while ((first_binding < nmaps && ! NILP (submaps[first_binding]))
3809
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
3901 || (first_binding >= nmaps
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
3902 && fkey_start < t
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
3903 /* mock input is never part of a function key's sequence. */
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3904 && mock_input <= fkey_start)
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3905 || (first_binding >= nmaps
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3906 && keytran_start < t
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3907 /* mock input is never part of a function key's sequence. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
3908 && mock_input <= keytran_start))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3909 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3910 Lisp_Object key;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
3911 int used_mouse_menu = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3912
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3913 /* 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
3914 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
3915 (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
3916 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
3917 of keybuf. */
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3918 int last_real_key_start;
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
3919
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
3920 /* 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
3921 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
3922 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
3923 just one key. */
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3924 int echo_local_start, keys_local_start, local_first_binding;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3925
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3926 if (t >= bufsize)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3927 error ("key sequence too long");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3928
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3929 if (INTERACTIVE)
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3930 echo_local_start = echo_length ();
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3931 keys_local_start = this_command_key_count;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3932 local_first_binding = first_binding;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3933
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3934 replay_key:
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
3935 /* 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
3936 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
3937 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
3938 loop. */
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3939 if (INTERACTIVE)
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3940 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
3941 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
3942 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
3943
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
3944 /* 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
3945 last_real_key_start = t;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
3946
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3947 /* Does mock_input indicate that we are re-reading a key sequence? */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3948 if (t < mock_input)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3949 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3950 key = keybuf[t];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3951 add_command_key (key);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3952 echo_char (key);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3953 }
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3954
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
3955 /* If not, we should actually read a character. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3956 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3957 {
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
3958 struct buffer *buf = current_buffer;
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
3959
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
3960 key = read_char (NILP (prompt), nmaps, submaps, last_nonmenu_event,
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
3961 &used_mouse_menu);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3962
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
3963 /* 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
3964 Just return -1. */
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
3965 if (EQ (key, Qt))
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
3966 return -1;
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
3967
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3968 /* read_char returns -1 at the end of a macro.
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3969 Emacs 18 handles this by returning immediately with a
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3970 zero, so that's what we'll do. */
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
3971 if (XTYPE (key) == Lisp_Int && XINT (key) == -1)
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
3972 {
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3973 t = 0;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
3974 goto done;
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
3975 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3976
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
3977 /* 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
3978 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
3979 replay to get the right keymap. */
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
3980 if (EQ (key, quit_char) && current_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
3981 {
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
3982 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
3983 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
3984 Vquit_flag = Qnil;
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
3985 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
3986 }
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
3987
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3988 Vquit_flag = Qnil;
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
3989 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
3990
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
3991 /* Clicks in non-text areas get prefixed by the symbol
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
3992 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
3993 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
3994
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
3995 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
3996 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
3997 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
3998 here.
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
3999
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4000 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
4001 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
4002 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
4003 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
4004 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
4005 if (EVENT_HAS_PARAMETERS (key))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4006 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4007 Lisp_Object kind = EVENT_HEAD_KIND (EVENT_HEAD (key));
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4008
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4009 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
4010 {
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4011 Lisp_Object window = POSN_WINDOW (EVENT_START (key));
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4012 Lisp_Object posn = POSN_BUFFER_POSN (EVENT_START (key));
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4013
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4014 if (XTYPE (posn) == Lisp_Cons)
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4015 {
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4016 /* 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
4017 sequence which we expanded before. Set
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4018 last_real_key_start appropriately. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4019 if (t > 0)
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4020 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
4021 }
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4022
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4023 /* 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
4024 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
4025 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
4026 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
4027 if (last_real_key_start == 0
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4028 && XTYPE (window) == Lisp_Window
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4029 && XTYPE (XWINDOW (window)->buffer) == Lisp_Buffer
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4030 && 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
4031 {
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4032 keybuf[t] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4033 mock_input = t + 1;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4034
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4035 /* 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
4036 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
4037 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
4038 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
4039 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
4040 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
4041 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
4042 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
4043 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
4044 emacsclient). */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4045 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
4046
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4047 set_buffer_internal (XBUFFER (XWINDOW (window)->buffer));
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4048 goto replay_sequence;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4049 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4050 else if (XTYPE (posn) == Lisp_Symbol)
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4051 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4052 /* Expand mode-line and scroll-bar events into two events:
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4053 use posn as a fake prefix key. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4054
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4055 if (t + 1 >= bufsize)
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4056 error ("key sequence too long");
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4057 keybuf[t] = posn;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4058 keybuf[t+1] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4059 mock_input = t + 2;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4060
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4061 /* 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
4062 expanded it, and don't try to do so again. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4063 POSN_BUFFER_POSN (EVENT_START (key))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4064 = Fcons (posn, Qnil);
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4065 goto replay_key;
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
4066 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4067 }
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4068 else if (EQ (kind, Qswitch_frame))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4069 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4070 /* If we're at the beginning of a key sequence, go
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4071 ahead and return this event. If we're in the
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4072 midst of a key sequence, delay it until the end. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4073 if (t > 0)
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4074 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4075 delayed_switch_frame = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4076 goto replay_key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4077 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4078 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4079 else
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
4080 {
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4081 Lisp_Object posn = POSN_BUFFER_POSN (EVENT_START (key));
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4082
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4083 /* Handle menu-bar events:
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4084 insert the dummy prefix event `menu-bar'. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4085 if (EQ (posn, Qmenu_bar))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4086 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4087 if (t + 1 >= bufsize)
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4088 error ("key sequence too long");
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4089 /* Run the Lucid hook. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4090 call1 (Vrun_hooks, Qactivate_menubar_hook);
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4091 /* If it has changed current-menubar from previous value,
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4092 really recompute the menubar from the value. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4093 if (! NILP (Vlucid_menu_bar_dirty_flag))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4094 call0 (Qrecompute_lucid_menubar);
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4095 keybuf[t] = posn;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4096 keybuf[t+1] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4097
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4098 /* 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
4099 expanded it, and don't try to do so again. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4100 POSN_BUFFER_POSN (EVENT_START (key))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4101 = Fcons (posn, Qnil);
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4102
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4103 mock_input = t + 2;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4104 goto replay_sequence;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4105 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4106 else if (XTYPE (posn) == Lisp_Cons)
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4107 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4108 /* 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
4109 sequence which we expanded before. Set
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4110 last_real_key_start appropriately. */
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4111 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
4112 last_real_key_start = t - 1;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4113 }
3452
3393f6e53d25 (read_key_sequence) [!USE_TEXT_PROPERTIES]: Fix typo.
Richard M. Stallman <rms@gnu.org>
parents: 3294
diff changeset
4114 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4115 }
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4116
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4117 /* 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
4118 to look up. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4119 first_binding = (follow_key (key,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4120 nmaps - first_binding,
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
4121 submaps + first_binding,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4122 defs + first_binding,
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
4123 submaps + first_binding)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4124 + first_binding);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4125
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4126 /* If KEY wasn't bound, we'll try some fallbacks. */
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4127 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
4128 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4129 Lisp_Object head = EVENT_HEAD (key);
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4130
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4131 if (EQ (head, Vhelp_char))
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4132 {
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4133 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
4134 keybuf[t++] = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4135 last_nonmenu_event = key;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4136 goto done;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4137 }
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
4138
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4139 if (XTYPE (head) == Lisp_Symbol)
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4140 {
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4141 Lisp_Object breakdown = parse_modifiers (head);
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
4142 int modifiers = XINT (XCONS (XCONS (breakdown)->cdr)->car);
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4143
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4144 /* 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
4145 event that is bound:
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4146 Drags reduce to clicks.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4147 Double-clicks reduce to clicks.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4148 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
4149 Down-clicks are eliminated.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4150 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
4151 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
4152 then are eliminated. */
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4153 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
4154 | 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
4155 {
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4156 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
4157 | 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
4158 {
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4159 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
4160 if (modifiers & triple_modifier)
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4161 modifiers ^= (double_modifier | triple_modifier);
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4162 else if (modifiers & (drag_modifier | double_modifier))
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4163 modifiers &= ~(drag_modifier | double_modifier);
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4164 else
4397
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4165 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4166 /* 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
4167 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
4168
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4169 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
4170 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
4171 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
4172 mock input.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4173
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4174 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
4175 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
4176 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
4177 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
4178 anyway.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4179
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4180 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
4181 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
4182 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
4183 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
4184 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
4185 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
4186 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
4187 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
4188 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
4189 it.
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4190
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4191 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
4192 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
4193 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
4194 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
4195
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4196 Isn't this just the most wonderful code ever? */
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4197 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
4198 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4199 mock_input = 0;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4200 goto replay_key;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4201 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4202 else
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4203 {
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4204 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
4205 goto replay_sequence;
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4206 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4207 }
d6d07b43f6d5 (last_mouse_button): Renamed from button_up_button.
Richard M. Stallman <rms@gnu.org>
parents: 4315
diff changeset
4208
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
4209 new_head
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
4210 = apply_modifiers (modifiers, XCONS (breakdown)->car);
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
4211 new_click
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
4212 = 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
4213
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4214 /* 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
4215 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
4216 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
4217 first_binding
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
4218 = (follow_key (new_click,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
4219 nmaps - local_first_binding,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
4220 submaps + local_first_binding,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
4221 defs + local_first_binding,
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
4222 submaps + local_first_binding)
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
4223 + local_first_binding);
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4224
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4225 /* 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
4226 if (first_binding < nmaps)
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4227 {
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4228 key = new_click;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4229 break;
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4230 }
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4231 /* 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
4232 }
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4233 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4234 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4235 }
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4236
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4237 keybuf[t++] = key;
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
4238 /* 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
4239 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
4240 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
4241 event that preceded the first level of menu. */
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
4242 if (!used_mouse_menu)
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
4243 last_nonmenu_event = key;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4244
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4245 /* If the sequence is unbound, see if we can hang a function key
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
4246 off the end of it. We only want to scan real keyboard input
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
4247 for function key sequences, so if mock_input says that we're
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4248 re-reading old events, don't examine it. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4249 if (first_binding >= nmaps
899
ef5f79a6535a entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 853
diff changeset
4250 && t >= mock_input)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4251 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4252 Lisp_Object fkey_next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4253
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4254 /* Scan from fkey_end until we find a bound suffix. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4255 while (fkey_end < t)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4256 {
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4257 Lisp_Object key;
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4258
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4259 key = keybuf[fkey_end++];
853
224b0d5d1a38 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
4260 /* Look up meta-characters by prefixing them
224b0d5d1a38 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
4261 with meta_prefix_char. I hate this. */
2056
0c95942fc8da (read_key_sequence):
Richard M. Stallman <rms@gnu.org>
parents: 2045
diff changeset
4262 if (XTYPE (key) == Lisp_Int && XINT (key) & meta_modifier)
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4263 {
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
4264 fkey_next
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
4265 = get_keymap_1
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4266 (get_keyelt
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
4267 (access_keymap (fkey_map, meta_prefix_char, 1, 0)),
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4268 0, 1);
2056
0c95942fc8da (read_key_sequence):
Richard M. Stallman <rms@gnu.org>
parents: 2045
diff changeset
4269 XFASTINT (key) = XFASTINT (key) & ~meta_modifier;
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4270 }
853
224b0d5d1a38 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
4271 else
224b0d5d1a38 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
4272 fkey_next = fkey_map;
224b0d5d1a38 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
4273
3748
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
4274 fkey_next
260c9c3200b1 Calls to access_keymap updated.
Richard M. Stallman <rms@gnu.org>
parents: 3682
diff changeset
4275 = get_keyelt (access_keymap (fkey_next, key, 1, 0));
939
c4dcdc9aed70 Clear the eighth bit of the character from the key sequence, NOT the
Jim Blandy <jimb@redhat.com>
parents: 899
diff changeset
4276
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4277 /* If the function key map gives a function, not an
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4278 array, then call the function with no args and use
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4279 its value instead. */
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4280 if (SYMBOLP (fkey_next) && ! NILP (Ffboundp (fkey_next))
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4281 && fkey_end == t)
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4282 {
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4283 struct gcpro gcpro1, gcpro2, gcpro3;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4284 Lisp_Object tem;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4285 tem = fkey_next;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4286
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4287 GCPRO3 (fkey_map, keytran_map, delayed_switch_frame);
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
4288 fkey_next = call1 (fkey_next, prompt);
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4289 UNGCPRO;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4290 /* If the function returned something invalid,
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4291 barf--don't ignore it.
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4292 (To ignore it safely, we would need to gcpro a bunch of
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4293 other variables.) */
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4294 if (! (VECTORP (fkey_next) || STRINGP (fkey_next)))
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4295 error ("Function in function-key-map returns invalid key sequence");
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4296 }
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4297
939
c4dcdc9aed70 Clear the eighth bit of the character from the key sequence, NOT the
Jim Blandy <jimb@redhat.com>
parents: 899
diff changeset
4298 /* If keybuf[fkey_start..fkey_end] is bound in the
547
1856d835aac3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 518
diff changeset
4299 function key map and it's a suffix of the current
939
c4dcdc9aed70 Clear the eighth bit of the character from the key sequence, NOT the
Jim Blandy <jimb@redhat.com>
parents: 899
diff changeset
4300 sequence (i.e. fkey_end == t), replace it with
547
1856d835aac3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 518
diff changeset
4301 the binding and restart with fkey_start at the end. */
4137
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4302 if ((VECTORP (fkey_next) || STRINGP (fkey_next))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4303 && fkey_end == t)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4304 {
4417
02b7d9476fae (read_key_sequence): Use XFASTINT to convert value
Richard M. Stallman <rms@gnu.org>
parents: 4397
diff changeset
4305 int len = XFASTINT (Flength (fkey_next));
4137
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4306
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4307 t = fkey_start + len;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4308 if (t >= bufsize)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4309 error ("key sequence too long");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4310
4137
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4311 if (VECTORP (fkey_next))
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4312 bcopy (XVECTOR (fkey_next)->contents,
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4313 keybuf + fkey_start,
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4314 (t - fkey_start) * sizeof (keybuf[0]));
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4315 else if (STRINGP (fkey_next))
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4316 {
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4317 int i;
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4318
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4319 for (i = 0; i < len; i++)
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4320 XFASTINT (keybuf[fkey_start + i])
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4321 = XSTRING (fkey_next)->data[i];
4137
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4322 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4323
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4324 mock_input = t;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4325 fkey_start = fkey_end = t;
3538
f53bcee8d914 (read_key_sequence): Reset fkey_map when we find
Richard M. Stallman <rms@gnu.org>
parents: 3453
diff changeset
4326 fkey_map = Vfunction_key_map;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4327
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4328 goto replay_sequence;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4329 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4330
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4331 fkey_map = get_keymap_1 (fkey_next, 0, 1);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4332
547
1856d835aac3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 518
diff changeset
4333 /* If we no longer have a bound suffix, try a new positions for
1856d835aac3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 518
diff changeset
4334 fkey_start. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4335 if (NILP (fkey_map))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4336 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4337 fkey_end = ++fkey_start;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4338 fkey_map = Vfunction_key_map;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4339 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4340 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4341 }
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4342
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4343 /* Look for this sequence in key-translation-map. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4344 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4345 Lisp_Object keytran_next;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4346
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4347 /* Scan from keytran_end until we find a bound suffix. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4348 while (keytran_end < t)
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4349 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4350 Lisp_Object key;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4351
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4352 key = keybuf[keytran_end++];
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4353 /* Look up meta-characters by prefixing them
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4354 with meta_prefix_char. I hate this. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4355 if (XTYPE (key) == Lisp_Int && XINT (key) & meta_modifier)
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4356 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4357 keytran_next
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4358 = get_keymap_1
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4359 (get_keyelt
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4360 (access_keymap (keytran_map, meta_prefix_char, 1, 0)),
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4361 0, 1);
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4362 XFASTINT (key) = XFASTINT (key) & ~meta_modifier;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4363 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4364 else
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4365 keytran_next = keytran_map;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4366
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4367 keytran_next
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4368 = get_keyelt (access_keymap (keytran_next, key, 1, 0));
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4369
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4370 /* If the key translation map gives a function, not an
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4371 array, then call the function with no args and use
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4372 its value instead. */
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4373 if (SYMBOLP (keytran_next) && ! NILP (Ffboundp (keytran_next))
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4374 && keytran_end == t)
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4375 {
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4376 struct gcpro gcpro1, gcpro2, gcpro3;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4377 Lisp_Object tem;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4378 tem = keytran_next;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4379
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4380 GCPRO3 (keytran_map, keytran_map, delayed_switch_frame);
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
4381 keytran_next = call1 (keytran_next, prompt);
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4382 UNGCPRO;
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4383 /* If the function returned something invalid,
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4384 barf--don't ignore it.
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4385 (To ignore it safely, we would need to gcpro a bunch of
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4386 other variables.) */
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4387 if (! (VECTORP (keytran_next) || STRINGP (keytran_next)))
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4388 error ("Function in function-key-map returns invalid key sequence");
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4389 }
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4390
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4391 /* If keybuf[keytran_start..keytran_end] is bound in the
4849
5ebf3eec091b (read_key_sequence): Allow function in key-translation-map
Richard M. Stallman <rms@gnu.org>
parents: 4823
diff changeset
4392 key translation map and it's a suffix of the current
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4393 sequence (i.e. keytran_end == t), replace it with
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4394 the binding and restart with keytran_start at the end. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4395 if ((VECTORP (keytran_next) || STRINGP (keytran_next))
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4396 && keytran_end == t)
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4397 {
4417
02b7d9476fae (read_key_sequence): Use XFASTINT to convert value
Richard M. Stallman <rms@gnu.org>
parents: 4397
diff changeset
4398 int len = XFASTINT (Flength (keytran_next));
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4399
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4400 t = keytran_start + len;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4401 if (t >= bufsize)
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4402 error ("key sequence too long");
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4403
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4404 if (VECTORP (keytran_next))
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4405 bcopy (XVECTOR (keytran_next)->contents,
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4406 keybuf + keytran_start,
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4407 (t - keytran_start) * sizeof (keybuf[0]));
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4408 else if (STRINGP (keytran_next))
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4409 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4410 int i;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4411
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4412 for (i = 0; i < len; i++)
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4413 XFASTINT (keybuf[keytran_start + i])
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4414 = XSTRING (keytran_next)->data[i];
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4415 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4416
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4417 mock_input = t;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4418 keytran_start = keytran_end = t;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4419 keytran_map = Vkey_translation_map;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4420
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4421 goto replay_sequence;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4422 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4423
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4424 keytran_map = get_keymap_1 (keytran_next, 0, 1);
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4425
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4426 /* If we no longer have a bound suffix, try a new positions for
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4427 keytran_start. */
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4428 if (NILP (keytran_map))
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4429 {
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4430 keytran_end = ++keytran_start;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4431 keytran_map = Vkey_translation_map;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4432 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4433 }
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4434 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4435 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4436
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4437 read_key_sequence_cmd = (first_binding < nmaps
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4438 ? defs[first_binding]
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4439 : Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4440
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4441 done:
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
4442 unread_switch_frame = delayed_switch_frame;
1515
8cc7bc81d2aa * keyboard.c: #include dispextern.h.
Jim Blandy <jimb@redhat.com>
parents: 1449
diff changeset
4443 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
4444
1c2303940681 * keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents: 3748
diff changeset
4445 /* 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
4446 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
4447 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
4448 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
4449 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
4450 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
4451 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
4452
1c2303940681 * keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents: 3748
diff changeset
4453 Better ideas? */
3809
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
4454 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
4455 {
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
4456 echo_char (keybuf[t]);
0f579c7269a3 * keyboard.c (read_key_sequence): Don't confuse mock input with
Jim Blandy <jimb@redhat.com>
parents: 3799
diff changeset
4457 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
4458 }
3799
1c2303940681 * keyboard.c (read_key_sequence): If we add events to a key
Jim Blandy <jimb@redhat.com>
parents: 3748
diff changeset
4459
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4460 return t;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4461 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4462
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4463 #if 0 /* This doc string is too long for some compilers.
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4464 This commented-out definition serves for DOC. */
691
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
4465 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 2, 0,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4466 "Read a sequence of keystrokes and return as a string or vector.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4467 The sequence is sufficient to specify a non-prefix command in the\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4468 current local and global maps.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4469 \n\
691
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
4470 First arg PROMPT is a prompt string. If nil, do not prompt specially.\n\
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
4471 Second (optional) arg CONTINUE-ECHO, if non-nil, means this key echos\n\
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
4472 as a continuation of the previous key.\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4473 \n\
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4474 A C-g typed while in this function is treated like any other character,\n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4475 and `quit-flag' is not set.\n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4476 \n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4477 If the key sequence starts with a mouse click, then the sequence is read\n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4478 using the keymaps of the buffer of the window clicked in, not the buffer\n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4479 of the selected window as normal.\n\
4988
2f9a58694d43 (Fread_key_sequence): Split the doc string with "".
Richard M. Stallman <rms@gnu.org>
parents: 4878
diff changeset
4480 ""\n\
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4481 `read-key-sequence' drops unbound button-down events, since you normally\n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4482 only care about the click or drag events which follow them. If a drag\n\
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4483 or multi-click event is unbound, but the corresponding click event would\n\
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4484 be bound, `read-key-sequence' turns the event into a click event at the\n\
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4485 drag's starting position. This means that you don't have to distinguish\n\
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
4486 between click and drag, double, or triple events unless you want to.\n\
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4487 \n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4488 `read-key-sequence' prefixes mouse events on mode lines, the vertical\n\
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
4489 lines separating windows, and scroll bars with imaginary keys\n\
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
4490 `mode-line', `vertical-line', and `vertical-scroll-bar'.\n\
1921
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4491 \n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4492 If the user switches frames in the middle of a key sequence, the\n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4493 frame-switch event is put off until after the current key sequence.\n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4494 \n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4495 `read-key-sequence' checks `function-key-map' for function key\n\
06ecd9e51ca0 * keyboard.c (init_keyboard): Recognize HAVE_TERMIOS as well as
Jim Blandy <jimb@redhat.com>
parents: 1895
diff changeset
4496 sequences, where they wouldn't conflict with ordinary bindings. See\n\
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4497 `function-key-map' for more details.")
691
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
4498 (prompt, continue_echo)
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4499 #endif
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4500
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4501 DEFUN ("read-key-sequence", Fread_key_sequence, Sread_key_sequence, 1, 2, 0,
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4502 0)
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
4503 (prompt, continue_echo)
691
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
4504 Lisp_Object prompt, continue_echo;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4505 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4506 Lisp_Object keybuf[30];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4507 register int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4508 struct gcpro gcpro1, gcpro2;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4509
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4510 if (!NILP (prompt))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4511 CHECK_STRING (prompt, 0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4512 QUIT;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4513
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4514 bzero (keybuf, sizeof keybuf);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4515 GCPRO1 (keybuf[0]);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4516 gcpro1.nvars = (sizeof keybuf/sizeof (keybuf[0]));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4517
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 721
diff changeset
4518 if (NILP (continue_echo))
691
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
4519 this_command_key_count = 0;
cae8c3ef1677 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 687
diff changeset
4520
4878
57c506c597b9 (read_key_sequence): Arg prompt is now a Lisp object.
Richard M. Stallman <rms@gnu.org>
parents: 4849
diff changeset
4521 i = read_key_sequence (keybuf, (sizeof keybuf/sizeof (keybuf[0])), prompt);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4522
4106
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
4523 if (i == -1)
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
4524 {
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
4525 Vquit_flag = Qt;
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
4526 QUIT;
bfc21ea9a00f (read_char_menu_prompt): If the user rejects a menu,
Richard M. Stallman <rms@gnu.org>
parents: 4097
diff changeset
4527 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4528 UNGCPRO;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
4529 return make_event_array (i, keybuf);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4530 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4531
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4532 DEFUN ("command-execute", Fcommand_execute, Scommand_execute, 1, 2, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4533 "Execute CMD as an editor command.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4534 CMD must be a symbol that satisfies the `commandp' predicate.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4535 Optional second arg RECORD-FLAG non-nil\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4536 means unconditionally put this command in `command-history'.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4537 Otherwise, that is done only if an arg is read using the minibuffer.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4538 (cmd, record)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4539 Lisp_Object cmd, record;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4540 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4541 register Lisp_Object final;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4542 register Lisp_Object tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4543 Lisp_Object prefixarg;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4544 struct backtrace backtrace;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4545 extern int debug_on_next_call;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4546
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4547 prefixarg = Vprefix_arg, Vprefix_arg = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4548 Vcurrent_prefix_arg = prefixarg;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4549 debug_on_next_call = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4550
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4551 if (XTYPE (cmd) == Lisp_Symbol)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4552 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4553 tem = Fget (cmd, Qdisabled);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4554 if (!NILP (tem))
4094
1dae74fd93d2 (Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4088
diff changeset
4555 return call1 (Vrun_hooks, Qdisabled_command_hook);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4556 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4557
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4558 while (1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4559 {
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4560 final = Findirect_function (cmd);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4561
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4562 if (CONSP (final) && (tem = Fcar (final), EQ (tem, Qautoload)))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4563 do_autoload (final, cmd);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4564 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4565 break;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4566 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4567
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4568 if (XTYPE (final) == Lisp_String
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4569 || XTYPE (final) == Lisp_Vector)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4570 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4571 /* If requested, place the macro in the command history. For
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4572 other sorts of commands, call-interactively takes care of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4573 this. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4574 if (!NILP (record))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4575 Vcommand_history
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4576 = Fcons (Fcons (Qexecute_kbd_macro,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4577 Fcons (final, Fcons (prefixarg, Qnil))),
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4578 Vcommand_history);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4579
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4580 return Fexecute_kbd_macro (final, prefixarg);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4581 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4582 if (CONSP (final) || XTYPE (final) == Lisp_Subr
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4583 || XTYPE (final) == Lisp_Compiled)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4584 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4585 backtrace.next = backtrace_list;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4586 backtrace_list = &backtrace;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4587 backtrace.function = &Qcall_interactively;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4588 backtrace.args = &cmd;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4589 backtrace.nargs = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4590 backtrace.evalargs = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4591
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4592 tem = Fcall_interactively (cmd, record);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4593
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4594 backtrace_list = backtrace.next;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4595 return tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4596 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4597 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4598 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4599
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4600 DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_command,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4601 1, 1, "P",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4602 "Read function name, then read its arguments and call it.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4603 (prefixarg)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4604 Lisp_Object prefixarg;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4605 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4606 Lisp_Object function;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4607 char buf[40];
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4608 Lisp_Object saved_keys;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4609 struct gcpro gcpro1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4610
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4611 saved_keys = Fthis_command_keys ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4612 buf[0] = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4613 GCPRO1 (saved_keys);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4614
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4615 if (EQ (prefixarg, Qminus))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4616 strcpy (buf, "- ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4617 else if (CONSP (prefixarg) && XINT (XCONS (prefixarg)->car) == 4)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4618 strcpy (buf, "C-u ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4619 else if (CONSP (prefixarg) && XTYPE (XCONS (prefixarg)->car) == Lisp_Int)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4620 sprintf (buf, "%d ", XINT (XCONS (prefixarg)->car));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4621 else if (XTYPE (prefixarg) == Lisp_Int)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4622 sprintf (buf, "%d ", XINT (prefixarg));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4623
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4624 /* This isn't strictly correct if execute-extended-command
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4625 is bound to anything else. Perhaps it should use
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4626 this_command_keys? */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4627 strcat (buf, "M-x ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4628
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4629 /* Prompt with buf, and then read a string, completing from and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4630 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
4631 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
4632 history list. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4633 function = Fcompleting_read (build_string (buf),
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4634 Vobarray, Qcommandp,
4773
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
4635 Qt, Qnil, Qextended_command_history);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4636
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4637 /* Set this_command_keys to the concatenation of saved_keys and
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4638 function, followed by a RET. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4639 {
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4640 struct Lisp_String *str;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4641 int i;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4642 Lisp_Object tem;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4643
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4644 this_command_key_count = 0;
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4645
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4646 str = XSTRING (saved_keys);
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4647 for (i = 0; i < str->size; i++)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4648 {
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4649 XFASTINT (tem) = str->data[i];
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4650 add_command_key (tem);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4651 }
708
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4652
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4653 str = XSTRING (function);
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4654 for (i = 0; i < str->size; i++)
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4655 {
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4656 XFASTINT (tem) = str->data[i];
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4657 add_command_key (tem);
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4658 }
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4659
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4660 XFASTINT (tem) = '\015';
030fb4635335 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 701
diff changeset
4661 add_command_key (tem);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4662 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4663
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4664 UNGCPRO;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4665
1328
c4eb3aa71303 * keyboard.c (read_key_sequence): Treat mouse clicks on non-text
Jim Blandy <jimb@redhat.com>
parents: 1322
diff changeset
4666 function = Fintern (function, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4667 Vprefix_arg = prefixarg;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4668 this_command = function;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4669
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4670 return Fcommand_execute (function, Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4671 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4672
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4673
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4674 detect_input_pending ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4675 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4676 if (!input_pending)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4677 get_input_pending (&input_pending);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4678
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4679 return input_pending;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4680 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4681
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4682 /* This is called in some cases before a possible quit.
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4683 It cases the next call to detect_input_pending to recompute input_pending.
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4684 So calling this function unnecessarily can't do any harm. */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4685 clear_input_pending ()
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4686 {
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4687 input_pending = 0;
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4688 }
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4689
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4690 DEFUN ("input-pending-p", Finput_pending_p, Sinput_pending_p, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4691 "T if command input is currently available with no waiting.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4692 Actually, the value is nil only if we can be sure that no input is available.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4693 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4694 {
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
4695 if (!NILP (unread_command_events) || unread_command_char != -1)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4696 return (Qt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4697
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4698 return detect_input_pending () ? Qt : Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4699 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4700
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4701 DEFUN ("recent-keys", Frecent_keys, Srecent_keys, 0, 0, 0,
1802
456ebec04db7 (Frecent_keys): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 1778
diff changeset
4702 "Return vector of last 100 events, not counting those from keyboard macros.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4703 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4704 {
1261
60b30565326c * keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents: 1239
diff changeset
4705 Lisp_Object *keys = XVECTOR (recent_keys)->contents;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4706 Lisp_Object val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4707
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4708 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
4709 return Fvector (total_keys, keys);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4710 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4711 {
1261
60b30565326c * keyboard.c (recent_keys): Turn this from an array, which is a
Jim Blandy <jimb@redhat.com>
parents: 1239
diff changeset
4712 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
4713 bcopy (keys + recent_keys_index,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4714 XVECTOR (val)->contents,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4715 (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
4716 bcopy (keys,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4717 XVECTOR (val)->contents + NUM_RECENT_KEYS - recent_keys_index,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4718 recent_keys_index * sizeof (Lisp_Object));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4719 return val;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4720 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4721 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4722
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4723 DEFUN ("this-command-keys", Fthis_command_keys, Sthis_command_keys, 0, 0, 0,
2611
8bfb4d8d4238 (Fthis_command_keys): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 2512
diff changeset
4724 "Return the key sequence that invoked this command.\n\
8bfb4d8d4238 (Fthis_command_keys): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 2512
diff changeset
4725 The value is a string or a vector.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4726 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4727 {
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
4728 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
4729 XVECTOR (this_command_keys)->contents);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4730 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4731
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4732 DEFUN ("recursion-depth", Frecursion_depth, Srecursion_depth, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4733 "Return the current depth in recursive edits.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4734 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4735 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4736 Lisp_Object temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4737 XFASTINT (temp) = command_loop_level + minibuf_level;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4738 return temp;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4739 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4740
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4741 DEFUN ("open-dribble-file", Fopen_dribble_file, Sopen_dribble_file, 1, 1,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4742 "FOpen dribble file: ",
1888
86ff3942d7e1 (Fopen_dribble_file): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 1842
diff changeset
4743 "Start writing all keyboard characters to a dribble file called FILE.\n\
86ff3942d7e1 (Fopen_dribble_file): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 1842
diff changeset
4744 If FILE is nil, close any open dribble file.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4745 (file)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4746 Lisp_Object file;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4747 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4748 if (NILP (file))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4749 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4750 fclose (dribble);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4751 dribble = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4752 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4753 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4754 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4755 file = Fexpand_file_name (file, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4756 dribble = fopen (XSTRING (file)->data, "w");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4757 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4758 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4759 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4760
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4761 DEFUN ("discard-input", Fdiscard_input, Sdiscard_input, 0, 0, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4762 "Discard the contents of the terminal input buffer.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4763 Also cancel any kbd macro being defined.")
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4764 ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4765 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4766 defining_kbd_macro = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4767 update_mode_lines++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4768
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
4769 unread_command_events = Qnil;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
4770 unread_command_char = -1;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4771
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4772 discard_tty_input ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4773
1654
fe6f6e55182f * keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents: 1590
diff changeset
4774 /* Without the cast, GCC complains that this assignment loses the
fe6f6e55182f * keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents: 1590
diff changeset
4775 volatile qualifier of kbd_store_ptr. Is there anything wrong
fe6f6e55182f * keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents: 1590
diff changeset
4776 with that? */
fe6f6e55182f * keyboard.c (kbd_store_ptr): Declare this to be volatile, if
Jim Blandy <jimb@redhat.com>
parents: 1590
diff changeset
4777 kbd_fetch_ptr = (struct input_event *) kbd_store_ptr;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4778 Ffillarray (kbd_buffer_frame_or_window, Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4779 input_pending = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4780
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4781 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4782 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4783
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4784 DEFUN ("suspend-emacs", Fsuspend_emacs, Ssuspend_emacs, 0, 1, "",
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4785 "Stop Emacs and return to superior process. You can resume later.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4786 On systems that don't have job control, run a subshell instead.\n\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4787 If optional arg STUFFSTRING is non-nil, its characters are stuffed\n\
1891
035c39b0b1b9 (Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents: 1888
diff changeset
4788 to be read as terminal input by Emacs's parent, after suspension.\n\
035c39b0b1b9 (Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents: 1888
diff changeset
4789 \n\
2618
2c57852a01ca (Fsuspend_emacs): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 2611
diff changeset
4790 Before suspending, call the functions in `suspend-hook' with no args.\n\
1891
035c39b0b1b9 (Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents: 1888
diff changeset
4791 If any of them returns nil, don't call the rest and don't suspend.\n\
035c39b0b1b9 (Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents: 1888
diff changeset
4792 Otherwise, suspend normally and after resumption run the normal hook\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4793 `suspend-resume-hook' if that is bound and non-nil.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4794 \n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4795 Some operating systems cannot stop the Emacs process and resume it later.\n\
1891
035c39b0b1b9 (Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents: 1888
diff changeset
4796 On such systems, Emacs starts a subshell instead of suspending.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4797 (stuffstring)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4798 Lisp_Object stuffstring;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4799 {
1895
b497a7ec0d58 (Fsuspend_emacs): Make tem not register.
Richard M. Stallman <rms@gnu.org>
parents: 1891
diff changeset
4800 Lisp_Object tem;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4801 int count = specpdl_ptr - specpdl;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4802 int old_height, old_width;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4803 int width, height;
1891
035c39b0b1b9 (Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents: 1888
diff changeset
4804 struct gcpro gcpro1, gcpro2;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4805 extern init_sys_modes ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4806
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4807 if (!NILP (stuffstring))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4808 CHECK_STRING (stuffstring, 0);
1891
035c39b0b1b9 (Fsuspend_emacs): Rename suspend-hook to suspend-hooks and run it manually.
Richard M. Stallman <rms@gnu.org>
parents: 1888
diff changeset
4809
2338
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
4810 /* Run the functions in suspend-hook. */
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
4811 if (!NILP (Vrun_hooks))
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
4812 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
4813
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4814 GCPRO1 (stuffstring);
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
4815 get_frame_size (&old_width, &old_height);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4816 reset_sys_modes ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4817 /* sys_suspend can get an error if it tries to fork a subshell
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4818 and the system resources aren't available for that. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4819 record_unwind_protect (init_sys_modes, 0);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4820 stuff_buffered_input (stuffstring);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4821 sys_suspend ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4822 unbind_to (count, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4823
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4824 /* Check if terminal/window size has changed.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4825 Note that this is not useful when we are running directly
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4826 with a window system; but suspend should be disabled in that case. */
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
4827 get_frame_size (&width, &height);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4828 if (width != old_width || height != old_height)
4137
9f3fe01a678d * keyboard.c (read_key_sequence): Accept both strings and vectors
Jim Blandy <jimb@redhat.com>
parents: 4115
diff changeset
4829 change_frame_size (selected_frame, height, width, 0, 0);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4830
2338
36cc4399937f * keyboard.c (Fsuspend_emacs):
Jim Blandy <jimb@redhat.com>
parents: 2188
diff changeset
4831 /* Run suspend-resume-hook. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4832 if (!NILP (Vrun_hooks))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4833 call1 (Vrun_hooks, intern ("suspend-resume-hook"));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4834
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4835 UNGCPRO;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4836 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4837 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4838
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4839 /* 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
4840 Then in any case stuff anything Emacs has read ahead and not used. */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4841
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4842 stuff_buffered_input (stuffstring)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4843 Lisp_Object stuffstring;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4844 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4845 register unsigned char *p;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4846
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4847 /* stuff_char works only in BSD, versions 4.2 and up. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4848 #ifdef BSD
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4849 #ifndef BSD4_1
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4850 if (XTYPE (stuffstring) == Lisp_String)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4851 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4852 register int count;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4853
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4854 p = XSTRING (stuffstring)->data;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4855 count = XSTRING (stuffstring)->size;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4856 while (count-- > 0)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4857 stuff_char (*p++);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4858 stuff_char ('\n');
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4859 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4860 /* Anything we have read ahead, put back for the shell to read. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4861 while (kbd_fetch_ptr != kbd_store_ptr)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4862 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4863 if (kbd_fetch_ptr == kbd_buffer + KBD_BUFFER_SIZE)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4864 kbd_fetch_ptr = kbd_buffer;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4865 if (kbd_fetch_ptr->kind == ascii_keystroke)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4866 stuff_char (XINT (kbd_fetch_ptr->code));
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
4867 kbd_fetch_ptr->kind = no_event;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4868 (XVECTOR (kbd_buffer_frame_or_window)->contents[kbd_fetch_ptr
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4869 - kbd_buffer]
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
4870 = Qnil);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4871 kbd_fetch_ptr++;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4872 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4873 input_pending = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4874 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4875 #endif /* BSD and not BSD4_1 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4876 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4877
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4878 set_waiting_for_input (time_to_clear)
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4879 EMACS_TIME *time_to_clear;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4880 {
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4881 input_available_clear_time = time_to_clear;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4882
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4883 /* Tell interrupt_signal to throw back to read_char, */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4884 waiting_for_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4885
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4886 /* If interrupt_signal was called before and buffered a C-g,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4887 make it run again now, to avoid timing error. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4888 if (!NILP (Vquit_flag))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4889 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4890
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4891 /* If alarm has gone off already, echo now. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4892 if (echo_flag)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4893 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4894 echo ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4895 echo_flag = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4896 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4897 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4898
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4899 clear_waiting_for_input ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4900 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4901 /* Tell interrupt_signal not to throw back to read_char, */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4902 waiting_for_input = 0;
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4903 input_available_clear_time = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4904 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4905
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4906 /* This routine is called at interrupt level in response to C-G.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4907 If interrupt_input, this is the handler for SIGINT.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4908 Otherwise, it is called from kbd_buffer_store_event,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4909 in handling SIGIO or SIGTINT.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4910
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4911 If `waiting_for_input' is non zero, then unless `echoing' is nonzero,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4912 immediately throw back to read_char.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4913
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4914 Otherwise it sets the Lisp variable quit-flag not-nil.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4915 This causes eval to throw, when it gets a chance.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4916 If quit-flag is already non-nil, it stops the job right away. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4917
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4918 SIGTYPE
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4919 interrupt_signal ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4920 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4921 char c;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4922 /* Must preserve main program's value of errno. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4923 int old_errno = errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4924
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4925 #ifdef USG
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4926 /* USG systems forget handlers when they are used;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4927 must reestablish each time */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4928 signal (SIGINT, interrupt_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4929 signal (SIGQUIT, interrupt_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4930 #endif /* USG */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4931
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4932 cancel_echoing ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4933
966
eb74884fc95a * keyboard.c (Fsuspend_emacs): Call change_frame_size with the
Jim Blandy <jimb@redhat.com>
parents: 939
diff changeset
4934 if (!NILP (Vquit_flag) && FRAME_TERMCAP_P (selected_frame))
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4935 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4936 fflush (stdout);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4937 reset_sys_modes ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4938 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4939 #ifdef SIGTSTP /* Support possible in later USG versions */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4940 /*
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4941 * On systems which can suspend the current process and return to the original
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4942 * shell, this command causes the user to end up back at the shell.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4943 * The "Auto-save" and "Abort" questions are not asked until
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4944 * the user elects to return to emacs, at which point he can save the current
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4945 * job and either dump core or continue.
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4946 */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4947 sys_suspend ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4948 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4949 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4950 if (sys_suspend () == -1)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4951 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4952 printf ("Not running as a subprocess;\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4953 printf ("you can continue or abort.\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4954 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4955 #else /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4956 /* Perhaps should really fork an inferior shell?
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4957 But that would not provide any way to get back
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4958 to the original shell, ever. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4959 printf ("No support for stopping a process on this operating system;\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4960 printf ("you can continue or abort.\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4961 #endif /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4962 #endif /* not SIGTSTP */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4963 printf ("Auto-save? (y or n) ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4964 fflush (stdout);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4965 if (((c = getchar ()) & ~040) == 'Y')
4282
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
4966 {
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
4967 Fdo_auto_save (Qt, Qnil);
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
4968 printf ("Auto-save done\n");
af81ea5c816e (kbd_buffer_store_event): Apply all the modifiers bits
Richard M. Stallman <rms@gnu.org>
parents: 4255
diff changeset
4969 }
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4970 while (c != '\n') c = getchar ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4971 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4972 printf ("Abort (and enter debugger)? (y or n) ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4973 #else /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4974 printf ("Abort (and dump core)? (y or n) ");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4975 #endif /* not VMS */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4976 fflush (stdout);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4977 if (((c = getchar ()) & ~040) == 'Y')
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4978 abort ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4979 while (c != '\n') c = getchar ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4980 printf ("Continuing...\n");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4981 fflush (stdout);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4982 init_sys_modes ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4983 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4984 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4985 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4986 /* If executing a function that wants to be interrupted out of
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4987 and the user has not deferred quitting by binding `inhibit-quit'
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4988 then quit right away. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4989 if (immediate_quit && NILP (Vinhibit_quit))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4990 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4991 immediate_quit = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4992 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4993 Fsignal (Qquit, Qnil);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4994 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4995 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4996 /* Else request quit when it's safe */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4997 Vquit_flag = Qt;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4998 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4999
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5000 if (waiting_for_input && !echoing)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5001 quit_throw_to_read_char ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5002
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5003 errno = old_errno;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5004 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5005
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5006 /* Handle a C-g by making read_char return C-g. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5007
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5008 quit_throw_to_read_char ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5009 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5010 quit_error_check ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5011 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5012 /* Prevent another signal from doing this before we finish. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
5013 clear_waiting_for_input ();
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5014 input_pending = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5015
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5016 unread_command_events = Qnil;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5017 unread_command_char = -1;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5018
2340
f19f4582c04d * keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents: 2338
diff changeset
5019 #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
5020 /* 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
5021 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
5022 abort ();
f19f4582c04d * keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents: 2338
diff changeset
5023 #endif
5077
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
5024 if (XFRAME (internal_last_event_frame) != selected_frame)
a928c879b7ea (read_key_sequence): If we get a quit, and current buffer
Richard M. Stallman <rms@gnu.org>
parents: 5064
diff changeset
5025 Fhandle_switch_frame (make_lispy_switch_frame (internal_last_event_frame));
2340
f19f4582c04d * keyboard.c [POLL_FOR_INPUT] (quit_throw_to_read_char): If
Jim Blandy <jimb@redhat.com>
parents: 2338
diff changeset
5026
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5027 _longjmp (getcjmp, 1);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5028 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5029
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5030 DEFUN ("set-input-mode", Fset_input_mode, Sset_input_mode, 3, 4, 0,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5031 "Set mode of reading keyboard input.\n\
695
e3fac20d3015 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 691
diff changeset
5032 First arg INTERRUPT non-nil means use input interrupts;\n\
e3fac20d3015 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 691
diff changeset
5033 nil means use CBREAK mode.\n\
e3fac20d3015 *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 691
diff changeset
5034 Second arg FLOW non-nil means use ^S/^Q flow control for output to terminal\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5035 (no effect except in CBREAK mode).\n\
2690
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
5036 Third arg META t means accept 8-bit input (for a Meta key).\n\
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
5037 META nil means ignore the top bit, on the assumption it is parity.\n\
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
5038 Otherwise, accept 8-bit input and don't use the top bit for Meta.\n\
2898
15f219ab20d7 (Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents: 2892
diff changeset
5039 Optional fourth arg QUIT if non-nil specifies character to use for quitting.\n\
15f219ab20d7 (Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents: 2892
diff changeset
5040 See also `current-input-mode'.")
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5041 (interrupt, flow, meta, quit)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5042 Lisp_Object interrupt, flow, meta, quit;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5043 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5044 if (!NILP (quit)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5045 && (XTYPE (quit) != Lisp_Int
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5046 || 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
5047 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
5048
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
5049 #ifdef POLL_FOR_INPUT
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
5050 stop_polling ();
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
5051 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5052
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5053 reset_sys_modes ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5054 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5055 /* Note SIGIO has been undef'd if FIONREAD is missing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5056 #ifdef NO_SOCK_SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5057 if (read_socket_hook)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5058 interrupt_input = 0; /* No interrupts if reading from a socket. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5059 else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5060 #endif /* NO_SOCK_SIGIO */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5061 interrupt_input = !NILP (interrupt);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5062 #else /* not SIGIO */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5063 interrupt_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5064 #endif /* not SIGIO */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5065 /* Our VMS input only works by interrupts, as of now. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5066 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5067 interrupt_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5068 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5069 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
5070 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
5071 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
5072 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
5073 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
5074 else
5275561e6b0a (read_avail_input): If meta_key is 2, let 8 bits thru.
Richard M. Stallman <rms@gnu.org>
parents: 2651
diff changeset
5075 meta_key = 2;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5076 if (!NILP (quit))
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5077 /* Don't let this value be out of range. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5078 quit_char = XINT (quit) & (meta_key ? 0377 : 0177);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5079
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5080 init_sys_modes ();
4471
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
5081
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
5082 #ifdef POLL_FOR_INPUT
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
5083 poll_suppress_count = 1;
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
5084 start_polling ();
31c5586e9d36 (Fset_input_mode): Start polling, if appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 4417
diff changeset
5085 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5086 return Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5087 }
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5088
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5089 DEFUN ("current-input-mode", Fcurrent_input_mode, Scurrent_input_mode, 0, 0, 0,
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5090 "Return information about the way Emacs currently reads keyboard input.\n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5091 The value is a list of the form (INTERRUPT FLOW META QUIT), where\n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5092 INTERRUPT is non-nil if Emacs is using interrupt-driven input; if\n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5093 nil, Emacs is using CBREAK mode.\n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5094 FLOW is non-nil if Emacs uses ^S/^Q flow control for output to the\n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5095 terminal; this does not apply if Emacs uses interrupt-driven input.\n\
2898
15f219ab20d7 (Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents: 2892
diff changeset
5096 META is t if accepting 8-bit input with 8th bit as Meta flag.\n\
15f219ab20d7 (Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents: 2892
diff changeset
5097 META nil means ignoring the top bit, on the assumption it is parity.\n\
15f219ab20d7 (Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents: 2892
diff changeset
5098 META is neither t nor nil if accepting 8-bit input and using\n\
15f219ab20d7 (Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents: 2892
diff changeset
5099 all 8 bits as the character code.\n\
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5100 QUIT is the character Emacs currently uses to quit.\n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5101 The elements of this list correspond to the arguments of\n\
2898
15f219ab20d7 (Fcurrent_input_mode): Return META as 3-way flag.
Richard M. Stallman <rms@gnu.org>
parents: 2892
diff changeset
5102 `set-input-mode'.")
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5103 ()
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5104 {
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5105 Lisp_Object val[4];
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5106
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5107 val[0] = interrupt_input ? Qt : Qnil;
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5108 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
5109 val[2] = meta_key == 2 ? make_number (0) : meta_key == 1 ? Qt : Qnil;
3067
38fa0e3705f6 Fix the fix.
Jim Blandy <jimb@redhat.com>
parents: 3058
diff changeset
5110 XFASTINT (val[3]) = quit_char;
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5111
3116
05c3ef28bb6b (Fcurrent_input_mode): Fix the call to Flist.
Richard M. Stallman <rms@gnu.org>
parents: 3104
diff changeset
5112 return Flist (sizeof (val) / sizeof (val[0]), val);
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5113 }
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5114
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5115
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5116 init_keyboard ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5117 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5118 /* This is correct before outermost invocation of the editor loop */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5119 command_loop_level = -1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5120 immediate_quit = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5121 quit_char = Ctl ('g');
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5122 unread_command_events = Qnil;
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5123 unread_command_char = -1;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5124 total_keys = 0;
1262
c9fc221502e4 * keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents: 1261
diff changeset
5125 recent_keys_index = 0;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5126 kbd_fetch_ptr = kbd_buffer;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5127 kbd_store_ptr = kbd_buffer;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5128 do_mouse_tracking = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5129 input_pending = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5130
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
5131 #ifdef MULTI_FRAME
1590
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
5132 /* This means that command_loop_1 won't try to select anything the first
11cd7c23f538 * keyboard.c (unread_switch_frame): Don't declare this static.
Jim Blandy <jimb@redhat.com>
parents: 1565
diff changeset
5133 time through. */
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
5134 internal_last_event_frame = Qnil;
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
5135 Vlast_event_frame = internal_last_event_frame;
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5136 #endif
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5137
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5138 /* If we're running a dumped Emacs, we need to clear out
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5139 kbd_buffer_frame_or_window, in case some events got into it
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5140 before we dumped.
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5141
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5142 If we're running an undumped Emacs, it hasn't been initialized by
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5143 syms_of_keyboard yet. */
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5144 if (initialized)
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5145 Ffillarray (kbd_buffer_frame_or_window, Qnil);
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
5146
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5147 if (!noninteractive)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5148 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5149 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
5150 #if defined (HAVE_TERMIO) || defined (HAVE_TERMIOS)
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5151 /* For systems with SysV TERMIO, C-g is set up for both SIGINT and
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5152 SIGQUIT and we can't tell which one it will give us. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5153 signal (SIGQUIT, interrupt_signal);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5154 #endif /* HAVE_TERMIO */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5155 /* Note SIGIO has been undef'd if FIONREAD is missing. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5156 #ifdef SIGIO
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5157 signal (SIGIO, input_available_signal);
1008
f1df63f98e5c * keyboard.c (init_keyboard): Changed "#endif SIGIO" to
Jim Blandy <jimb@redhat.com>
parents: 985
diff changeset
5158 #endif /* SIGIO */
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5159 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5160
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5161 /* Use interrupt input by default, if it works and noninterrupt input
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5162 has deficiencies. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5163
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5164 #ifdef INTERRUPT_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5165 interrupt_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5166 #else
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5167 interrupt_input = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5168 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5169
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5170 /* Our VMS input only works by interrupts, as of now. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5171 #ifdef VMS
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5172 interrupt_input = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5173 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5174
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5175 sigfree ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5176 dribble = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5177
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5178 if (keyboard_init_hook)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5179 (*keyboard_init_hook) ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5180
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5181 #ifdef POLL_FOR_INPUT
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5182 poll_suppress_count = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5183 start_polling ();
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5184 #endif
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5185 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5186
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5187 /* This type's only use is in syms_of_keyboard, to initialize the
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5188 event header symbols and put properties on them. */
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5189 struct event_head {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5190 Lisp_Object *var;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5191 char *name;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5192 Lisp_Object *kind;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5193 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5194
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5195 struct event_head head_table[] = {
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5196 &Qmouse_movement, "mouse-movement", &Qmouse_movement,
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
5197 &Qscroll_bar_movement, "scroll-bar-movement", &Qmouse_movement,
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5198 &Qswitch_frame, "switch-frame", &Qswitch_frame,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5199 };
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5200
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5201 syms_of_keyboard ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5202 {
4094
1dae74fd93d2 (Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4088
diff changeset
5203 Qdisabled_command_hook = intern ("disabled-command-hook");
1dae74fd93d2 (Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4088
diff changeset
5204 staticpro (&Qdisabled_command_hook);
1dae74fd93d2 (Qdisabled_command_hook): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4088
diff changeset
5205
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5206 Qself_insert_command = intern ("self-insert-command");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5207 staticpro (&Qself_insert_command);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5208
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5209 Qforward_char = intern ("forward-char");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5210 staticpro (&Qforward_char);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5211
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5212 Qbackward_char = intern ("backward-char");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5213 staticpro (&Qbackward_char);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5214
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5215 Qdisabled = intern ("disabled");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5216 staticpro (&Qdisabled);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5217
4065
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5218 Qundefined = intern ("undefined");
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5219 staticpro (&Qundefined);
adf973a863dd (Qundefined): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 3994
diff changeset
5220
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5221 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
5222 staticpro (&Qpre_command_hook);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5223
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5224 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
5225 staticpro (&Qpost_command_hook);
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5226
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5227 Qfunction_key = intern ("function-key");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5228 staticpro (&Qfunction_key);
1322
5f327f1dddd3 * keyboard.c (modify_event_symbol): Make sure that the unmodified
Jim Blandy <jimb@redhat.com>
parents: 1310
diff changeset
5229 Qmouse_click = intern ("mouse-click");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5230 staticpro (&Qmouse_click);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5231
2512
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
5232 Qmenu_enable = intern ("menu-enable");
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
5233 staticpro (&Qmenu_enable);
2a13ec10bfd7 * keyboard.c (command_loop_1): Rebuild menu bar if
Jim Blandy <jimb@redhat.com>
parents: 2505
diff changeset
5234
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5235 Qmode_line = intern ("mode-line");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5236 staticpro (&Qmode_line);
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
5237 Qvertical_line = intern ("vertical-line");
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
5238 staticpro (&Qvertical_line);
1988
1709282a3413 * keyboard.c (kbd_buffer_get_event): Protect assignment to
Jim Blandy <jimb@redhat.com>
parents: 1960
diff changeset
5239 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
5240 staticpro (&Qvertical_scroll_bar);
2149
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5241 Qmenu_bar = intern ("menu-bar");
9e21e9f8bb0d (syms_of_keyboard): Set up Qmenu_bar.
Richard M. Stallman <rms@gnu.org>
parents: 2133
diff changeset
5242 staticpro (&Qmenu_bar);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5243
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5244 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
5245 staticpro (&Qabove_handle);
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5246 Qhandle = intern ("handle");
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5247 staticpro (&Qhandle);
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5248 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
5249 staticpro (&Qbelow_handle);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5250
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
5251 Qevent_kind = intern ("event-kind");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5252 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
5253 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
5254 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
5255 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
5256 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
5257 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
5258 staticpro (&Qmodifier_cache);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5259
2188
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
5260 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
5261 staticpro (&Qrecompute_lucid_menubar);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
5262 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
5263 staticpro (&Qactivate_menubar_hook);
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
5264
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5265 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5266 struct event_head *p;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5267
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5268 for (p = head_table;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5269 p < head_table + (sizeof (head_table) / sizeof (head_table[0]));
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5270 p++)
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5271 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5272 *p->var = intern (p->name);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5273 staticpro (p->var);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5274 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
5275 Fput (*p->var, Qevent_symbol_elements, Fcons (*p->var, Qnil));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5276 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5277 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5278
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5279 button_down_location = Fmake_vector (make_number (NUM_MOUSE_BUTTONS), Qnil);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5280 staticpro (&button_down_location);
1310
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5281
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5282 {
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5283 int i;
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5284 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
5285
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5286 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
5287 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
5288 if (modifier_names[i])
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5289 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
5290 staticpro (&modifier_symbols);
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5291 }
8db103d11270 * keyboard.c (echo_char, read_char): Apply EVENT_HEAD without first
Jim Blandy <jimb@redhat.com>
parents: 1262
diff changeset
5292
1262
c9fc221502e4 * keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents: 1261
diff changeset
5293 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
5294 staticpro (&recent_keys);
c9fc221502e4 * keyboard.c: Initialize recent_keys in syms_of_keyboard, not
Jim Blandy <jimb@redhat.com>
parents: 1261
diff changeset
5295
1439
b3b2d1181d3a * keyboard.c (this_command_keys): Make this a vector, instead of
Jim Blandy <jimb@redhat.com>
parents: 1404
diff changeset
5296 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
5297 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
5298
4773
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
5299 Qextended_command_history = intern ("extended-command-history");
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
5300 Fset (Qextended_command_history, Qnil);
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
5301 staticpro (&Qextended_command_history);
ae7c67879859 (Qextended_command_history): New variable prevents
Brian Fox <bfox@gnu.org>
parents: 4696
diff changeset
5302
1778
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5303 kbd_buffer_frame_or_window
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5304 = Fmake_vector (make_number (KBD_BUFFER_SIZE), Qnil);
1f18bfe28e2f * termhooks.h (mouse_position_hook): Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 1711
diff changeset
5305 staticpro (&kbd_buffer_frame_or_window);
1711
4cd44b41f1e3 * keyboard.c: Protect all references to kbd_buffer_frames with
Jim Blandy <jimb@redhat.com>
parents: 1654
diff changeset
5306
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5307 func_key_syms = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5308 staticpro (&func_key_syms);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5309
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5310 mouse_syms = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5311 staticpro (&mouse_syms);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5312
1386
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
5313 unread_switch_frame = Qnil;
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
5314 staticpro (&unread_switch_frame);
5845050f9d5c * keyboard.c (Vlast_event_frame): Make this variable exist even
Jim Blandy <jimb@redhat.com>
parents: 1328
diff changeset
5315
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5316 defsubr (&Sread_key_sequence);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5317 defsubr (&Srecursive_edit);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5318 defsubr (&Strack_mouse);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5319 defsubr (&Sinput_pending_p);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5320 defsubr (&Scommand_execute);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5321 defsubr (&Srecent_keys);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5322 defsubr (&Sthis_command_keys);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5323 defsubr (&Ssuspend_emacs);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5324 defsubr (&Sabort_recursive_edit);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5325 defsubr (&Sexit_recursive_edit);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5326 defsubr (&Srecursion_depth);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5327 defsubr (&Stop_level);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5328 defsubr (&Sdiscard_input);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5329 defsubr (&Sopen_dribble_file);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5330 defsubr (&Sset_input_mode);
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5331 defsubr (&Scurrent_input_mode);
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5332 defsubr (&Sexecute_extended_command);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5333
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5334 DEFVAR_LISP ("last-command-char", &last_command_char,
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5335 "Last input event that was part of a command.");
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5336
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5337 DEFVAR_LISP ("last-command-event", &last_command_char,
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5338 "Last input event that was part of a command.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5339
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5340 DEFVAR_LISP ("last-nonmenu-event", &last_nonmenu_event,
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5341 "Last input event in a command, except for mouse menu events.\n\
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5342 Mouse menus give back keys that don't look like mouse events;\n\
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5343 this variable holds the actual mouse event that led to the menu,\n\
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5344 so that you can determine whether the command was run by mouse or not.");
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5345
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5346 DEFVAR_LISP ("last-input-char", &last_input_char,
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5347 "Last input event.");
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5348
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5349 DEFVAR_LISP ("last-input-event", &last_input_char,
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5350 "Last input event.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5351
1821
04fb1d3d6992 JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents: 1802
diff changeset
5352 DEFVAR_LISP ("unread-command-events", &unread_command_events,
1960
6051ba81a938 (syms_of_keyboard): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 1947
diff changeset
5353 "List of objects to be read as next command input events.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5354
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5355 DEFVAR_INT ("unread-command-char", &unread_command_char,
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5356 "If not -1, an object to be read as next command input event.");
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5357
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5358 DEFVAR_LISP ("meta-prefix-char", &meta_prefix_char,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5359 "Meta-prefix character code. Meta-foo as command input\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5360 turns into this character followed by foo.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5361 XSET (meta_prefix_char, Lisp_Int, 033);
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5362
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5363 DEFVAR_LISP ("last-command", &last_command,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5364 "The last command executed. Normally a symbol with a function definition,\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5365 but can be whatever was found in the keymap, or whatever the variable\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5366 `this-command' was set to by that command.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5367 last_command = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5368
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5369 DEFVAR_LISP ("this-command", &this_command,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5370 "The command now being executed.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5371 The command can set this variable; whatever is put here\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5372 will be in `last-command' during the following command.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5373 this_command = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5374
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5375 DEFVAR_INT ("auto-save-interval", &auto_save_interval,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5376 "*Number of keyboard input characters between auto-saves.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5377 Zero means disable autosaving due to number of characters typed.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5378 auto_save_interval = 300;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5379
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5380 DEFVAR_LISP ("auto-save-timeout", &Vauto_save_timeout,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5381 "*Number of seconds idle time before auto-save.\n\
687
e2b747dd6a6e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 682
diff changeset
5382 Zero or nil means disable auto-saving due to idleness.\n\
e2b747dd6a6e *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 682
diff changeset
5383 After auto-saving due to this many seconds of idle time,\n\
701
e7eb08ed73c0 *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 695
diff changeset
5384 Emacs also does a garbage collection if that seems to be warranted.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5385 XFASTINT (Vauto_save_timeout) = 30;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5386
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5387 DEFVAR_INT ("echo-keystrokes", &echo_keystrokes,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5388 "*Nonzero means echo unfinished commands after this many seconds of pause.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5389 echo_keystrokes = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5390
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5391 DEFVAR_INT ("polling-period", &polling_period,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5392 "*Interval between polling for input during Lisp execution.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5393 The reason for polling is to make C-g work to stop a running program.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5394 Polling is needed only when using X windows and SIGIO does not work.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5395 Polling is automatically disabled in all other cases.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5396 polling_period = 2;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5397
3993
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
5398 DEFVAR_LISP ("double-click-time", &Vdouble_click_time,
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5399 "*Maximum time between mouse clicks to make a double-click.\n\
3993
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
5400 Measured in milliseconds. nil means disable double-click recognition;\n\
992a1abeb6cd * keyboard.c (Vdouble_click_time): Renamed from double_click_time,
Jim Blandy <jimb@redhat.com>
parents: 3972
diff changeset
5401 t means double-clicks have no time limit and are detected\n\
3861
fc8c92b69513 * keyboard.c (make_lispy_event): Added detection of double-click
Jim Blandy <jimb@redhat.com>
parents: 3809
diff changeset
5402 by position only.");
3994
df443e5f391e Fix initialization of Vdouble_click_time in syms_of_keyboard.
Jim Blandy <jimb@redhat.com>
parents: 3993
diff changeset
5403 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
5404
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5405 DEFVAR_INT ("num-input-keys", &num_input_keys,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5406 "*Number of complete keys read from the keyboard so far.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5407 num_input_keys = 0;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5408
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
5409 #ifdef MULTI_FRAME
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
5410 DEFVAR_LISP ("last-event-frame", &Vlast_event_frame,
1239
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
5411 "*The frame in which the most recently read event occurred.\n\
52afa4976154 * keyboard.c (read_char): If we're returning an event from a
Jim Blandy <jimb@redhat.com>
parents: 1140
diff changeset
5412 If the last event came from a keyboard macro, this is set to `macro'.");
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 732
diff changeset
5413 Vlast_event_frame = Qnil;
1565
a681f63f93fa * keyboard.c (read_key_sequence): Removed the
Jim Blandy <jimb@redhat.com>
parents: 1515
diff changeset
5414 #endif
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5415
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
5416 DEFVAR_LISP ("help-char", &Vhelp_char,
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5417 "Character to recognize as meaning Help.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5418 When it is read, do `(eval help-form)', and display result if it's a string.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5419 If the value of `help-form' is nil, this char can be read normally.");
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
5420 XSET (Vhelp_char, Lisp_Int, Ctl ('H'));
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5421
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5422 DEFVAR_LISP ("help-form", &Vhelp_form,
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
5423 "Form to execute when character `help-char' is read.\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5424 If the form returns a string, that string is displayed.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5425 If `help-form' is nil, the help char is not recognized.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5426 Vhelp_form = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5427
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
5428 DEFVAR_LISP ("prefix-help-command", &Vprefix_help_command,
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
5429 "Command to run when `help-char' character follows a prefix key.\n\
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
5430 This command is used only when there is no actual binding\n\
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
5431 for that character after that prefix key.");
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
5432 Vprefix_help_command = Qnil;
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
5433
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5434 DEFVAR_LISP ("top-level", &Vtop_level,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5435 "Form to evaluate when Emacs starts up.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5436 Useful to set before you dump a modified Emacs.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5437 Vtop_level = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5438
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5439 DEFVAR_LISP ("keyboard-translate-table", &Vkeyboard_translate_table,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5440 "String used as translate table for keyboard input, or nil.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5441 Each character is looked up in this string and the contents used instead.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5442 If string is of length N, character codes N and up are untranslated.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5443 Vkeyboard_translate_table = Qnil;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5444
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5445 DEFVAR_LISP ("key-translation-map", &Vkey_translation_map,
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5446 "Keymap of key translations that can override keymaps.\n\
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5447 This keymap works like `function-key-map', but comes after that,\n\
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5448 and applies even for keys that have ordinary bindings.");
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5449 Vkey_translation_map = Qnil;
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5450
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5451 DEFVAR_BOOL ("menu-prompting", &menu_prompting,
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5452 "Non-nil means prompt with menus when appropriate.\n\
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5453 This is done when reading from a keymap that has a prompt string,\n\
1083
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5454 for elements that have prompt strings.\n\
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5455 The menu is displayed on the screen\n\
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5456 if X menus were enabled at configuration\n\
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5457 time and the previous event was a mouse click prefix key.\n\
cbbbe0a96ecc (last_nonmenu_event): New var.
Richard M. Stallman <rms@gnu.org>
parents: 1046
diff changeset
5458 Otherwise, menu prompting uses the echo area.");
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5459 menu_prompting = 1;
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5460
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5461 DEFVAR_LISP ("menu-prompt-more-char", &menu_prompt_more_char,
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5462 "Character to see next line of menu prompt.\n\
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5463 Type this character while in a menu prompt to rotate around the lines of it.");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5464 XSET (menu_prompt_more_char, Lisp_Int, ' ');
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
5465
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
5466 DEFVAR_INT ("extra-keyboard-modifiers", &extra_keyboard_modifiers,
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
5467 "A mask of additional modifier keys to use with every keyboard character.\n\
2726
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5468 Emacs applies the modifiers of the character stored here to each keyboard\n\
954251d0fbd1 * blockinput.h (UNBLOCK_INPUT): We cannot assume that SIGIO is
Jim Blandy <jimb@redhat.com>
parents: 2719
diff changeset
5469 character it reads. For example, after evaluating the expression\n\
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5470 (setq extra-keyboard-modifiers ?\C-x)\n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5471 all input characters will have the control modifier applied to them.\n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5472 \n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5473 Note that the character ?\C-@, equivalent to the integer zero, does\n\
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5474 not count as a control character; rather, it counts as a character\n\
4600
a4d11a20b724 (kbd_buffer_store_event): Use bcopy to copy
Richard M. Stallman <rms@gnu.org>
parents: 4558
diff changeset
5475 with no modifiers; thus, setting `extra-keyboard-modifiers' to zero\n\
2651
d3f05a05fe2a Implement extra_keyboard_modifiers properly.
Jim Blandy <jimb@redhat.com>
parents: 2618
diff changeset
5476 cancels any modification.");
1842
2cc82d6070e2 (extra_keyboard_modifiers): New Lisp var.
Richard M. Stallman <rms@gnu.org>
parents: 1821
diff changeset
5477 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
5478
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5479 DEFVAR_LISP ("deactivate-mark", &Vdeactivate_mark,
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5480 "If an editing command sets this to t, deactivate the mark afterward.\n\
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5481 The command loop sets this to nil before each command,\n\
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5482 and tests the value when the command returns.\n\
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5483 Buffer modification stores t in this variable.");
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5484 Vdeactivate_mark = Qnil;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5485
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5486 DEFVAR_LISP ("pre-command-hook", &Vpre_command_hook,
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5487 "Normal hook run before each command is executed.");
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5488 Vpre_command_hook = Qnil;
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5489
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5490 DEFVAR_LISP ("post-command-hook", &Vpost_command_hook,
3972
e49ff3115e7d (read_char): After Fgarbage_collect, call redisplay.
Richard M. Stallman <rms@gnu.org>
parents: 3929
diff changeset
5491 "Normal hook run after each command is executed.");
2045
cc85a38463b8 (follow_key): Downcase shift_modifier as well as ASCII.
Richard M. Stallman <rms@gnu.org>
parents: 1988
diff changeset
5492 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
5493
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
5494 DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag,
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
5495 "t means menu bar, specified Lucid style, needs to be recomputed.");
f74e9c948380 (command_loop_1): Set FRAME_MENU_BAR_ITEMS here.
Richard M. Stallman <rms@gnu.org>
parents: 2149
diff changeset
5496 Vlucid_menu_bar_dirty_flag = Qnil;
4088
bea0be5ab35e (Vhelp_menu_bar_map): New var.
Richard M. Stallman <rms@gnu.org>
parents: 4065
diff changeset
5497
4115
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
5498 DEFVAR_LISP ("menu-bar-final-items", &Vmenu_bar_final_items,
4aafcdc3d9e7 (Vhelp_menu_bar_map): Deleted.
Richard M. Stallman <rms@gnu.org>
parents: 4106
diff changeset
5499 "List of menu bar items to move to the end of the menu bar.\n\
4255
4b65e1ff27b8 (command_loop_1): Run post-command-hook first thing.
Richard M. Stallman <rms@gnu.org>
parents: 4137
diff changeset
5500 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
5501 Vmenu_bar_final_items = Qnil;
518
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5502 }
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5503
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5504 keys_of_keyboard ()
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5505 {
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5506 initial_define_key (global_map, Ctl ('Z'), "suspend-emacs");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5507 initial_define_key (control_x_map, Ctl ('Z'), "suspend-emacs");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5508 initial_define_key (meta_map, Ctl ('C'), "exit-recursive-edit");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5509 initial_define_key (global_map, Ctl (']'), "abort-recursive-edit");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5510 initial_define_key (meta_map, 'x', "execute-extended-command");
3a316f923456 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5511 }